Binaryworld - How to Convert Long File Name to Short File Name... ... [ VB -> Files & Folder ]

API Declarations

' API Declare
Private Declare Function GetShortPathName Lib "kernel32.dll" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

Module

Click here to copy the following block

Public Function ShortName(LongPath As String) As String
'***************************************************************************
' Converts Long FileName to Short FileName
'***************************************************************************
  Dim ShortPath As String
  Dim Ret As Long
  Const MAX_PATH = 260

  If LongPath = "" Then
    Exit Function
  End If
  ShortPath = Space$(MAX_PATH)
  Ret = GetShortPathName(LongPath, ShortPath, MAX_PATH)
  If Ret Then
    ShortName = Left$(ShortPath, Ret)
  End If
End Function

Usage

Click here to copy the following block

'Usage:
Private Sub Command1_Click()
MsgBox ShortName("C:\Program Files\Microsoft Visual Studio\Longexecutable.EXE")
' Good for Shell uses or Name etc
End Sub

Click here to copy the following block