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

buli0606

已收藏，太有用了

vested

香川群子 发表于 2015-2-4 11:00
接下来，马不停蹄，向大家介绍标准的Dir搜寻文件、子文件夹的方法。呵呵。

非常强大，通过设置Function的不同参数来达到不同目的。

以下的设置也非常不错。
第2参数【子文件夹模式sb】为可选 =奇数时只搜寻当前文件夹、=偶数时搜寻所有子文件夹
    '                                      该参数>=0时返回文件名、<0时返回文件夹路径名
    '因此事实上第2参数可以设置这样四种模式：
    '  默认=0时，搜寻所有子文件夹并返回所有文件名
    '        =1时，搜寻当前文件夹并返回所有文件名 (不向下搜寻子文件夹)
    '        =-1时，搜寻当前文件夹并返回子文件夹路径名
    '        =-2时， 搜寻所有子文件夹并返回所有子文件夹路径名

gbtt520

好帖刘明,感谢分享

yzqe

虽然没仔细看，没理解，但是复制一下就能用了

lytzlm

谢谢，学习中。。。

jsgj2023

超爱香川老师，要是有老师的课或书就好啦！

datafield

一段代码，就是一首诗。

其它程序不会，学就开始认真学习VBA。谢谢！

关纭

Mark！！！Mark！！！Mark！！！Mark！！！Mark！！！

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楼竟然还要高很多
我实在没想明白为什么