I get a permission denied error when I execute the code detailed.

[get2noesks]

Hi,

I am trying to create a notepad through VBA and when I execute these lines of code I get permission error. Any insights?

Private Sub Workbook_Open()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim oFile As Object
Set oFile = fso.CreateTextFile("C:\Users\u418558\Desktop\XML tool")
oFile.WriteLine "test"
oFile.Close
Set fso = Nothing
Set oFile = Nothing
End Sub

Regards
Saurabh

 

[PGuru]

Set oFile = fso.CreateTextFile("C:\Users\u418558\Desktop\XML tool.txt")

Possibly...?!

 

[diddi]

not sure, but I think you need to include another reference to access filesystemobject? and another possibility, (again not sure) do you need the .txt in the filename?

 

[dms37]

Tested the code you provided with a folder on my desktop and it works with and without the ".txt"

 

[get2noesks]

Hi,

Working with .txt file extension. Thanks. Could someone explain the reason why did it not work without .txt extension?

Regards
Saurabh

 

[Michael M]

Because the code doesn't know what "XML tool" is until a filetype extension is used !

 

[get2noesks]

Thanks

Working now.