Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Problem z wyciąganiem ścieżki folderu
B_R_



Typ: neutral
Postów: 9
Zarejestrowany: Oct 2004
Problem z wyciąganiem ścieżki folderu

Witam
Mam problem (lekki) oto funkcja opisana na tym forum niedawno i z nią mam właśnie problem. Przerabiałem ją kilkakrotnie, ale wciąż wychodzą błędy...

Function StripPath(T$) As String
Dim x%, ct%
StripPath$ = T$
x% = InStr(T$, "\" )
Do While x%
ct% = x%
x% = InStr(ct% + 1, T$, "\" )
Loop
If ct% > 0 Then StripPath$ = Mid$(T$, ct% + 1)
End Function

Jak przerobić tę funkcję aby zwracała ścieżkę folderu, a nie nazwę?


_____________________________________________
Dim Ja As Człowiek

20-10-2004 13:07
Pokaż profil B_R_  Wyślij email do B_R_        1097462
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

Mogę napisać taką funkcję, tylko powiedz z czego ma wyciągać tą nazwę... bo nie sądzę, by miała podawać ścieżkę ze ścieżki .

BTW: KTO JEST OJCEM TEGO POTWORKA?! O_O


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

20-10-2004 19:35
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
B_R_



Typ: neutral
Postów: 9
Zarejestrowany: Oct 2004
No wiec...

1. Nie mogę znaleźć stwórcy
2. Funkcja właściwie mogłaby podawać ścieżkę ze ścieżki, ale też by było miłe gdyby wyciągała z Dir.Path'a...
    Jakbyś mógł podsunąć pomysł byłbym wdzięczny


_____________________________________________
Dim Ja As Człowiek

21-10-2004 08:43
Pokaż profil B_R_  Wyślij email do B_R_        1097462
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

Ale Dir.Path zwraca ci właśnie ścieżkę... nadal nie rozumiem, co chcesz z tego wyciągać .
Jeśli chodzi o podanie ścieżki do katalogu, w którym znajduje się dany plik, to ta funkcja wystarczy:
Function GetParentDir(sPath As String) As String
    If Len(sPath) < 3 Then Exit Function
   
    Dim sPath2 As String
    sPath2 = Replace(sPath, "/", "\" )
    GetParentDir = Left(sPath2, InStrRev(IIf(Right(sPath2, 1) = "\" And Len(sPath) > 3, Left(sPath2, Len(sPath2) - 1), sPath2), "\" ))
End Function

sPath - tutaj podajesz ścieżkę do pliku


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

21-10-2004 11:13
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
B_R_



Typ: neutral
Postów: 9
Zarejestrowany: Oct 2004
O to chodziło!

O to włanie mi chodziło...
Dzięki!

[Post edytowany dnia 21-10-2004 13:20 przez B_R_]


_____________________________________________
Dim Ja As Człowiek

21-10-2004 13:20
Pokaż profil B_R_  Wyślij email do B_R_        1097462
Wszystkich odpowiedzi: 4 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1