• Home
 · 
• Files/File Controls/Input/Output
 · 
• Get a short file name by converting to 8.3 compliant file.

Get a short file name by converting to 8.3 compliant file.

Get a short file name by converting to 8.3 compliant file.

API Declarations


Private Declare Function apiGetShortPathName Lib "Kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long




Rate Get a short file name by converting to 8.3 compliant file.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

    Dim strReturnedShortFilename As String

    'initialize temporary string
    strShortFilename = String$(1000, " ")
    
    'create short filename
    apiGetShortPathName strLongFilename, strShortFilename, 1000
    
    'short filename
    strReturnedShortFilename = Left$(strShortFilename, Len(Trim$(strShortFilename)) - 1)