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

ajiao1984

谢谢楼主的分享，赞一个！

lijian318

暂时还看不太懂，先收藏了

mybadboy

介绍得非常仔细，精品。

ctp_119

我曾经就想写这么一个帖，但是各种原因（能力问题）而迟迟未见，今天一见群子妹妹写的帖，惊喜之余便是佩服。故而给你加分了……可以系统学习了。

№①布鲑鲑

香川群子 发表于 2015-2-4 13:12
FSO 递归方法实现各种指定搜寻的完整代码：呵呵。这样应该很好了。

很经典，不过怎么样才能不包含临时文件呢

excel_dxds

学习香大师的代码，有一种大开眼界的感受。

excel_dxds

求助香川大师，可不可以在此基础上增加一个功能：当所有文件列出来后，点击其中想打开的文件就会自动打开？好像要用超链接什么之类的。

hzkjdxlh

老师，请问我想统计某个文件夹内不同文件类型对应的个数，请问怎么实现呢？
文件类型已可获取，代码如下(本段代码在PPT中编写完成)：
Sub 文件类型统计()

'选定文件夹
Dim a
    Set objShell = CreateObject("Shell.Application")
        Set objFolder = objShell.BrowseForFolder(0, "选择文件夹", 0, 0)
            If Not objFolder Is Nothing Then
                a = objFolder.self.Path
            End If
        Set objFolder = Nothing
    Set objShell = Nothing
'遍历文件
Dim n, bk, bkn, bknn
n = 1
bknn = "/"
bk = Dir(a & "\*.*") '文件名
Do While bk <> "" And bk <> Application.ActivePresentation.Name '遍历。如果myfile不篁空或不等于它自己
bkn = Right(bk, Len(bk) - InStrRev(bk, "."))  'InStrRev(bk,"."))从字串末尾找出"."的位置
bknn = bknn & bkn & "/"
bk = Dir '找寻下一个文件
n = n + 1 '计数、累加
Loop
MsgBox bknn
End Sub
盼复，谢谢！

五月流雨

香川群子 发表于 2015-2-4 09:51
下面很快进入正题：

三、遍历目标文件夹内所有文件、以及所有子文件夹中的所有文件。

在这个位置我想使用A列文件名，B列文件路径，C列超链接文件
      
[a65536].End(3).Offset(1) = F.Name '在A列逐个列出文件名
[b65536].End(3).Offset(1) = myPath '在B列逐个列出文件路径

以前使用的range加参数

.Hyperlinks.Add Anchor:=.Range("C" & i), _
Address:=Range("B" & i), _
ScreenTip:="打开文件", _
TextToDisplay:="打开文件"

很明显在绝对引用下不太有用。
请问香老师，如何定义这个字段呢

LangFan123

虽然现在还看不懂，先收藏！