欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

VBS遍历文件或文件夹路径输入文件的所有绝对路径(附源码)

程序员文章站 2022-06-17 14:43:33
源码如下: function listfilespath(filepath) t1=timer() debug.writeline "****现在开始执行计数,用...

源码如下:

function listfilespath(filepath)
  t1=timer()
  debug.writeline "****现在开始执行计数,用时:"+cstr(t1)
  set fso=createobject("scripting.filesystemobject")
  set myfolder=fso.getfolder(filepath)
  if fso.folderexists(filepath) then
    set subcol=myfolder.subfolders
    set filescol=myfolder.files
    for each file in filescol
      debug.writeline filepath+"\"+file.name
    next
    if subcol.count>0 then
      for each folder in subcol
        'debug.writeline filepath+"\"+folder.name
        listfilespath(filepath+"\"+folder.name)
      next
      
    end if
  else
    debug.writeline "没有该文件系统"
  end if
  
  set filescol=nothing
  set subcol=nothing
  set fso=nothing
  t2=timer()
debug.writeline "****现在完成计数,用时:"+cstr(t2)
debug.writeline "整个操作过程用时:"&cstr(t2-t1)&" 秒"
end function

之前小编更新过类似的文章,大家可以参考一下

相关标签: VBS 遍历文件