用VB函數Dir實現遞歸搜索目錄

我在很久以前就實現了這個方法了.它沒有采用任何的控件形式.也沒有調用系統API函數FindFirst,FindNext進行遞歸調用,和別人有點不同的就是我用的是VB中的Dir()函數.事實上,直接采用Dir()函數是不能進行自身的遞歸的調用的,但我們可以采用一種辦法把Dir將當前搜索目錄的子目錄給保存下來,然后在自身的search(strPathName)遞歸函數中依次進行遞歸的調用,這樣就可以把指定的目錄搜索完畢.

具體代碼如下:

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'函數GetExtName

'功能:得到文件后綴名(擴展名)

'輸入:文件名

'輸出:文件后綴名(擴展名)

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

PublicFunctionGetExtName(strFileNameAsString)AsString
DimstrTmpAsString
DimstrByteAsString
DimiAsLong
Fori=Len(strFileName)To1Step-1
strByte=Mid(strFileName,i,1)
IfstrByte<>"."Then
strTmp=strByte strTmp
Else
ExitFor
EndIf
Nexti
GetExtName=strTmp
EndFunction
PublicFunctionsearch(ByValstrPathAsString,OptionalstrSearchAsString="")AsBoolean
DimstrFileDir()AsString
DimstrFileAsString
DimiAsLong

DimlDirCountAsLong
OnErrorGoToMyErr
IfRight(strPath,1)<>"/"ThenstrPath=strPath "/"
strFile=Dir(strPath,vbDirectoryOrvbHiddenOrvbNormalOrvbReadOnly)
WhilestrFile<>""'搜索當前目錄
DoEvents
If(GetAttr(strPath strFile)AndvbDirectory)=vbDirectoryThen'如果找到的是目錄
IfstrFile<>"."AndstrFile<>".."Then'排除掉父目錄(..)和當前目錄(.)
lDirCount=lDirCount 1'將目錄數增1
ReDimEndIf
Else
IfstrSearch=""Then
Form1.List1.AddItemstrPath strFile
ElseIfLCase(GetExtName(strPath strFile))=LCase(GetExtName(strSearch))Then
'滿足搜索條件，則處理該文件
Form1.List1.AddItemstrPath strFile'將文件全名保存至列表框List1中
EndIf
EndIf
strFile=Dir
Wend
Fori=0TolDirCount-1
Form1.Label3.Caption=strPath strFileDir(i)
Callsearch(strPath strFileDir(i),strSearch)'遞歸搜索子目錄
Next
ReDimstrFileDir(0)'將動態數組清空
search=True'搜索成功
ExitFunction
MyErr:
search=False'搜索失敗
EndFunction