-在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），則文件名稱將被顯示在第二個文本框控件中，而目錄的名稱將被顯示在第一個文本框控件中.->
