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