遍历文件及文件夹

Option Explicit MsgBox "F盘的文件及文件夹" ThroughFiles THroughFolder Sub ThroughFiles Dim fso,AllFiles,EachFile Set fso=CreateObject("Scripting.FileSystemObject") Set AllFiles=fso.GetFolder("F:/") For Ea
相关文章
相关标签/搜索