Prova questa funzione

Private Function NomeFile(ByVal s As String) As String
Dim f As String
Dim sep As Integer
sep = InStrRev(s, "\")
f = s.Substring(sep)
Return f
End Function


response.write(NomeFile("c:\pippo\prova.txt"))


Fammi sapere
Ciao
Kalman