Træk stiens navn ud af en streng med både sti og filnavn

try
dir("C:\Programmer\FMS\Total Access Admin\reg.txt")

Sti = ("C:\Programmer\FMS\Total Access Admin\reg.txt")
For I = Len(sti)to 1 step -1
if mid(sti,i,1) ="\" then
Stien = left(sti,i)
exit for
next

>Terry
Den viser filnavnet...

Ellers prøv at lægge denne funktion i et modul:
Function Extractpath(Streng As String) As String
    Do Until Right(Streng, 1) = "\"
        Streng = Left(Streng, Len(Streng) - 1)
    Loop
    Extractpath = Streng
End Function

Herefter kaldes Extractpath("C:\Programmer\FMS\Total Access Admin\reg.txt")

Jeg har fået Kabbak's løsning til at virke - tak for hjælpen alle :o)
>Kabbak - læg lige et svar

et svar ;-))