Binaryworld - ShortPathName - Convert a long file name to 8.3 format ... [ VB -> Files & Folder ]

Private Declare Function GetShortPathName Lib "kernel32" Alias _
  "GetShortPathNameA" (ByVal lpszLongPath As String, _
  ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

Const MAX_PATH = 260

' Convert a long file/path name to a short 8.3 name
' the path must exist, but the file doesn't have to
' Return a null string in case of error

Public Function ShortPathName(ByVal FileName As String) As String
  Dim length As Long, res As String
  res = String$(MAX_PATH, 0)
  length = GetShortPathName(FileName, res, Len(res))
  If length Then
    ShortPathName = Left$(res, length)
  End If
End Function