creating a file if it does not exist, but not wipe it if it does?

[el__sid]

Hey Guys,

I'm making a programme at the minute that requires a password to be stored in a text file. When the form to enter the password loads, it runs a length check on the file to see if there's actually a password in it. My problem is that I retrieve the data with the input statement, but if the file doesnt actually exist then this brings up the error (i know why thats not a problem).
To get around this error i have the code as follows:

Dim filenumber as integer
Filenumber = FreeFile()
Open app.path & "\file.ext" for append as #filenumber
close #Filenumber
open app.path & "\file.ext" for input as #filenumber
***Code to extract data goes here***

Now I have to add the append line so that if the file does not exist, it is created, but if it does exist, the file is not altered. Now to me, despite the fact it does what it's supposed to, it looks stupid. Is there an easier method to create a file that doesnt exist, but if it does exist, not wipe it?

Many Thanks in advance,

el__sid

[Lithic]

You could just use an 'if' statement.

There is some code on this site in the freevbcode section that has a function 'pathexists', which will tell you if the file you are trying to open already exits. Then you and if or select case.

I think you could probably do the same with an FileLen() statement, and see if it returns an error??

[gupex]

See Dir - returns zero length string if file does not exist

[el__sid]

will look into this, thanks