codice:
    Public Function nome_file(ByVal percorso As String) As String
        Dim risultato As String = ""
        Dim i As Integer
        Dim s As String
        For i = Len(percorso) To 1 Step -1
            s = Mid(percorso, i, 1)
            If s <> "\" Then
                risultato = risultato + s
            Else
                Exit For
            End If
        Next i
        Return StrReverse(risultato)
    End Function
questa per ottenere solo il nome del file di un percorso...