Create a New File

[smartrider]

How can I do the following :

I am writing a program where the data get saved from the UserForm to a text file but right now I can already created a text file .How can I do something like when the Program runs - it will look for a text file and it can't find it then it will create it for you.

Please Help !!

Thanks.

 

[IFRs]

Use Dir to see if the file exists.
If yes, then Open for Append.
If not, then Open for Output.
Write to the file.
Close the file.

If Dir("File.Dat&quot > "" Then
Open "File.Dat" For Append As #1
Else
Open "File.Dat" For Output As #1
EndIF

For A = 0 To UBound(Answer$)
Print #1, Answer$(A)
Next

Close #1