'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