VBA Permission Denied Error 70 When trying to create text file

Hello,

I have a small Excel 2007 app that creates a text file based on the rows.  It worked fine until I re-imaged my computer (Windows 7 Pro).  It now gives an error at the line:

   Set stream = fso.CreateTextFile(fName, False)

I'm guessing this is related to the Windows 7 permissions for the folder but I checked them and I am an administrator with full permissions.  I recall windows 7 was fickle about allowing writing to certain folders but I am trying to write to my documents, desktop, etc.  where the folders show I have access in windows permission dialogue.  I would like to pass this app along to others who may not have administrator rights as well.  Is there a work around for the permissions problem or is there another problem that you see?


Thanks

Zip

Sub generateKML()
' GenerateKML Macro
' Original Macro recorded 26/09/2006 by simon_a
' Modified by KOD Oct 4, 2007
' Set file path
   ' On Error Resume Next
   
    Dim fso As New FileSystemObject
' Declare a TextStream.
    Dim stream As TextStream
    Dim fName As String
    fName = [KML_Details!C2]
' Create a TextStream.
    Set stream = fso.CreateTextFile(fName, False)  <--------ERROR 70 HERE
   
 'Write header to file
        stream.WriteLine [KML_Details!C5] & [KML_Details!C3] & [KML_Details!C6]
zipnoticAsked:
Who is Participating?
 
[ fanpages ]Connect With a Mentor IT Services ConsultantCommented:
Hi,

Running your code in a Microsoft Windows 7 Enterprise 6.1.7601 Service Pack 1 Build 7601/Microsoft Excel 2010/14.0.6129.5000 (32-bit) environment poses no problems for me.

I specified a filename (without a path) in cell [C2] & the file was saved in the "Default file location".

With a value of path\filename the file was created as expected.

However, if I specified "C:\test.txt" (without quotes), for instance, then writing to the root directory of the C: drive is restricted, & I do see Error #70 ("Permission Denied"), as you did.

Could it be that the rebuilt operating system you are using has an Anti-Virus application that is stopping the creation of files within folders that you would expect to have access to?

BFN,

fp.
0
 
zipnoticAuthor Commented:
I neglected to add the actual file name onto the path.  

That was easy.  You put me on the right path.

Thanks for the quick response!

Zip
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.