Dim path = "C:\\Users"
Rem 递归所有文件夹及文件
Function getALL(p)
floders = File.DirFileOrFolder(p,"fileandfolder",{"hasPath":True})
TracePrint floder
For Each floder In floders
Rem 如果是文件夹类型则调用自身实现递归
If File.IsFolder(floder)
getALL(floder)
End If
Next
return 1
End Function
getALL(path)