• 售前

  • 售后

热门帖子
入门百科

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

[复制链接]
我心如烟卸 显示全部楼层 发表于 2021-8-19 19:36:19 |阅读模式 打印 上一主题 下一主题
源码如下:
  1. Function listFilesPath(filepath)
  2.   t1=Timer()
  3.   Debug.WriteLine "****现在开始执行计数,用时:"+CStr(t1)
  4.   Set fso=CreateObject("scripting.filesystemobject")
  5.   Set myfolder=fso.GetFolder(filepath)
  6.   If fso.FolderExists(filepath) then
  7.     Set subcol=myfolder.SubFolders
  8.     Set filescol=myfolder.Files
  9.     For Each file In filescol
  10.       Debug.WriteLine filepath+""+file.name
  11.     Next
  12.     If subcol.count>0 Then
  13.       For Each folder In subcol
  14.         'Debug.WriteLine filepath+""+folder.Name
  15.         listFilesPath(filepath+""+folder.Name)
  16.       next
  17.       
  18.     End if
  19.   Else
  20.     Debug.WriteLine "没有该文件系统"
  21.   End if
  22.   
  23.   Set filescol=Nothing
  24.   Set subcol=nothing
  25.   Set fso=Nothing
  26.   t2=Timer()
  27. Debug.WriteLine "****现在完成计数,用时:"+CStr(t2)
  28. Debug.WriteLine "整个操作过程用时:"&CStr(t2-t1)&" 秒"
  29. End function
复制代码
之前草根技术分享小编更新过类似的文章,大家可以参考一下

帖子地址: 

回复

使用道具 举报

分享
推广
火星云矿 | 预约S19Pro,享500抵1000!
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

草根技术分享(草根吧)是全球知名中文IT技术交流平台,创建于2021年,包含原创博客、精品问答、职业培训、技术社区、资源下载等产品服务,提供原创、优质、完整内容的专业IT技术开发社区。
  • 官方手机版

  • 微信公众号

  • 商务合作