vbscript对文件夹遍历

' 对文件夹进行遍历

Dim fso,folder,file,FileInfo

Set fso = CreateObject("scripting.filesystemobject")

Set folder = fso.GetFolder("D:\yld的文件\常见问题")
' 获得文件夹对象

' 文件夹对象的属性中有个files这是个文件对象数组, 

For Each file In folder.Files         ' 输出单个文件对象的信息  
FileInfo = "路径:" & file.Path & ", 文件名:" & file.Name & ", 文件大小:" & file.Size
MsgBox FileInfo

Next

Set folder = Nothing

Set fso = Nothing