VB遍历文件目录的实现方法总结.docx

VB遍历文件目录的实现方法总结

第一篇：VB遍历文件目录的实现方法总结VB遍历文件目录的实现方法总结2009-04-2520:44VB遍历文件夹的实现方法总结一共三种，如下：使用FSO对象模型'==============================='描述：需要Scripting类型库（Scrrun.dll）支持。实际使用时需要引用MicrosoftScriptingRuntime'优点：测试当中没有错误。可以检测隐藏文件。'示例：一个文本标签、一个ListBox、一个命令按钮。都取默认名称即可'===============================DimfsoAsNewFileSystemObjectDimfldAsFolderPrivateSubCommand1_Click()DimnDirsAsLong,nFilesAsLong,lSizeAsCurrencyDimsDirAsString,sSrchStringAsStringsDir=InputBox(“Typethedirectorythatyouwanttosearchfor”,_“FileSystemObjectsexample”,“C:”)sSrchString=InputBox(“Typethefilenamethatyouwanttosearchfor”,_“FileSystemObjectsexample”,“vb.ini”)MousePointer=vbHourglassLabel1.Caption=“Searching”&vbCrLf&UCase(sDir)&“...”lSize=FindFile(sDir,sSrchString,nDirs,nFiles)MousePointer=vbDefaultMsgBoxStr(nFiles)&“filesfoundin”&Str(nDirs)&_“directories”,vbInformationMsgBox“TotalSize=”&lSize&“bytes”EndSubPrivateFunctionFindFile(ByValsFolAsString,sFileAsString,_nDirsAsLong,nFilesAsLong)AsCurrencyDimtFldAsFolder,tFilAsFile,FileNameAsStringOnErrorGoToCatchSetfld=fso.GetFolder(sFol)FileName=Dir(fso.BuildPath(fld.Path,sFile),vbNormalOr_vbHiddenOrvbSystemOrvbReadOnly)WhileLen(FileName)0FindFile=FindFile+FileLen(fso.BuildPath(fld.Path,_FileName))nFiles=nFiles+1List1.AddItemfso.BuildPath(fld.Path,FileName)'LoadListBoxFileName=Dir()'GetnextfileDoEventsWendLabel1=“Searching”&vbCrLf&fld.Path&“...”nDirs=nDirs+1Iffld.SubFolders.Count>0ThenForEachtFldInfld.SubFoldersDoEventsFindFile=FindFile+FindFile(tFld.Path,sFile,nDirs,nFiles)NextEndIfExitFunctionCatch:FileName=“"ResumeNextEndFunctionApi方法'=================================='描述：使用Api。'备注：使用过程中出现错误。未加分析。忽略错误即可。'可查看隐藏文件。'示例：2个listbox、2个命令按钮、6个文本框、一个模块==================================='模块代码OptionExplicitDeclareFunctionFindFirstFileLib”kernel32“Alias_”FindFirstFileA“(ByVallpFileNameAsString,lpFindFileData_AsWIN32_FIND_DATA)AsLongDeclareFunctionFindNextFileLib”kernel32“Alias”FindNextFileA“_(ByValhFindFileAsLong,lpFindFileDataAsWIN32_FIND_DATA)AsLongDeclareFunctionGetFileAttribute