獲得Win9X下文件的短文件名
步驟一
在Form中加入一個FileListBox,一個DirListBox,一個Label.
步驟二
在Form中加入以下代碼:
在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 |