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

Author: 马麟 Date: 2000年 第8期

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