VBS怎么获取指定目录下的文件列表（vb 读取目录下所有文件）这样也行？

Dim fs, oFolder, oFiles, oSubFolders
set fs=CreateObject(“Scripting.FileSystemObject”)
set oFolder=fs.GetFolder(sFolder) ‘获取文件夹
set oSubFolders=oFolder.SubFolders ‘获取子目录集合

for each folder in oSubFolders
message=”文件夹：” & folder
MsgBox message
Next

set oFiles=oFolder.Files ‘获取文件集合
for each file in oFiles
sExt=fs.GetExtensionName(file) ‘获取文件扩展名
sExt=LCase(sExt) ‘转换成小写
message=”文件名：” & file.Name & “, 扩展名：” & sExt ‘获得文件名(含扩展名,不含路径)和扩展名
MsgBox message
Next