请教哪个API能转换长文件名与短文件名？

Question

Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal lBuffer As Long) As Long
Public Function GetShortPath(strFileName As String) As String
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: [email protected]
    Dim lngRes As Long, strPath As String
    'Create a buffer
    strPath = String$(165, 0)
    'retrieve the short pathname
    lngRes = GetShortPathName(strFileName, strPath, 164)
    'remove all unnecessary chr$(0)'s
    GetShortPath = Left$(strPath, lngRes)
End Function
Private Sub Form_Load()
    MsgBox GetShortPath("c:\Program Files\")
End Sub

Answer 1

主题： VB中DOS文件名与长文件名的转换 　　自从进入Win95时代以来，Win95的长文件名给人们带来了很多方便，但是由于原来的DOS只支持8.3格式，即8个主文件名加上3个扩展名，所以所有Win95的长文件名都有一个DOS名，具体方法为取原长文件名前6位加～num（其中num为现目录中不重名的序号）。现在的VB已完全支持了长文件名，但是有一点可能没有注意到，即当用command()接收从命令行传来的参数时，如果参数是长文件名，则被强制转换成为DOS名，即8.3格式文件名。由于这两种文件名通用，所以一般情况下不会有什么问题。但遇到特殊场合就不行了。有没有办法再把8.3格式的文件名转换为原来的长文件名呢？答案是：可以。
　　让我们编程来回答这个问题：
　　首先建立一个窗体，在窗体上加两个TEXT控件，其中第一个TEXT的TEXT属性为“显示命令行参数”，第二个TEXT的TEXT属性为“显示转换后文件名”,再建立一个 commandbutton 控件，其caption属性为“显示”，具体原代码如下：
　　′－－－－－－－通用，声明:
　　Dim dosfilename As String ′声明dos 文件名
　　Dim longfilename As String ′声明长文件名
　　′－－－－－－－－－－－－
　　Private Sub Command1_Click()
　　Text1.Text = dosfilename
　　Text2.Text = longfilename
　　End Sub
　　′－－－－－－－－
　　Private Sub Form_Load()
　　dosfilename = Command＄() ′从命令行取得参数
　　longfilename = Dir(dosfilename) ′得到长文件名
　　End Sub
　　接着生成EXE文件，然后将一个长文件名的文件图标拖到新生成的EXE文件上去，点击EXE文件的commandbutton 就可以看到转换结果了。
　　（马　麟） 

Answer 2

Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Declare Function GetFullPathName Lib "kernel32" Alias "GetFullPathNameA" (ByVal lpFileName As String, ByVal nBufferLength As Long, ByVal lpBuffer As String, ByVal lpFilePart As String) As Long