Create a Text File and then Append Text

[dflak]

Office 2016
The following works perfectly if the text file already exists. If the program has to create the text file, then I get a "Permission Denied" Error on the Open PathName ... line.

I want the program to check to see if the file exists. If it does not, then create the file and append the text. Somehow, I have to close out the file I just created so I can open it again. That is the syntax I can't seem to find.

Second question: on my Office 2013 system I get a 429 Error - Active X component can't create object on the first Set fso = CreateObject("Scripting.FileSystemObject") - why this error in 2013 and not in 2016?

To test, run the Executive macro.

Please Login or Register  to view this content.

[rorya]

You need to add:

Please Login or Register  to view this content.

before you can open it with the Open statement, though I don't know why you wouldn't just write to it while it's open.

[dflak]

Yeah, I just found that myself.

Yes, I could write to it but then I'd also have to close it. I got lazy and just decided to let the execution "fall through."

Thanks for your help.

[rorya]

I'd also point out that Open will create it if it doesn't exist if you open it for appending.

[dflak]

I did not know that! This means that my test, creation and closing of the file is unnecessary.

It won't hurt to keep it in there, so I won't change my legacy code until I work with it again. I fixed it for all programs going forward.