Belki birilerininde işine yara diye eklemek istedim.

Public Function trz(yol As String)

trz1 = InStrRev(yol, "\")

trz2 = Left(yol, trz1 - 1)

trz3 = InStrRev(trz2, "\") + 1

trz = Mid(yol, trz3, (trz1 - trz3))

End Function

trz([dosyayolu])

kod bana ait olmadığından ustada saygı olarak aynen ekliyorum. Umarım benim gibi birilerininde işine yarar.