跟我学 【喜迎2015立春】遍历文件夹(含子文件夹)方法 ABC

lcjy11185

fso学习并做记号

百度不到去谷歌

这么多的注释 花了好多时间  顶顶顶

香川群子

win2009 发表于 2015-2-5 19:32
补一个方法

如何列出文件夹及其所有子文件夹中的文件？

WMI是什么， WMI是Windows Management Instrumentation (Windows管理工具)的缩写，是内置在操作系统中核心的管理支持技术。基于由 Distributed Management Task Force (DMTF) 所监督的业界标准，通过它可以访问、配置、管理和监视几乎所有的 Windows 资源。

…………
但是你贴出来的部分代码显然无法实际使用。呵呵。

win2009

香川群子 发表于 2015-2-6 10:32
WMI是什么， WMI是Windows Management Instrumentation (Windows管理工具)的缩写，是内置在操作系统中核心 ...

把Wscript.Echo
替换为 Msgbox 即可

代码另存为 ***.vbs 即可

这是vbs脚本代码，女侠有时间看看脚本技术和脚本故事，请......

win2009

对于女侠没有不可能的事情，连20年后人口数量都能算清的女侠......

13679895353

香川群子 发表于 2015-2-4 17:29
补充：

关于变量类型缩写的快速记忆：

楼主的用心让我感动！

谢谢！
这篇说明，我copy下来了。多谢！

香川群子

win2009 发表于 2015-2-6 12:33
把Wscript.Echo
替换为 Msgbox 即可

你贴出来的那部分代码逻辑混乱，参数引用错误……无论如何，也是不能正常使用的。


我给重新整理了一下：

1. Sub ListFilesWMI()
   
2.     Set myFolder = CreateObject("Shell.Application").BrowseForFolder(0, "GetFolder", 0)
   
3.     If Not myFolder Is Nothing Then myPath = myFolder.Items.Item.Path Else MsgBox "Folder not Selected": Exit Sub
   
4.    
   
5.     [a:a] = "": [a1] = "Folder: " & myPath
   
6.     tms = Timer: Call GetSubFolders(myPath)
   
7.     MsgBox Format(Timer - tms, "0.000s")
   
8. End Sub
   
9. Sub GetSubFolders(strFolderName)
   
10.     Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    
11.    
    
12.     strPath = Mid(Replace(strFolderName, "", "\") & "\", 3)
    
13.     Set colFiles = objWMIService.ExecQuery _
    
14.         ("Select * from CIM_DataFile where Path = '" & strPath & "'")
    
15.     For Each objFile In colFiles
    
16.         [a65536].End(3).Offset(1) = "    Files: " & objFile.Name
    
17.     Next
    
18.    
    
19.     Set colSubfolders = objWMIService.ExecQuery _
    
20.         ("Associators of {Win32_Directory.Name='" & strFolderName & "'} " _
    
21.         & "Where AssocClass = Win32_Subdirectory " _
    
22.         & "ResultRole = PartComponent")
    
23.     For Each objFolder In colSubfolders
    
24.         [a65536].End(3).Offset(1) = "Folder: " & objFolder.Name
    
25.         Call GetSubFolders(objFolder.Name)
    
26.     Next
    
27. End Sub

复制代码

香川群子

补充，使用WMI方法，需要：

要使用WMI要满足以下条件：
1、VBE中添加对“Microsoft WMI Scripting V1.2 Library”的引用。
2、Windows里的WMI 服务（winmgmt）保证是运行的。
即在VBA代码中要有：
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

以上。

香川群子

win2009 发表于 2015-2-5 19:32
补一个方法

如何列出文件夹及其所有子文件夹中的文件？

你这个帖子中，

arrFolderPath = Split(strFolderName, "\")
strNewPath = ""
For i = 1 to Ubound(arrFolderPath)
    strNewPath = strNewPath & "\\" & arrFolderPath(i)
Next
strPath = strNewPath & "\\"

这么6句代码，我只要一句就能实现了：
strPath = Mid(Replace(strFolderName, "\", "\\") & "\\", 3)

香川群子

win2009 发表于 2015-2-6 12:33
把Wscript.Echo
替换为 Msgbox 即可

你提供的WMI脚本方法，
说到底和我6楼的FSO递归实现结果并无差异……反而代码复杂难以记住。那么你认为好处在哪里呢？

你可以再去6楼看一下：
http://club.excelhome.net/forum. ... 089&pid=8080305