Directory Short

Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal LongName As String, ByVal ShortName As String, ByVal bufsize As Integer) As Long


Public Function GetShortFileName(ByVal FileName As String) As String
Dim dummy As String = Space(255)
Dim a = GetShortPathName(FileName, dummy, dummy.Length)
GetShortFileName = dummy

End Function

Il risultato sara' c:\pro~\cipp...~\...