ďťż

85828_1

Lemur zaprasza

Strona: [  >  ]  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



 
      

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



_____________________________________________
Popieram losmaca:
1) Ludzie, dbajcie o polszczyznę!!! 
2) Ludzie, zadawajcie kompletne pytania, a nie - rzucacie ochłapy i trzeba się domyślać o co chodzi!!!
___
NOWE FORUM






20-10-2004 19:35



 
    














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



 
      

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



_____________________________________________
Popieram losmaca:
1) Ludzie, dbajcie o polszczyznę!!! 
2) Ludzie, zadawajcie kompletne pytania, a nie - rzucacie ochłapy i trzeba się domyślać o co chodzi!!!
___
NOWE FORUM






21-10-2004 11:13



 
    














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



 
      

1097462













Wszystkich odpowiedzi: 4 :: Maxymalnie na stronę: 20










Strona: [  >  ]  z  1     
  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • teen-mushing.xlx.pl
  • Wątki
    Powered by wordpress | Theme: simpletex | © Lemur zaprasza