如何获取从长文件名的短文件名

文章翻译 文章翻译
文章编号: 175512 - 查看本文应用于的产品
展开全部 | 关闭全部

本文内容

概要

在特定的情况下可能需要获得短文件名等效的具有长文件名的文件。下面的示例将允许您选择具有长文件名的文件,并返回它的使用 GetShortPathName API 函数调用的短文件名。

更多信息

下面的代码示例包含一个函数,该函数会将其等价的短文件名转换为长文件名,并还包括该函数的使用的简单演示。

分步示例

  1. 在 Visual Basic 中创建一个新的标准 EXE 项目。默认情况下创建 Form1。
  2. 将命令按钮放在 Form1 上。
  3. 将放置在窗体上的通用对话框控件。
  4. 插入 菜单选择要添加到项目的单个代码模块的 模块
  5. 将下面的代码添加到模块 1:
       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
    					
  6. 向 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
    					
  7. 通过按 F5 键运行项目。单击命令按钮以显示打开对话框中。导航打开对话框中,然后查找具有长文件名的文件。选择该文件,然后单击确定。
  8. 消息框将显示长文件名连同其短的文件名。

参考

有关更多的信息,请参阅下面 Microsoft 知识库中相应的文章:
154822如何获取从短文件名的长文件名

属性

文章编号: 175512 - 最后修改: 2005年3月11日 - 修订: 3.2
这篇文章中的信息适用于:
  • Microsoft Visual Basic Control Creation Edition
  • Microsoft Visual Basic 5.0 学习版
  • Microsoft Visual Basic 5.0 专业版
  • Microsoft Visual Basic 5.0 企业版
  • Microsoft Visual Basic 4.0 标准版
  • Microsoft Visual Basic 4.0 专业版
  • Microsoft Visual Basic 4.0 32-Bit Enterprise Edition
  • Microsoft Visual Basic 6.0 学习版
  • Microsoft Visual Basic 6.0 专业版
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
关键字:?
kbmt kbdocfix kbhowto KB175512 KbMtzh
机器翻译
注意:这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇,语法或文法的问题,就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量,但是我们不保证机器翻译的正确度,也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。
点击这里察看该文章的英文版: 175512
Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性,不作任何声明。 所有该等文件及有关图形均"依样"提供,而不带任何性质的保证。Microsoft和/或其各供应商特此声明,对所有与该等信息有关的保证和条件不负任何责任,该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下,在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中,Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。

提供反馈

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com