資源描述：
《VB遍歷所有文件.doc》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。
1、垃圾百度文庫(kù),非說(shuō)我文檔質(zhì)量低,害我復(fù)制這么多,雙橫線以后是復(fù)制品,大家不用看這段代碼是我在網(wǎng)上找到的,速度很快,有需要的朋友保存下吧執(zhí)行前先加個(gè)command,一個(gè)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'搜索下一項(xiàng)LoopFori=0Toid
5、ir-1CallSosuoFile(MyPath+dir_i(i))NextiReDimdir_i(0)AsStringEndSub'附:'在這里可以處理目錄中的文件'Fn.Name'得到文件名'Fn.Size'得到文件大小'Fn.Path'得到文件路徑'Fn.Type'得到文件類(lèi)型'Fn.DateLastModified'得到文件最后的修改日期'調(diào)用方法'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
