Private Const MAX_PATH = 260
Private Declare Function GetLongPathNameW Lib "kernel32" ( _
ByVal lpszShortPath As Long, ByVal lpszLongPath As Any, _
ByVal cchBuffer As Long) As Long
Public Function GetLongPathName(lpszShortPath As String) As String
Dim LongFileName As String * MAX_PATH
Dim LongFileNameLen As Long
LongFileNameLen = GetLongPathNameW(StrPtr(lpszShortPath), LongFileName, MAX_PATH)
GetLongPathName = VBA.Left$(StrConv(LongFileName, vbFromUnicode), LongFileNameLen)
End Function