'设定指定目录
FolderPath = "d:\iQuickTest"'创建fso组件
Set fso = CreateObject("scripting.filesystemobject")
'获取指定目录的文件夹
Set oFolder = fso.GetFolder(FolderPath)
'获取指定文件夹下的所有文件
Set oFiles = oFolder.Files
For Each f In oFiles
MsgBox f.Name
Next
'释放对象
Set f = Nothing
Set oFiles = Nothing
Set oFolder = Nothing
Set fso = Nothing
