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

shanchuan

香川群子 发表于 2015-2-4 09:32
接下来，直接介绍当前流行的、高大上的FSO方法。

由简到繁地介绍：

这个代码怎么更改
才能解决报错    不会因为无法重命名当前文件而报错， 如何避免重复命名文件

Sub ReNm()
    Dim Fso As Object
    Dim Fld, Fl
   
    Set Fso = CreateObject("Scripting.FileSystemObject")
    For Each Fl In Fso.GetFolder(ThisWorkbook.Path).Files
      
            Fl.Name = i & "_" & Fl.Name
           i = i + 1

        Next
      
   
    Set Fso = Nothing
End Sub

loquat

香川群子 发表于 2015-2-4 12:16
其实不用字典也可以。但是要使用Redim数组，并不断地更新数组大小……这让代码看上去有点烦。

解释暂略 ...

实测，14楼的效率比11楼竟然还要高很多
我实在没想明白为什么

香川群子

loquat 发表于 2016-7-6 12:30
实测，14楼的效率比11楼竟然还要高很多
我实在没想明白为什么

很简单，因为【遍历数组】比 【操作字典】 要快很多倍。

香川群子

shanchuan 发表于 2016-6-21 06:07
这个代码怎么更改
才能解决报错    不会因为无法重命名当前文件而报错， 如何避免重复命名文件

不知道你在做什么，为什么会产生重复文件名？

如果产生了重复文件名，你想要如何处理？这些都没说清楚，无法帮你。

loquat

香川群子 发表于 2016-7-7 12:43
很简单，因为【遍历数组】比 【操作字典】 要快很多倍。

我是感觉有点反人类，字典add应该比redim preserve要快才对。

23号人生

留个记号，好好学习。

zhq0078

FSO递归简直神了, 太好用了, 感谢群子的无私分享.  下面是改成输出成两个数组, 分别是文件夹完整路径和文件完整路径的.

1. Private folders(), files(), n%, k%
   
2. 
   
3. Sub getAll()
   
4. Dim path$, sh, f
   
5. On Error Resume Next
   
6. n = 0
   
7. k = 0
   
8. Erase folders, files
   
9. Set sh = CreateObject("Shell.Application")
   
10. Set f = sh.BrowseForFolder(0, "请选择文件夹", 0, 0)
    
11. path = f.self.path
    
12. If path = "" Then Exit Sub
    
13. If Right(path, 1) <> "" Then path = path & ""
    
14. ListAllFso path
    
15. If n > 0 Then Sheet1.[a1].Resize(n) = Application.Transpose(folders)
    
16. If k > 0 Then Sheet1.[b1].Resize(k) = Application.Transpose(files)
    
17. End Sub
    
18. 
    
19. 
    
20. Function ListAllFso(myPath$)
    
21. Set fld = CreateObject("Scripting.FileSystemObject").GetFolder(myPath)
    
22. For Each f In fld.files
    
23. k = k + 1
    
24. ReDim Preserve files(1 To k)
    
25. files(k) = myPath & f.Name
    
26. Next
    
27. 
    
28. For Each fd In fld.SubFolders
    
29. n = n + 1
    
30. ReDim Preserve folders(1 To n)
    
31. folders(n) = myPath & fd.Name
    
32. Call ListAllFso(fd.path & "")
    
33. Next
    
34. End Function

复制代码

fzlhb

好东西要收藏!!!

lzqlaj

收藏了，学习用。

d346836673

香川老师的作品都是精品。虽然不懂VBA，先收藏了，以备后用。