Private Declare Function GetShortPathName Lib "kernel32" Alias _    "GetShortPathNameA" (ByVal lpszLongPath As String, _    ByVal lpszShortPath As String, ByVal cchBuffer As Long) As LongConst 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 errorPublic 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 IfEnd Function