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
![Outage Reddit](https://www.devx.com/wp-content/uploads/Outage-Reddit-300x171.jpg)