gpt4 book ai didi

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

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 33 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章VBS遍历文件或文件夹路径输入文件的所有绝对路径(附源码)由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.

源码如下:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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

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

原文链接:https://www.cnblogs.com/alterhu/archive/2012/03/08/2385169.html 。

最后此篇关于VBS遍历文件或文件夹路径输入文件的所有绝对路径(附源码)的文章就讲到这里了,如果你想了解更多关于VBS遍历文件或文件夹路径输入文件的所有绝对路径(附源码)的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

33 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com