含子目录的搜寻档案

《含子目录的搜寻档案》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、含子目录的搜寻档案标题：非递回、无使用界面的档案搜寻一般来说，搜寻目录及子目录底下符合条件之所有档案功能的程式撰写，一向颇令人头疼，而最後的解决方式多用Recursive(程式递回呼叫)来解决，像VB5.0所附的odule及Class里，一样可以执行(程式里的ListBox及MsgBox只是为了解说方便而已，实际的资料已放入FilePackage这个动态阵列里，可以Index取用。)当然你不能拿e.MousePointer=11'--------以下搜寻C碟里所有的目录-----------------'直到目录指位器I超过目录

2、上限指标J才结束搜寻Doe.MousePointer=0IfK=0ThenMsgBox"没有"SearchString"的档案"Else'以下将结果输出到列示盒里ForI=0ToUBound(FilePackage)List1.AddItemFilePackage(I)DoEventsNextMsgBox"总共找到"UBound(FilePackage)+1"个档案"EndIfEndSub以下有Recursive作法，本人测试发现Recursive的作法略快一些，原因可能出在ReDimPreserveDirPackage与ReD

3、imPreservesDirectoryList上，前者一直动态新增目录字串(如果c:之下含目录下的子目录一共100个，那这个阵列便会有100的大小)，而後者Recursive的作法则不同，它动态目录的最大值则是含有最大子目录数的那个目录中，子目录之数目(如：c:andBoxPrivateFoundFile()asString'存放传回值的字串阵列PrivatentxAsLongPrivateSubmand1_Click()ntx=0CallGetDirPath("c:","*.ini")EndSubPrivateSubG

4、etDirPath(CurrentPathAsString,ByValSearFileAsString)DimnIAsInteger,nDirectoryAsInteger,iAsLongDimsFileNameAsString,sDirectoryList()AsString'FirstlistallnormalfilesinthisdirectorysFileName=Dir(CurrentPath,vbHiddenOrvbDirectoryOrvbReadOnlyOrvbSystem)Doe<>""IfUCas

5、e(sFileName)LikeUCase(SearFile)Theni=GetAttr(CurrentPath+sFileName)If(iAndvbDirectory)=0ThenReDimPreserveFoundFile(ntx)FoundFile(ntx)=CurrentPath+sFileNamentx=ntx+1EndIfEndIfIfsFileName<>"."AndsFileName<>".."Then'IgnorenondirectoriesIfGetAttr(CurrentPaths

6、FileName)_AndvbDirectoryThennDirectory=nDirectory+1ReDimPreservesDirectoryList(nDirectory)sDirectoryList(nDirectory)=CurrentPathsFileNameEndIfEndIfsFileName=DirLoop'RecursivelyprocesseachdirectoryFornI=1TonDirectoryGetDirPathsDirectoryList(nI)"",SearFileNextnIEndSub