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.