Private Declare Function GetShortPathName Lib "kernel32" Alias _
"GetShortPathNameA" (ByVal lpszLongPath As String, _ ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long Const MAX_PATH = 260 ' Convert a long file/path name to a short 8.3 name ' the path must exist, but the file doesn't have to ' Return a null string in case of error Public Function ShortPathName(ByVal FileName As String) As String Dim length As Long, res As String res = String$(MAX_PATH, 0) length = GetShortPathName(FileName, res, Len(res)) If length Then ShortPathName = Left$(res, length) End If End Function |