《VB代码遍历某文件夹及子文件夹中的所有文件.docx》由会员分享，可在线阅读，更多相关《VB代码遍历某文件夹及子文件夹中的所有文件.docx（4页珍藏版）》请在三一办公上搜索。
1、VB代码遍历某文件夹及子文件夹中的所有文件遍历文件夹Private Sub ShowFolderList(folderspec)Dim fs, f, f1, s, sfDim hs, h, h1, hfSet fs = CreateObject(Scripting.FileSystemObject)Set f = fs.GetFolder(folderspec)Set sf = f.SubFoldersFor Each f1 In sfList1.AddItem folderspec & & f1.NameCall ShowFolderList(folderspec & & f1.Name)N
2、extEnd Sub遍历某文件夹下的文件Private Sub Showfilelist(folderspec)Dim fs, f, f1, fc, sSet fs = CreateObject(Scripting.FileSystemObject)Set f = fs.GetFolder(folderspec)Set fc = f.FilesFor Each f1 In fcList1.AddItem f1.NameNextEnd Sub遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String)Dim Myname As StringDim a As S
3、tringDim B As StringDim dir_i As StringDim i, idir As LongIf Right(MyPath, 1) <> Then MyPath = MyPath + Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)Do While Myname <> If Myname <> . And Myname <> . ThenIf (GetAttr(MyPath & Myname) And vbDirectory) = vbDirec
4、tory Then 如果找到的是目录idir = idir + 1ReDim Preserve dir_i(idir) As Stringdir_i(idir - 1) = MynameElseList1.AddItem MyPath & Myname 把找到的文件显示到列表框中End IfEnd IfMyname = Dir 搜索下一项LoopFor i = 0 To idir - 1Call SosuoFile(MyPath + dir_i(i)Next iReDim dir_i(0) As StringEnd Sub附:在这里可以处理目录中的文件Fn.Name 得到文件名Fn.Size 得到文件大小Fn.Path 得到文件路径Fn.Type 得到文件类型Fn.DateLastModified 得到文件最后的修改日期调用方法ShowFolderList (c:a) 查找目录Showfilelist (c:a) 查找文件SosuoFile (c:a) 查找目录+文件
