VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - VB中DOS文件名与长文件名的转换
发表评论(0)作者:, 平台:, 阅读:8844, 日期:2000-05-11
资料整理:影子 VB爱好者乐园 http://yingzi007.126.com


主题: VB中DOS文件名与长文件名的转换


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

  (马 麟)