＇步骤一　在FORM中加入一个FileListBox,一个DirListBox,一个Label.
＇步骤二 在FORM中加入以下代码:
＇Private 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