Добавил в процедуру пару строчек (выделены жирным) чтобы выходить из VBs сразу после удаления файла,

Sub MoveTheFile (tFile, _
tDestFile)

Dim objFso

Set objFso = CreateObject("Scripting.FileSystemObject")
WScript.Echo "MoveFile::" & tFile & " " & tDestFile

If objFso.FileExists(tDestFile) Then _
objFso.DeleteFile (tFile)
Wscript.Quit
end if
If NOT(objFso.FileExists(tDestFile)) Then _
objFso.MoveFile tFile, tDestFile

End Sub


стала появляться ошибка:

Microsoft VBScript compilation error: Expected 'Sub'

Подскажите, пжлста, как сделать правильно.

Спасибо.