获得文件夹的文件名vb

《获得文件夹的文件名vb》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、OptionExplicit'*************************************************************************'**模块名：ModSearchFile'**说明：搜索文件'**创建人：嗷嗷叫的老马'**日期：2004年10月27日'**版本：V1.0'*************************************************************************PrivateFoundFile()AsString'存放传回值的字串阵列PrivateNtxAs

2、LongPublicFunctionSearchFileInPath(ByValthePathAsString,ByValtheFileNameAsString,OptionalByValmStopAsBoolean=False)AsString()'使用递归方式搜索文件'thePath-要搜索的目录'theFileName-文件名,支持通配符'mStop-T=找到一个就返回,F=返回所有找到的文件'返回值:'搜索到的文件IfRight(thePath,1)<>""ThenthePath=thePath&""CallGetFileLoop(thePat

3、h,theFileName,mStop)SearchFileInPath=FoundFileEndFunctionPrivateFunctionGetFileLoop(CurrentPathAsString,ByValSearFileAsString,OptionalByValmStopAsBoolean=False)AsStringDimnIAsInteger,nDirectoryAsInteger,IAsLongDimsFileNameAsString,sDirectoryList()AsStringOnErrorResumeNextsFileName

4、=Dir(CurrentPath,vbHiddenOrvbDirectoryOrvbReadOnlyOrvbSystem)DoWhilesFileName<>""IfUCase(sFileName)LikeUCase(SearFile)ThenI=GetAttr(CurrentPath+sFileName)If(IAndvbDirectory)=0ThenIfmStop=FalseThenReDimPreserveFoundFile(Ntx)FoundFile(Ntx)=CurrentPath+sFileNameNtx=Ntx+1ElseGetFileLo

5、op=CurrentPath+sFileNameExitFunctionEndIfEndIfEndIfIfsFileName<>"."AndsFileName<>".."ThenIfGetAttr(CurrentPath&sFileName)_AndvbDirectoryThennDirectory=nDirectory+1ReDimPreservesDirectoryList(nDirectory)sDirectoryList(nDirectory)=CurrentPath&sFileNameEndIfEndIfsFileName=DirLoopForn

6、I=1TonDirectoryGetFileLoop=GetFileLoop(sDirectoryList(nI)&"",SearFile)IfGetFileLoop<>""AndmStop=TrueThenExitForNextnIEndFunction