你 可 以 使 用 GetShortPathName將 長 文 件 名 轉 換 為 DOS短 文 件 名 。 該 函 數 定 義 為 ： 
     Declare Function GetShortPathName Lib "kernel32" _ 
     Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _ 
     ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long 
    你 可 以 用 下 面 這 個 函 數 ： 
     Public Function GetShortName(ByVal sLongFileName As String) As String 
     Dim lRetVal As Long, sShortPathName As String, iLen As Integer 
     'Set up buffer area for API function call return 
     sShortPathName = Space(255) 
     iLen = Len(sShortPathName) 
     
     'Call the function 
     lRetVal = GetShortPathName(sLongFileName, sShortPathName, iLen) 
     'Strip away unwanted characters. 
     GetShortName = Left(sShortPathName, lRetVal) 
     End Function 
<END>