VBS script segítség?

az lenne hogy ha egy fájlt nem tud beolvasni akkor készítsen egy fájlt de ha van már egy olyan fájl ne írja felül a régit hanem csak olvassa be :D

msgbox "elindult"

strFile = 0

Set objFSO=CreateObject("Scripting.FileSystemObject")

strFile = "c:\ProgramData\text.txt"

Set objFile = objFSO.OpenTextFile(strFile)

Do Until objFile.AtEndOfStream

strLine= objFile.ReadLine

Wscript.Echo strLine

Loop

objFile.Close

if strLine = 0 then

Dim max,min,rand

max=5000000

min=1000000

Randomize

rand = Int((max-min+1)*Rnd+min)

Set objFSO=CreateObject("Scripting.FileSystemObject")

' How to write file

outFile="c:\ProgramData\text.txt"

Set objFile = objFSO.CreateTextFile(outFile,True)

objFile.Write (rand) & vbCrLf

objFile.Close

end if

ha nem találja a fájlt akkor hibával dob ki ezt hogyan lehet orvosolni?