VB中DOS文件名与长文件名的转换

来源： 互联网 作者： 若水   2008-03-17/16:17

软件频道 编程学院 VB vb技巧 正文

• 文件
• 转换
• TEXT
• 一个
• dosfilename
• Sub

 自从进入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就可以看到转换结果了