Solved

VBA Permission Denied Error 70 When trying to create text file

Posted on 2013-11-05
2
4,216 Views
Last Modified: 2013-11-05
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]
0
Comment
Question by:zipnotic
2 Comments
 
LVL 35

Accepted Solution

by:
[ fanpages ] earned 285 total points
ID: 39624756
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
 

Author Closing Comment

by:zipnotic
ID: 39624828
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

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Outlook Free & Paid Tools
This article descibes how to create a connection between Excel and SAP and how to move data from Excel to SAP or the other way around.
Many functions in Excel can make decisions. The most simple of these is the IF function: it returns a value depending on whether a condition you describe is true or false. Once you get the hang of using the IF function, you will find it easier to us…
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…

790 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question