几乎原版照抄的蓝色经典课程上的程序，卡在了f=dir这里了，Why？

百令9

Sub 父子转换法跨文件夹查找()
    Dim 父亲(1 To 100000)
    Dim i, k, f, f2, f3, x
    Dim arr1(1 To 100000, 1 To 1)
    Dim q As Integer
    父亲(1) = "D:\我的图片" & "\"
    Cells(1, 1) = 父亲(1)
    i = 1: k = 1
    Do While i <= k
        f = Dir(父亲(i), vbDirectory)
        Range("a" & i).Interior.ColorIndex = 6
            Do
                If InStr(f, ".") = 0 And f <> "" Then
                k = k + 1
                父亲(k) = 父亲(i) & f & "\"
                Cells(k, 1) = 父亲(k)
                End If
                f = Dir
            Loop Until f = ""
            Range("a" & i).Interior.ColorIndex = xlNone
            i = i + 1
    Loop
    '下面是提取各个文件夹里的文件
    For x = 1 To UBound(父亲)
        If 父亲(x) = "" Then Exit For
            f3 = Dir(父亲(x) & "*.*")
            Do While f3 <> ""
                q = q + 1
                arr1(q, 1) = 父亲(x) & f3
                f3 = Dir
            Loop
    Next x
    ActiveSheet.UsedRange = ""
    Range("b1").Resize(q) = arr1
End Sub

‘运行时错误5
’无效的过程调用或参数
‘我用的是excel2016
请大师们帮帮忙！指点我哪里不对啊！