creating files

hey, ive got a form that runs a bat file, dont ask me why, i just wanted to play around, on an error trap if the bat file cant be found i want it to create a blank bat file. this has no reason, but i just really wanna no how to create stuff and really get to no VB. can some one plz help me a lil, ive looked and i think its got something to do with the Shell function but from there im lost.

thanks

On Error GoTo TrapError1:

Open "Test.bat" For Input As #1
Close #1
Shell "Test.bat"
Exit Sub

CreateFile:
Open "Test.bat" For Output As #1
Print #1. "ECHO Testing batch file"
Close #1
Shell "Test.bat"
Exit Sub

TrapError1:
If Err = 52 Then Resume CreateFile

To check if the file exist use this:

VB Code:

Dim sPath As String
sPath = "C:\MyFolder\MyFile.bat"
If Len(Dir(sPath)) <> 0 Then
    MsgBox "File Exist"
Else
    MsgBox "No Such File!"
End If