Private Declare Function GetShortPathNameA Lib "kernel32" ( _
    ByVal lpszLongPath As String, _
    ByVal lpszShortPath As String, _
    ByVal cchBuffer As Long) As Long
 
Public Function GetShortPath(Byval Path As String) As String
      Dim n As Long
 
      GetShortPath = Space$(256)
      n = GetShortPathNameA(Path, GetShortPath, 255)
      GetShortPath = Left(GetShortPath, n)
End Function