CodeItBetter Programming Another VB Programming Blog

'System & API - How to retrieve the full long path name from short path (MS Dos format)
Option Explicit
Private Const MAX_PATH As Long = 260
 
Private Declare Function GetLongPathName Lib "kernel32" _
   Alias "GetLongPathNameA" _
  (ByVal lpszShortPath As String, _
   ByVal lpszLongPath As String, _
   ByVal cchBuffer As Long) As Long
 
Private Function GetLongName(strTest As String) As String
   Dim sLongPath As String
   Dim buff As String
   Dim cbbuff As Long
   Dim result As Long
 
   buff = Space$(MAX_PATH)
   cbbuff = Len(buff)
 
   result = GetLongPathName(strTest, buff, cbbuff)
 
   If result > 0 Then
      sLongPath = Left$(buff, result)
   End If
 
   GetLongName = sLongPath
 
End Function
 
Private Sub Command1_Click()
   Dim strShortFile As String
   strShortFile = "C:\DOCUME~1\jamster\Desktop\MYFILE~1.TXT"
 
   Debug.Print "File Name "; GetLongName(strShortFile)
End Sub