Visual Basic Programming Code Examples Visual Basic > Files Directories Drives Code Examples Get the shortfilename (8.3) Get the shortfilename (8.3) 'make a form with a drive-control, dir-control, filelist-control and a label Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long Private sub Dir1_Change() File1 = Dir1.Path End Sub Private sub Drive1_Change() Dir1 = Drive1 End Sub Private sub File1_Click() Label1.Caption = GetShortFileName(Dir1 & "\" & File1) End Sub Public Function GetShortFileName(ByVal FileName As String) As String 'converts a long file and path name to old dos format 'PARAMETERS ' FileName = the path or filename to convert 'RETURNS ' String = the dos compatible name for that particular FileName dim rc As Long dim ShortPath As String Const PATH_LEN& = 164 'get the short filename ShortPath = String$(PATH_LEN + 1, 0) rc = GetShortPathName(FileName, ShortPath, PATH_LEN) GetShortFileName = Left$(ShortPath, rc) End Function Return
