Как сделать так, чтобы если файла не было то новый файл создовался

Вот скрипт для проверки файла:
*************************************
Option Explicit
On Error Resume Next

Dim objFSO, strFlagFile

Set objFSO = CreateObject("Scripting.FileSystemObject")

strFlagFile = "c:\13.txt"

If objFSO.FileExists(strFlagFile) Then
WScript.Echo "Файл существует! "
Else
WScript.Echo "Файл НЕ существует!! "
End If

WScript.Quit 0
*******************************

Что здесь подправить? Чтобы если файл 13.txt не было то скрипт создовал