欢迎来到天天文库
浏览记录
ID:24771140
大小:55.50 KB
页数:4页
时间:2018-11-14
《含子目录的搜寻档案》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
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
此文档下载收益归作者所有