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

anabas

老师，我在研究你的遍历文件夹帖子（2015），其他都没什么问题，只是

1. If Right(myPath, 1) <> "" Then myPath = myPath & ""

复制代码

虽然有解释，但是判断右1字符的意义何在？直接判断myPath是否空值不是也可以吗？谢谢！

梦色的梦

留下记号，方便学习

笨呐呐。。Yooo

留个印，多学习

云雾云绕

已经收藏学习了，谢谢版主

戴维351006616

香川老师好!  最近我研究了一下您的凑数  我自己想了一个类似递归 但是只用循环和数组作为主体方法 速度差不多 很想和您探讨一下! QQ351006616 (小号不能聊天 只能这样了= =!!)

yes363001640

收藏学习，刚好一点都不会这个

刀马小楼

Function ListAllFso(rootpath$, fname, dptpath, i) '用FSO方法遍历并列出所有文件和文件夹名的【递归过程】
    Set fld = CreateObject("Scripting.FileSystemObject").GetFolder(rootpath)
   
    For Each f In fld.Files '遍历当前文件夹内所有【文件.Files】
        
        If InStr(f.Name, fname) <> 0 Then  '需要复制的文件名
            
            If Len(f.Name) - Len(fname) = 4 Or Len(f.Name) - Len(fname) = 8 Then
                If Dir(dptpath, vbDirectory) = "" Then MkDir (dptpath) '存放的文件夹存在
               
                FileCopy rootpath & f.Name, dptpath & f.Name
                Exit Function
            End If
        End If
    Next
   
    For Each fd In fld.SubFolders   '遍历当前文件夹内所有【子文件夹.SubFolders】
        
        Call ListAllFso(fd.Path & "\", fname, dptpath, i) '注意此时的路径变量已经改变为【子文件夹的路径fd.Path】
        
    Next
End Function
想请教一下 ，exit  function  以后还是执行 递归子文件的next     end  function  后也是执行递归子文件的next

renkangjizhen

香川群子 发表于 2015-2-4 10:10
由于很多初学者不太能理解递归算法的过程而产生畏难、抵触情绪，
所以下面避开递归，而采用字典记录中间结 ...

有点难度，但是我喜欢！

ExcelhomeV

香川老师，我想请问 文件夹里是好几个zip 文件夹（如图片中），每个zip文件夹里有一张excel表，怎么样遍历这些zip文件夹并把里面的表都打开呢？

FIFAWORLDCUP

怎么才能列出每个文件的详细地址？而不仅仅是该文件所在的文件夹地址。