從公共對話框控件中提取多個(gè)文件名稱

2019-11-18 17:28:33

字體：大中小

供稿：網(wǎng)友

-在VisualBasic程序中，公共文件對話框控件讓用戶很容易地選取一個(gè)或多個(gè)文件，文本將介紹如何從公共對話框控件中提取所選擇的文件名稱。

使用公共對話框控件

----VisualBasic的公共文件對話框控件允許程序員為用戶提供對硬盤上的目錄和文件結(jié)構(gòu)進(jìn)行訪問。例如，如果用戶需要選擇一個(gè)文本文件，可以顯示出一個(gè)公共文件對話框控件，以允許用戶瀏覽各個(gè)目錄，直至找到需要的文件位置。

----通過將公共對話框控件的Flags屬性設(shè)置為常量值OFN_ALLOWMULTISELECT，可以使用戶能夠選擇幾個(gè)文件以進(jìn)行工作?？梢酝ㄟ^在按住ctrl鍵的同時(shí)單擊每個(gè)文件名稱來選中多個(gè)文件。這些被選中的文件名稱將被高亮。

----為了使程序能夠針對用戶所選擇的文件進(jìn)行工作，需要從控件的Filename屬性中提取每個(gè)文件的名稱。所有被用戶選中的文件名稱都被作為一個(gè)長字符串而存儲(chǔ)在該屬性中。每個(gè)文件名稱之間被一個(gè)空格字符分開。

----可以使用InStr函數(shù)來搜索分界的空格字符以從公共對話框的Filename屬性中提取每個(gè)文件名稱。該InStr函數(shù)返回在Filename屬性字符串中空格字符的位置。得到空格字符的位置后，就可以使用Mid函數(shù)來將獨(dú)立的文件名稱從該字符串中移出。

樣例程序

----該程序顯示了如何提取在公共文件對話框控件中所有被選中的文件名稱。步驟如下：

在VisualBasic中開始一個(gè)新的工程，采用缺省的方法建立Form1。

在Form1上添加一個(gè)公共對話框控件，采用缺省的方法建立CommonDialog1。

在Form1上添加一個(gè)文本框控件，采用缺省的方法建立Text1。

在Form1上添加第二個(gè)文本框控件，采用缺省的方法建立Text2。將它的MultiLine屬性設(shè)置為True。

在Form1上添加一個(gè)命令按鈕控件，采用缺省的方法建立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運(yùn)行本程序，單擊命令按鈕。公共文件對話框控件將被顯示在屏幕上。然后，從文件列表中選擇幾個(gè)文件名稱，這可以通過在按住ctrl或shift鍵的同時(shí)單擊文件的名稱來實(shí)現(xiàn)，如圖1所示。在選擇了適當(dāng)?shù)奈募螅瑔螕舸_定（OK），則文件名稱將被顯示在第二個(gè)文本框控件中，而目錄的名稱將被顯示在第一個(gè)文本框控件中.->

上一篇：ODBCAPI的VBSample

下一篇：移動(dòng)文件到回收站