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)

2、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.filesystemobjec

3、t") 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) <> "" the

4、n mypath = mypath + ""myname = dir(mypath, vbdirectory or vbhidden or vbnormal or vbreadonly)do while myname <> ""if myname <> "." and myname <> "." then传播优秀word版文档 ，希望对您有帮助，可双击去除！if (getattr(mypath & myname) and vbdirectory) = vbdirector

5、y 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'附: '在这里可以处理

6、目录中的文件 'fn.name '得到文件名 'fn.size '得到文件大小 'fn.path '得到文件路径 'fn.type '得到文件类型 'fn.datelastmodified '得到文件最后的修改日期'调用方法'showfolderlist ("c:a") 查找目录'showfilelist ("c:a") 查找文件'sosuofile ("c:a") 查找目录+文件'遍历文件夹private sub

7、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 & &quo

8、t;" & f1.name) next传播优秀word版文档 ，希望对您有帮助，可双击去除！end 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&#

9、39;遍历某文件夹及子文件夹中的所有文件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

10、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 '把

11、找到的文件显示到列表框中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.path '得到文件路径 'fn.type '得到文件类型 'f

12、n.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.filesyst

13、emobject") 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

14、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)传播优秀word版文档 ，希望对您有帮助，可双击去除！dim myname as stringdim a as stringdim b() as stringdim dir_i

15、() 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(m

16、ypath & 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 ire

17、dim dir_i(0) as stringend sub'附: '在这里可以处理目录中的文件 'fn.name '得到文件名 'fn.size '得到文件大小 'fn.path '得到文件路径 'fn.type '得到文件类型 'fn.datelastmodified '得到文件最后的修改日期'调用方法'showfolderlist ("c:a") 查找目录'showfilelist ("c:a") 查找文件'sosuofil

18、e ("c:a") 查找目录+文件'遍历文件夹private sub showfolderlist(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 folderspe

19、c & "" & 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

20、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, vbdirector

21、y 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) = m

22、ynameelselist1.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.size '得到文件大小 'fn

23、.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,

24、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 sub'遍历某文件夹下的文件private sub s

25、howfilelist(folderspec) dim fs, f, f1, fc, s set fs = createobject("scripting.filesystemobject")传播优秀word版文档 ，希望对您有帮助，可双击去除！ 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 a

26、s 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 <> "." an

27、d 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 '搜索下一项loopfor i = 0 to

28、 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

29、 ("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) set sf = f.sub

30、folders 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

31、 = 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 = myp

32、ath + ""myname = dir(mypath, vbdirectory or vbhidden or vbnormal or vbreadonly)传播优秀word版文档 ，希望对您有帮助，可双击去除！do while myname <> ""if myname <> "." and myname <> "." thenif (getattr(mypath & myname) and vbdirectory) = vbdirectory then '如果

33、找到的是目录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

34、.name '得到文件名 'fn.size '得到文件大小 'fn.path '得到文件路径 'fn.type '得到文件类型 'fn.datelastmodified '得到文件最后的修改日期'调用方法'showfolderlist ("c:a") 查找目录'showfilelist ("c:a") 查找文件'sosuofile ("c:a") 查找目录+文件'遍历文件夹private sub showfolderlist

35、(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传播优秀word版文档 ，希望对您有帮助，可双击去除！ call showfolderlist(foldersp

36、ec & "" & 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'遍历某文件夹及子文件夹

37、中的所有文件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 <>

38、; ""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 '把找到的文件显示到列表框中en

39、d 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.datelastmodi

40、fied '得到文件最后的修改日期'调用方法'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"

41、) 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 = createobj

42、ect("scripting.filesystemobject") set f = fs.getfolder(folderspec) set fc = f.files for each f1 in fc list1.additem f1.name nextend sub传播优秀word版文档 ，希望对您有帮助，可双击去除！'遍历某文件夹及子文件夹中的所有文件sub sosuofile(mypath as string)dim myname as stringdim a as stringdim b() as stringdim dir_i() as stringdi

43、m 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 & my

44、name) 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) a

45、s stringend sub'附: '在这里可以处理目录中的文件 'fn.name '得到文件名 'fn.size '得到文件大小 'fn.path '得到文件路径 'fn.type '得到文件类型 'fn.datelastmodified '得到文件最后的修改日期'调用方法'showfolderlist ("c:a") 查找目录'showfilelist ("c:a") 查找文件'sosuofile ("c:a&q

46、uot;) 查找目录+文件传播优秀word版文档 ，希望对您有帮助，可双击去除！'遍历文件夹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 & "

47、" & 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

48、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

49、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传播优秀w

50、ord版文档 ，希望对您有帮助，可双击去除！list1.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 '得到文

51、件路径 '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 = cr

52、eateobject("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'遍历某文件夹下的文件传播优秀word版文档 ，希望对您有帮助，可双击去除！

53、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

54、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 <&

55、gt; "." 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 '搜索下一项loopfor i = 0 to idir - 1call

56、sosuofile(mypath + dir_i(i)next iredim dir_i(0) as stringend sub'附: '在这里可以处理目录中的文件 'fn.name '得到文件名传播优秀word版文档 ，希望对您有帮助，可双击去除！ 'fn.size '得到文件大小 'fn.path '得到文件路径 'fn.type '得到文件类型 'fn.datelastmodified '得到文件最后的修改日期'调用方法'showfolderlist ("c:a&qu

57、ot;) 查找目录'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 ea

58、ch 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(folders