从公共对话框控件中提取多个文件名称

-在VisualBasic程序中，公共文件对话框控件让用户很容易地选取一个或多个文件，文本将介绍如何从公共对话框控件中提取所选择的文件名称。

使用公共对话框控件

----VisualBasic的公共文件对话框控件允许程序员为用户提供对硬盘上的目录和文件结构进行访问。例如，如果用户需要选择一个文本文件，可以显示出一个公共文件对话框控件，以允许用户浏览各个目录，直至找到需要的文件位置。

----通过将公共对话框控件的Flags属性设置为常量值OFN_ALLOWMULTISELECT，可以使用户能够选择几个文件以进行工作。可以通过在按住ctrl键的同时单击每个文件名称来选中多个文件。这些被选中的文件名称将被高亮。

----为了使程序能够针对用户所选择的文件进行工作，需要从控件的Filename属性中提取每个文件的名称。所有被用户选中的文件名称都被作为一个长字符串而存储在该属性中。每个文件名称之间被一个空格字符分开。

----可以使用InStr函数来搜索分界的空格字符以从公共对话框的Filename属性中提取每个文件名称。该InStr函数返回在Filename属性字符串中空格字符的位置。得到空格字符的位置后，就可以使用Mid函数来将独立的文件名称从该字符串中移出。

样例程序

----该程序显示了如何提取在公共文件对话框控件中所有被选中的文件名称。步骤如下：

在VisualBasic中开始一个新的工程，采用缺省的方法建立Form1。

在Form1上添加一个公共对话框控件，采用缺省的方法建立CommonDialog1。

在Form1上添加一个文本框控件，采用缺省的方法建立Text1。

在Form1上添加第二个文本框控件，采用缺省的方法建立Text2。将它的MultiLine属性设置为True。

在Form1上添加一个命令按钮控件，采用缺省的方法建立Comand1。

将如下的代码添加到Command1的单击事件中：

PrivateSubCommand1_Click()
　　DimIAsInteger
　　DimYAsInteger
　　DimZAsInteger
　　DimFileNames$()
　　
　　ConstOFN_ALLOWMULTISELECT=&H200&
　　
　　CommonDialog1.filename=""
　　CommonDialog1.Filter="AllFiles|*.*"
　　CommonDialog1.Flags=OFN_ALLOWMULTISELECT
　　CommonDialog1.Action=1
　　
　　CommonDialog1.filename=CommonDialog1.filename&Chr(32)
　　
　　Z=1
　　ForI=1ToLen(CommonDialog1.filename)
　　　　I=InStr(Z,CommonDialog1.filename,Chr(32))
　　　　IfI=0ThenExitFor
　　　　ReDimPreserveFileNames(Y)
　　　　FileNames(Y)=Mid(CommonDialog1.filename,Z,I-Z)
　　　　Z=I 1
　　　　Y=Y 1
　　Next
　　
　　IfY=1Then
　　　　Text1.Text=FileNames(0)
　　Else
　　　　Text2.Text=""
　　　　ForI=0ToY-1
　　　　　　IfI=0Then
　　　　　　　　Text1.Text=FileNames(I)
　　　　　　Else
　　　　　　　　Text2.Text=Text2.Text&UCase(FileNames(I))
　　　　　　　　　　　　　　&Chr$(13)&Chr$(10)
　　　　　　EndIf
　　　　Next
　　EndIf
EndSub

----按下F5运行本程序，单击命令按钮。公共文件对话框控件将被显示在屏幕上。然后，从文件列表中选择几个文件名称，这可以通过在按住ctrl或shift键的同时单击文件的名称来实现，如图1所示。在选择了适当的文件之后，单击确定（OK），则文件名称将被显示在第二个文本框控件中，而目录的名称将被显示在第一个文本框控件中.->