资源描述：
《VB遍历所有文件.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、垃圾百度文库,非说我文档质量低,害我复制这么多,双横线以后是复制品,大家不用看这段代码是我在网上找到的,速度很快,有需要的朋友保存下吧执行前先加个command,一个listbox'遍历文件夹PrivateSubShowFolderList(folderspec)Dimfs,f,f1,s,sfDimhs,h,h1,hfSetfs=CreateObject("Scripting.FileSystemObject")Setf=fs.GetFolder(folderspec)Setsf=f.SubFoldersForE
2、achf1InsfList1.AddItemfolderspec&""&f1.NameCallShowFolderList(folderspec&""&f1.Name)NextEndSub'遍历某文件夹下的文件PrivateSubShowfilelist(folderspec)Dimfs,f,f1,fc,sSetfs=CreateObject("Scripting.FileSystemObject")Setf=fs.GetFolder(folderspec)Setfc=f.FilesForEachf1Infc
3、List1.AddItemf1.NameNextEndSub'遍历某文件夹及子文件夹中的所有文件SubSosuoFile(MyPathAsString)DimMynameAsStringDimaAsStringDimB()AsStringDimdir_i()AsStringDimi,idirAsLongIfRight(MyPath,1)<>""ThenMyPath=MyPath+""Myname=Dir(MyPath,vbDirectoryOrvbHiddenOrvbNormalOrvbReadOnly)Do
4、WhileMyname<>""IfMyname<>"."AndMyname<>".."ThenIf(GetAttr(MyPath&Myname)AndvbDirectory)=vbDirectoryThen'如果找到的是目录idir=idir+1ReDimPreservedir_i(idir)AsStringdir_i(idir-1)=MynameElseList1.AddItemMyPath&Myname'把找到的文件显示到列表框中EndIfEndIfMyname=Dir'搜索下一项LoopFori=0Toid
5、ir-1CallSosuoFile(MyPath+dir_i(i))NextiReDimdir_i(0)AsStringEndSub'附:'在这里可以处理目录中的文件'Fn.Name'得到文件名'Fn.Size'得到文件大小'Fn.Path'得到文件路径'Fn.Type'得到文件类型'Fn.DateLastModified'得到文件最后的修改日期'调用方法'ShowFolderList("c:a")查找目录'Showfilelist("c:a")查找文件'SosuoFile("c:a")查找目录+文件'遍历
6、文件夹PrivateSubShowFolderList(folderspec)Dimfs,f,f1,s,sfDimhs,h,h1,hfSetfs=CreateObject("Scripting.FileSystemObject")Setf=fs.GetFolder(folderspec)Setsf=f.SubFoldersForEachf1InsfList1.AddItemfolderspec&""&f1.NameCallShowFolderList(folderspec&""&f1.Name)NextEnd
7、Sub'遍历某文件夹下的文件PrivateSubShowfilelist(folderspec)Dimfs,f,f1,fc,sSetfs=CreateObject("Scripting.FileSystemObject")Setf=fs.GetFolder(folderspec)Setfc=f.FilesForEachf1InfcList1.AddItemf1.NameNextEndSub'遍历某文件夹及子文件夹中的所有文件SubSosuoFile(MyPathAsString)DimMynameAsString
8、DimaAsStringDimB()AsStringDimdir_i()AsStringDimi,idirAsLongIfRight(MyPath,1)<>""ThenMyPath=MyPath+""Myname=Dir(MyPath,vbDirectoryOrvbHiddenOrvbNormalOrvbReadOnly)DoWhileMyname<>""IfMyna
