TA的每日心情 | 擦汗 2016-5-4 10:34 |
---|
签到天数: 68 天 连续签到: 1 天 [LV.6]测试旅长
|
本帖最后由 Shawn_xiao 于 2011-12-31 15:28 编辑
function GetAllFile(FolderPath)
Dim fso,f,s
Dim filecol,foldercol
Set fso = CreateObject("Scripting.FileSystemObject")
Set f=fso.getfolder(FolderPath)
set filecol=f.Files
set foldercol=f.subfolders
print f.Name&vbnewline
for each fo in foldercol
s=s&fo.name
s=s&vbnewline
if (fo.isrootfolder) then
for each fi in filecol
s=s&fi.name
s=s&vbnewline
next
else ???
end if
next
print s
end function
这个方法明显不行 我知道要用递归,可是学VBS时间很短 求帮助啊 |
|