Czasem potrzebujemy samej nazwy pliku a mamy w zmiennej pełną ścieżkę. Oczywiście sprawa jest prosta ale lepiej mieć pod ręką stosowną funkcję:
Function NazwaPlikuZeSciezki(Sciezka As String) As String Dim OstatniUkosnik As Long OstatniUkosnik = InStrRev(Sciezka, "\") NazwaPlikuZeSciezki = Mid(Sciezka, OstatniUkosnik + 1) End Function |
Witam,
Mam problem ze skompilowaniem tej funkcji, np. w oknie Immediate. Po wpisaniu, np. takiej ścieżki
? NazwaPlikuZeSciezki (c:\plik.txt)
wyskakuje mi błąd „Compile error: Expected: List separator or )
Czy coś błędnie wpisuję? A może trzeba zdefiniować jeszcze jakieś referencje? Bardzo proszę o pomoc 🙂
Pozdrawiam
No i znalazł się błąd, zapomniałem dopisać znaków cudzysłowia w ścieżce. Powinno być („C:\plik.txt”). Można też dorzucić w kodzie warunek sprawdzania tekstowego:
OstatniUkosnik = InStrRev(Sciezka, „\”, , vbTextCompare)
Pozdrawiam jeszcze raz 🙂