VB遍历所有文件Word版

1、传播优秀Word版文档 ，希望对您有帮助，可双击去除！垃圾百度文库,非说我文档质量低,害我复制这么多,双横线以后是复制品,大家不用看这段代码是我在网上找到的,速度很快,有需要的朋友保存下吧执行前先加个command,一个listbox遍历文件夹Private Sub ShowFolderList(folderspec) Dim fs, f, f1, s, sf Dim hs, h, h1, hf Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set sf = f.SubFol

2、ders For Each f1 In sf List1.AddItem folderspec & & f1.Name Call ShowFolderList(folderspec & & f1.Name) NextEnd Sub遍历某文件夹下的文件Private Sub Showfilelist(folderspec) Dim fs, f, f1, fc, s Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set fc = f.Files For Each f1 In fc

3、 List1.AddItem f1.Name NextEnd Sub遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String)Dim Myname As StringDim a As StringDim 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 Myn

4、ame If Myname . And Myname . Then传播优秀Word版文档 ，希望对您有帮助，可双击去除！If (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then 如果找到的是目录idir = idir + 1ReDim Preserve dir_i(idir) As Stringdir_i(idir - 1) = MynameElseList1.AddItem MyPath & Myname 把找到的文件显示到列表框中End IfEnd IfMyname = Dir 搜索下一项LoopFor i = 0 T

5、o 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) 查找目录+文件遍历文件夹Private Sub ShowFolderList(folders

6、pec) Dim fs, f, f1, s, sf Dim hs, h, h1, hf Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set sf = f.SubFolders For Each f1 In sf List1.AddItem folderspec & & f1.Name Call ShowFolderList(folderspec & & f1.Name) Next传播优秀Word版文档 ，希望对您有帮助，可双击去除！End Sub遍历某文件夹下的文件Priv

7、ate Sub Showfilelist(folderspec) Dim fs, f, f1, fc, s Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set fc = f.Files For Each f1 In fc List1.AddItem f1.Name NextEnd Sub遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String)Dim Myname As StringDim a As StringDim B() As S

8、tringDim 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) = vbDirectory Then 如果找到的是目录idir = idir + 1ReDim Pr

9、eserve 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传播优秀Word版文档 ，希望对您有帮助，可双击去除！附: 在这里可以处理目录中的文件 Fn.Name 得到文件名 Fn.Size 得到文件大小 Fn.P

10、ath 得到文件路径 Fn.Type 得到文件类型 Fn.DateLastModified 得到文件最后的修改日期调用方法ShowFolderList (c:a) 查找目录Showfilelist (c:a) 查找文件SosuoFile (c:a) 查找目录+文件遍历文件夹Private Sub ShowFolderList(folderspec) Dim fs, f, f1, s, sf Dim hs, h, h1, hf Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Se

11、t sf = f.SubFolders For Each f1 In sf List1.AddItem folderspec & & f1.Name Call ShowFolderList(folderspec & & f1.Name) NextEnd Sub遍历某文件夹下的文件Private Sub Showfilelist(folderspec) Dim fs, f, f1, fc, s Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set fc = f.Files Fo

12、r Each f1 In fc List1.AddItem f1.Name NextEnd Sub遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String)传播优秀Word版文档 ，希望对您有帮助，可双击去除！Dim Myname As StringDim a As StringDim B() As StringDim dir_i() As StringDim i, idir As LongIf Right(MyPath, 1) Then MyPath = MyPath + Myname = Dir(MyPath, vbDirectory Or vbHid

13、den Or vbNormal Or vbReadOnly)Do While Myname If Myname . And Myname . ThenIf (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then 如果找到的是目录idir = idir + 1ReDim Preserve dir_i(idir) As Stringdir_i(idir - 1) = MynameElseList1.AddItem MyPath & Myname 把找到的文件显示到列表框中End IfEnd IfMyname = Dir 搜索下一项

14、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) 查找目录+文件遍历文件夹Private Sub ShowFol

15、derList(folderspec) Dim fs, f, f1, s, sf传播优秀Word版文档 ，希望对您有帮助，可双击去除！ Dim hs, h, h1, hf Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set sf = f.SubFolders For Each f1 In sf List1.AddItem folderspec & & f1.Name Call ShowFolderList(folderspec & & f1.Name) NextEnd Su

16、b遍历某文件夹下的文件Private Sub Showfilelist(folderspec) Dim fs, f, f1, fc, s Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set fc = f.Files For Each f1 In fc List1.AddItem f1.Name NextEnd Sub遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String)Dim Myname As StringDim a As Str

17、ingDim 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) = vbDirectory Then 如果找到的是目录idir = i

18、dir + 1ReDim Preserve dir_i(idir) As Stringdir_i(idir - 1) = MynameElseList1.AddItem MyPath & Myname 把找到的文件显示到列表框中传播优秀Word版文档 ，希望对您有帮助，可双击去除！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.S

19、ize 得到文件大小 Fn.Path 得到文件路径 Fn.Type 得到文件类型 Fn.DateLastModified 得到文件最后的修改日期调用方法ShowFolderList (c:a) 查找目录Showfilelist (c:a) 查找文件SosuoFile (c:a) 查找目录+文件遍历文件夹Private Sub ShowFolderList(folderspec) Dim fs, f, f1, s, sf Dim hs, h, h1, hf Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder

20、(folderspec) Set sf = f.SubFolders For Each f1 In sf List1.AddItem folderspec & & f1.Name Call ShowFolderList(folderspec & & f1.Name) NextEnd Sub遍历某文件夹下的文件Private Sub Showfilelist(folderspec) Dim fs, f, f1, fc, s Set fs = CreateObject(Scripting.FileSystemObject)传播优秀Word版文档 ，希望对您有帮助，可双击去除！ Set f = fs

21、.GetFolder(folderspec) Set fc = f.Files For Each f1 In fc List1.AddItem f1.Name NextEnd Sub遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String)Dim Myname As StringDim a As StringDim B() As StringDim dir_i() As StringDim i, idir As LongIf Right(MyPath, 1) Then MyPath = MyPath + Myname = Dir(MyPath, vbDir

22、ectory Or vbHidden Or vbNormal Or vbReadOnly)Do While Myname If Myname . And Myname . ThenIf (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then 如果找到的是目录idir = idir + 1ReDim Preserve dir_i(idir) As Stringdir_i(idir - 1) = MynameElseList1.AddItem MyPath & Myname 把找到的文件显示到列表框中End IfEnd IfMyn

23、ame = 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 得到文件类型传播优秀Word版文档 ，希望对您有帮助，可双击去除！ Fn.DateLastModified 得到文件最后的修改日期调用方法ShowFolderList (c:a) 查找目录Showfilelist (c:a) 查找文件Sosuo

24、File (c:a) 查找目录+文件遍历文件夹Private Sub ShowFolderList(folderspec) Dim fs, f, f1, s, sf Dim hs, h, h1, hf Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set sf = f.SubFolders For Each f1 In sf List1.AddItem folderspec & & f1.Name Call ShowFolderList(folderspec & & f1.N

25、ame) NextEnd Sub遍历某文件夹下的文件Private Sub Showfilelist(folderspec) Dim fs, f, f1, fc, s Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set fc = f.Files For Each f1 In fc List1.AddItem f1.Name NextEnd Sub遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String)Dim Myname As Str

26、ingDim a As StringDim 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)传播优秀Word版文档 ，希望对您有帮助，可双击去除！Do While Myname If Myname . And Myname . ThenIf (GetAttr(MyPath & Myname) And vbDire

27、ctory) = vbDirectory 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.

28、Name 得到文件名 Fn.Size 得到文件大小 Fn.Path 得到文件路径 Fn.Type 得到文件类型 Fn.DateLastModified 得到文件最后的修改日期调用方法ShowFolderList (c:a) 查找目录Showfilelist (c:a) 查找文件SosuoFile (c:a) 查找目录+文件遍历文件夹Private Sub ShowFolderList(folderspec) Dim fs, f, f1, s, sf Dim hs, h, h1, hf Set fs = CreateObject(Scripting.FileSystemObject) Set f

29、 = fs.GetFolder(folderspec) Set sf = f.SubFolders For Each f1 In sf List1.AddItem folderspec & & f1.Name传播优秀Word版文档 ，希望对您有帮助，可双击去除！ Call ShowFolderList(folderspec & & f1.Name) NextEnd Sub遍历某文件夹下的文件Private Sub Showfilelist(folderspec) Dim fs, f, f1, fc, s Set fs = CreateObject(Scripting.FileSystemObj

30、ect) Set f = fs.GetFolder(folderspec) Set fc = f.Files For Each f1 In fc List1.AddItem f1.Name NextEnd Sub遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String)Dim Myname As StringDim a As StringDim B() As StringDim dir_i() As StringDim i, idir As LongIf Right(MyPath, 1) Then MyPath = MyPath + Myname = Di

31、r(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)Do While Myname If Myname . And Myname . ThenIf (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then 如果找到的是目录idir = idir + 1ReDim Preserve dir_i(idir) As Stringdir_i(idir - 1) = MynameElseList1.AddItem MyPath & Myname 把找到的文件显示到列表框中

32、End IfEnd IfMyname = Dir 搜索下一项LoopFor i = 0 To idir - 1Call SosuoFile(MyPath + dir_i(i)Next i传播优秀Word版文档 ，希望对您有帮助，可双击去除！ReDim dir_i(0) As StringEnd Sub附: 在这里可以处理目录中的文件 Fn.Name 得到文件名 Fn.Size 得到文件大小 Fn.Path 得到文件路径 Fn.Type 得到文件类型 Fn.DateLastModified 得到文件最后的修改日期调用方法ShowFolderList (c:a) 查找目录Showfilelist

33、(c:a) 查找文件SosuoFile (c:a) 查找目录+文件遍历文件夹Private Sub ShowFolderList(folderspec) Dim fs, f, f1, s, sf Dim hs, h, h1, hf Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set sf = f.SubFolders For Each f1 In sf List1.AddItem folderspec & & f1.Name Call ShowFolderList(fold

34、erspec & & f1.Name) NextEnd Sub遍历某文件夹下的文件Private Sub Showfilelist(folderspec) Dim fs, f, f1, fc, s Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set fc = f.Files For Each f1 In fc List1.AddItem f1.Name NextEnd Sub传播优秀Word版文档 ，希望对您有帮助，可双击去除！遍历某文件夹及子文件夹中的所有文件Sub So

35、suoFile(MyPath As String)Dim Myname As StringDim a As StringDim 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 & Myn

36、ame) And vbDirectory) = vbDirectory 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附: 在这

37、里可以处理目录中的文件 Fn.Name 得到文件名 Fn.Size 得到文件大小 Fn.Path 得到文件路径 Fn.Type 得到文件类型 Fn.DateLastModified 得到文件最后的修改日期调用方法ShowFolderList (c:a) 查找目录Showfilelist (c:a) 查找文件SosuoFile (c:a) 查找目录+文件传播优秀Word版文档 ，希望对您有帮助，可双击去除！遍历文件夹Private Sub ShowFolderList(folderspec) Dim fs, f, f1, s, sf Dim hs, h, h1, hf Set fs = Crea

38、teObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set sf = f.SubFolders For Each f1 In sf List1.AddItem folderspec & & f1.Name Call ShowFolderList(folderspec & & f1.Name) NextEnd Sub遍历某文件夹下的文件Private Sub Showfilelist(folderspec) Dim fs, f, f1, fc, s Set fs = CreateObject(Scriptin

39、g.FileSystemObject) Set f = fs.GetFolder(folderspec) Set fc = f.Files For Each f1 In fc List1.AddItem f1.Name NextEnd Sub遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String)Dim Myname As StringDim a As StringDim B() As StringDim dir_i() As StringDim i, idir As LongIf Right(MyPath, 1) Then MyPath = MyPat

40、h + Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)Do While Myname If Myname . And Myname . ThenIf (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then 如果找到的是目录idir = idir + 1ReDim Preserve dir_i(idir) As Stringdir_i(idir - 1) = MynameElse传播优秀Word版文档 ，希望对您有帮助，可双击去除！L

41、ist1.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) 查找

42、目录Showfilelist (c:a) 查找文件SosuoFile (c:a) 查找目录+文件遍历文件夹Private Sub ShowFolderList(folderspec) Dim fs, f, f1, s, sf Dim hs, h, h1, hf Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set sf = f.SubFolders For Each f1 In sf List1.AddItem folderspec & & f1.Name Call Show

43、FolderList(folderspec & & f1.Name) NextEnd Sub遍历某文件夹下的文件传播优秀Word版文档 ，希望对您有帮助，可双击去除！Private Sub Showfilelist(folderspec) Dim fs, f, f1, fc, s Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set fc = f.Files For Each f1 In fc List1.AddItem f1.Name NextEnd Sub遍历某文件夹及子

44、文件夹中的所有文件Sub SosuoFile(MyPath As String)Dim Myname As StringDim a As StringDim 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 (GetAt

45、tr(MyPath & Myname) And vbDirectory) = vbDirectory 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 Str

46、ingEnd Sub附: 在这里可以处理目录中的文件 Fn.Name 得到文件名传播优秀Word版文档 ，希望对您有帮助，可双击去除！ Fn.Size 得到文件大小 Fn.Path 得到文件路径 Fn.Type 得到文件类型 Fn.DateLastModified 得到文件最后的修改日期调用方法ShowFolderList (c:a) 查找目录Showfilelist (c:a) 查找文件SosuoFile (c:a) 查找目录+文件遍历文件夹Private Sub ShowFolderList(folderspec) Dim fs, f, f1, s, sf Dim hs, h, h1, h

47、f Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set sf = f.SubFolders For Each f1 In sf List1.AddItem folderspec & & f1.Name Call ShowFolderList(folderspec & & f1.Name) NextEnd Sub遍历某文件夹下的文件Private Sub Showfilelist(folderspec) Dim fs, f, f1, fc, s Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set fc = f.Files For Ea