代码 FunctionSearchFiles(PathAsString,FileTypeAsString)
OnErrorGoToErrMsg
DimFiles()AsString'文件路径
DimFolder()AsString'文件夹路径
Dima,b,cAsLong
DimsPathAsString
IfRight(Path,1)<>"\"ThenPath=Path&"\"
sPath=Dir(Path&FileType)'查找第一个文件
DoWhileLen(sPath)'循环到没有文件为止
a=a+1
ReDimPreserveFiles(1Toa)
Files(a)=Path&sPath'将文件目录和文件名组合,并存放到数组中
listFileName.AddItemFiles(a)'加入list控件中
sPath=Dir'查找下一个文件
DoEvents'让出控制权
Loop
sPath=Dir(Path&"\",vbDirectory)'查找第一个文件夹
DoWhileLen(sPath)'循环到没有文件夹为止
IfLeft(sPath,1)<>"."Then'为了防止重复查找
IfGetAttr(Path&"\"&sPath)AndvbDirectoryThen'如果是文件夹则。。。。。。
b=b+1
ReDimPreserveFolder(1Tob)
Folder(b)=Path&sPath&"\"'将目录和文件夹名称组合形成新的目录,并存放到数组中
EndIf
EndIf
sPath=Dir'查找下一个文件夹
DoEvents'让出控制权
Loop
Forc=1Tob'使用递归方法,遍历所有目录
SearchFilesFolder(c),FileType
Next
ErrMsg:
EndFunction