Function DirFiles(path, Optional ftype = "*")
    'dir单层文件夹遍历文件
    Dim myname, k
    Dim arr()
    myname = Dir(path & "\*." & ftype)    ' 找寻第一项。
    
    Do While myname <> ""    ' 开始循环。
        'Debug.Print myname
        k = k + 1
        ReDim Preserve arr(1 To k)
        arr(k) = myname
        myname = Dir
    Loop
    
    If k = 0 Then ReDim arr(0)    '如果没有文件 则返回0下标数组
    DirFiles = arr
End Function