Solved

VBA Permission Denied Error 70 When trying to create text file

Posted on 2013-11-05
2
4,000 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
Comment Utility
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
Comment Utility
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

Better Security Awareness With Threat Intelligence

See how one of the leading financial services organizations uses Recorded Future as part of a holistic threat intelligence program to promote security awareness and proactively and efficiently identify threats.

Join & Write a Comment

Suggested Solutions

Introduction This Article briefly covers methods of calculating the NPV and IRR variants in Excel as well as the limitations in calculating and interpreting IRR results. Paraphrasing Richard Shockley, author of my favourite finance reference tex…
This article will guide you to convert a grid from a picture into Excel format using Microsoft OneNote and no other 3rd party application.
This Micro Tutorial will demonstrate in Microsoft Excel how to add style and sexy appeal to horizontal bar charts.
This Micro Tutorial will demonstrate how to use a scrolling table in Microsoft Excel using the INDEX function.

763 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

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now