• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    VBS遍历文件或文件夹路径输入文件的所有绝对路径(附源码)

    源码如下:

    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脚本实现遍历批量替换多目录多文件内容的代码
    • VBS调用WMI遍历搜索硬盘文件并计数的方法
    • 用vbs遍历文件并随机显示的脚本
    上一篇:VBS进程判断代码
    下一篇:ActiveX部件不能创建对象:dm.dmsoft代码:800A01AD
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

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