Trasformare path locale in path dos

[xegallo]

Declare Function GetShortPathName Lib "kernel32" Alias " _
    GetShortPathNameA" (ByVal lpszLongPath As String, _
    ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Const PATH_LEN& = 164

Public Function GetShortFileName(ByVal FileName As String) As String
    Dim rc As Long
    Dim ShortPath As String
    ShortPath = String$(PATH_LEN + 1, 0)
    rc = GetShortPathName(FileName, ShortPath, PATH_LEN)
    GetShortFileName = Left$(ShortPath, rc)
End Function