VB 5.0/6.0: Recuperare il nome di un file a partire da un percorso

La funzione che vi proponiamo qui permette di recuperare il nome di un file a partire da un qualunque percorso.

Utilizzo:

Abbiate cura di sostituire a percorso_completo il percorso completo del file. Il nome del file estratto verrà memorizzato nella variabile nomefile.

Esempio:

memorizzerà nella variabile nomefile lettera.doc

Il codice Visual Basic

Public Function GetFileName(ScanString As String) As String

    Dim intPos As Integer
    Dim intPosSave As Integer

    intPos = 1
    Do
        intPos = InStr(intPos, ScanString, "\")
        If intPos = 0 Then
            Exit Do
        Else
            intPos = intPos + 1
            intPosSave = intPos - 1
        End If
    Loop
    GetFileName = Trim$(Mid$(ScanString, intPosSave + 1))

End Function