Private Declare Function GetShortPathNameA Lib "kernel32" _
(ByVal lpszLongPath As String, _ ByVal lpszShortPath As String, _ ByVal cchBuffer As Long) As Long Const MAX_PATH = 260 Public Function GetShortPathName(ByVal szLongFileName As String) As String Dim lngResult As Long GetShortPathName = Space(MAX_PATH) lngResult = GetShortPathNameA(szLongFileName, GetShortPathName, Len(GetShortPathName)) GetShortPathName = Trim(left$(GetShortPathName, lngResult)) End Function |