CodeItBetter Programming Another VB Programming Blog

'File/Folder Handling - How to Return Short path for given file (with long path)
Option Explicit
 
Private Declare Function GetShortPathNameA Lib "kernel32" (ByVal lpszLongPath As String, _
    ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
 
Public Function GetShortPathName(ByVal sLongPath As String) As String
    Dim s As String
    Dim I As Long
    i = Len(sLongPath) + 1
    s = String(i, 0)
    GetShortPathNameA sLongPath, s, i
    GetShortPathName = Left$(s, InStr(s, Chr$(0)) - 1)
End Function
 
'How can I call this function:
'Debug.Print GetShortPathName("c:\Program Files\")
'Will return c:\PROGRA~1\