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