主页 > 知识库 > VBS遍历文件或文件夹路径输入文件的所有绝对路径(附源码)

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遍历文件或文件夹路径输入文件的所有绝对路径(附源码)》,本文关键词  VBS,遍历,文件,或,文件夹,;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 下面列出与本文章《VBS遍历文件或文件夹路径输入文件的所有绝对路径(附源码)》相关的同类信息!
  • 本页收集关于VBS遍历文件或文件夹路径输入文件的所有绝对路径(附源码)的相关信息资讯供网民参考!
  • 企业400电话

    智能AI客服机器人
    15000

    在线订购

    合计11份范本:公司章程+合伙协议+出资协议+合作协议+股权转让协议+增资扩股协议+股权激励+股东会决议+董事会决议

    推荐文章