遍歷文件及文件夾

Option Explicit MsgBox "F盤的文件及文件夾" ThroughFiles THroughFolder Sub ThroughFiles Dim fso,AllFiles,EachFile Set fso=CreateObject("Scripting.FileSystemObject") Set AllFiles=fso.GetFolder("F:/") For Ea
相關文章
相關標籤/搜索