NamPath

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