vbs求助，我是了很多位置都不行。

dim fso,f
Set fso = CreateObject("Scripting.FileSystemObject")
f = fso.DeleteFile(WScript.ScriptName)
WScript.Echo( WScript.ScriptName)
do
createobject("wscript.shell").run chr(34) & wscript.scriptname & chr(34)
这两组代码怎样组合？
loop