分步示例
在 Visual Basic 中创建一个新的标准 EXE 项目。
默认情况下,将创建 Form1。
在 Form1 中放置命令按钮控件。
放置在窗体上的一个通用对话框控件。

  1. 插入菜单中,选择要添加到项目的单个代码模块的模块
  2. 将下面的代码添加到 Module1 中:
    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
  3. 向 Form1 中添加以下代码:
    Private Sub Command1_Click()
    Dim msg As String
    CommonDialog1.FileName = "*.*"
    CommonDialog1.ShowOpen
    msg = "Long File Name: " & CommonDialog1.filename & vbCrLf
    msg = msg & "Short File Name: " & GetShortName(CommonDialog1.filename)
    MsgBox msg
    End Sub
  4. 通过按 F5 键运行该项目。单击命令按钮以显示打开对话框。定位打开对话框并找到具有长文件名的文件。选择该文件,然后单击确定。
  5. 消息框将显示以及其短文件名的长文件名。

以上内容来自:http://support.microsoft.com/kb/175512/zh-cn

Related Posts: VB-取短文件名路径 :