用VB函數(shù)Dir實現(xiàn)遞歸搜索目錄

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

具體代碼如下:

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

'函數(shù)GetExtName

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

'輸入:文件名

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

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

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<>""'搜索當(dāng)前目錄
DoEvents
If(GetAttr(strPath strFile)AndvbDirectory)=vbDirectoryThen'如果找到的是目錄
IfstrFile<>"."AndstrFile<>".."Then'排除掉父目錄(..)和當(dāng)前目錄(.)
lDirCount=lDirCount 1'將目錄數(shù)增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)'將動態(tài)數(shù)組清空
search=True'搜索成功
ExitFunction
MyErr:
search=False'搜索失敗
EndFunction