Convertire un nome di file da corto (MSDOS) a lungo

Spesso è utile convertire il nome e percorso di un file dal formato cosiddetto "corto" (MSDOS) al formato esteso.

Ecco di seguito una semplice funzione:

Private Function ConvertiNomeFile(ByVal nomecorto As String) As String
    Dim strRis As String = ""
    Dim tmpFileInfo As New IO.FileInfo(nomecorto)
    strRis = tmpFileInfo.FullName
    Return strTMP
End Function