Nazwa pliku z pełnej ścieżki

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

2 myśli w temacie “Nazwa pliku z pełnej ścieżki

  1. 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

  2. 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 🙂

Dodaj komentarz

Twój adres email nie zostanie opublikowany. Pola, których wypełnienie jest wymagane, są oznaczone symbolem *