第一章 入門篇

1.25 Dir語句

Dir可以返回一個(gè)指定文件夾下的文件名稱（包含后綴）,。例如：

filename = Dir('F:\VBA學(xué)習(xí)\')

這樣,，就會(huì)獲得'F:\VBA學(xué)習(xí)'目錄下的一個(gè)文件名，并把這個(gè)文件名賦值給filename變量,。

需要注意的是,，文件夾地址后面一定要加上'\',，否則“VBA學(xué)習(xí)”會(huì)被當(dāng)成一個(gè)文件名進(jìn)行處理，而不是當(dāng)成一個(gè)文件夾處理,。

Dir運(yùn)行一次只能得到一個(gè)文件名,，為了得到下一個(gè)文件名，代碼這樣寫：

filename = Dir

Dir后面不寫任何參數(shù),，就可以獲得'F:\VBA學(xué)習(xí)'目錄下的另一個(gè)文件名稱,。這時(shí)候有人問了，為什么不能像原來那樣filename = Dir('F:\VBA學(xué)習(xí)\')寫呢,？如果這樣寫,，則會(huì)重新掃描'F:\VBA學(xué)習(xí)'文件夾，又會(huì)得到第一個(gè)文件名,。

Dir配合do...loop循環(huán)語句,，就可以得到一個(gè)文件夾下的所有文件名。以下是通用模板：

sub 獲取文件名()

dim filename$

filename = Dir('F:\VBA學(xué)習(xí)\')

do

filename = Dir

loop until filename=''

end sub

首先用filename = Dir('F:\VBA學(xué)習(xí)\')這條語句把'F:\VBA學(xué)習(xí)'目錄下的第一個(gè)文件名稱賦值給filename變量,，算是對Dir語句的一個(gè)初始化,，然后用do loop循環(huán)讓Dir語句遍歷'F:\VBA學(xué)習(xí)'目錄下的所有文件后，找不到新文件了返回空值,，循環(huán)結(jié)束,。

Dir函數(shù)支持通配符，若只想找某一類型的文件,，就可以用通配符處理,，如”*.wps”、”??.xls”,。

例如：filename = Dir('F:\VBA學(xué)習(xí)\*.wps')

'獲得'F:\VBA學(xué)習(xí)'目錄下的后綴名為wps的所有文件

filename = Dir('F:\VBA學(xué)習(xí)\*VBA*.*')

'獲得'F:\VBA學(xué)習(xí)'目錄下的文件名稱包含“VBA”的所有文件

小程序：

查詢指定文件夾下的指定類型的文件,，把文件列表寫到表格里去。

我們可以在該表格下選擇三個(gè)單元格,，輸入以下內(nèi)容：

第一個(gè)單元格輸入“文件類型”,，第二個(gè)單元格建立一個(gè)下拉列表（選擇該單元格，點(diǎn)擊“數(shù)據(jù)”菜單,，選擇“下拉列表”,，列表數(shù)據(jù)源來源于另一列單元格），第三個(gè)單元格插入一個(gè)命令按鈕（選擇該單元格,，點(diǎn)擊“開發(fā)工具”,，選擇“命令按鈕”，然后沿該單元格邊框畫出命令按鈕形狀,，并把命令按鈕的Caption屬性,，也就是它的名稱，改為“查詢”）,，就象下面這樣：

[b10]單元格的數(shù)據(jù)源于E列,，在[c10]單元格插入了一個(gè)查詢按鈕,。

Sub Dir獲取文件名()

Dim 地址$, filename$, n%, 類型$

Range('a2:b8').Clear

地址 = 'F:\VBA學(xué)習(xí)\'

類型 = [b10] '選取文件類型

filename = Dir(地址 & '*' & 類型)

Do

n = n + 1

Cells(n + 1 , 1) = n

Cells(n + 1 , 2) = filename

filename = Dir

Loop Until filename = ''

End Sub

選取文件類型后，點(diǎn)擊查詢按鈕,，首先用filename = Dir(地址 & '*' & 類型)語句,，利用“*”通配符，把'F:\VBA學(xué)習(xí)\'目錄下的符合選取類型的第一個(gè)文件名稱賦值給filename變量,。然后Do Loop語句開始循環(huán),，n變量從0開始，Cells(2 , 1) = 1,，第二行第一個(gè)單元格的序號為1,，Cells(2 , 2) = filename,第二行第二個(gè)單元格的內(nèi)容為第一個(gè)文件名稱。接著filename = Dir語句獲取符合條件的第二個(gè)文件名稱,，再循環(huán)對第三行的單元格進(jìn)行賦值,。依次循環(huán)，就可以把該類型的文件名稱都寫入表格里了,。