DlouhΘ jmΘno souboru
Postup:
V deklaraΦnφ Φßsti formulß°e zapiÜte:
Private Declare
Function GetLongPathName Lib "kernel32" Alias _
"GetLongPathNameA" (ByVal lpszShortPath As
String, _
ByVal lpszLongPath As String, ByVal cchBuffer As Long) As
Long
Private Const MAX_PATH = 260
Funkce:
Public Function LongPathName(ByVal FileName As String) As String
Dim length As Long, res As String
On
Error Resume Next
res = String$(MAX_PATH, 0)
length = GetLongPathName(FileName, res, Len(res))
If length And Err = 0 Then
LongPathName = Left$(res, length)
End If
End Function