mac 获取子目录所有文件_（纯代码）Excel VBA-WE011 【子目录文件名获取】

Sub ListFile()fpath = [A1]If Right(fpath, 1) <> "" Then fpath = fpath & ""Set d = CreateObject("Scripting.Dictionary")d.Add fpath, ""Zi = 1i = 0Do While Zi = 1 And i < d.Count dpath = d.keys fname = Dir(dpath(i), vbDirectory) Do While fname <> "" If fname <> "." And fname <> ".." Then If GetAttr(dpath(i) & fname) = vbDirectory Then d.Add (dpath(i) & fname & ""), "" End If End If fname = Dir Loop i = i + 1Loopleixing = InputBox(prompt:="Please输入查找文件后缀