objFSO.CreateTextFile permission denied

[stev379]

The snippet below checks for a flag file, and works fine when I'm logged in
as an admin on XP, but errors on the Set objFile =
objFSO.CreateTextFile("C:\PTRMIG_FLG_.txt") line when logged in as a Power
User or less. It returns a Permission Denied error. How can I create a file
on the root of a machines C: drive or the root of the currently logged on
users profile?


Set objFSO = CreateObject("Scripting.FileSystemObject")
'Check for flag file and stop script if it exists

If objFSO.FileExists("C:\PTRMIG_FLG_.txt") Then

WScript.Quit
Else

Set objFile = objFSO.CreateTextFile("C:\PTRMIG_FLG_.txt")
End If



Thanks for any help or suggestions!

[Michael Harris (MVP)]

Post by stev379
The snippet below checks for a flag file, and works fine when I'm
logged in as an admin on XP, but errors on the Set objFile =
objFSO.CreateTextFile("C:\PTRMIG_FLG_.txt") line when logged in as
a Power User or less. It returns a Permission Denied error. How can
I create a file on the root of a machines C: drive or the root of the
currently logged on users profile?

You can't unless some admin changes the permissions on the root of the drive
to allow it. No file write access into the root of the C drive for
non-admins is the default on a Windows system (ever since NT as far as I
know).

However, even ordinary users can create folders off the root and write
freely to those. I suggest you stay out of writing files to the root and
adapt to the default existing security.

Post by stev379
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Check for flag file and stop script if it exists
If objFSO.FileExists("C:\PTRMIG_FLG_.txt") Then
WScript.Quit
Else
Set objFile = objFSO.CreateTextFile("C:\PTRMIG_FLG_.txt")
End If
Thanks for any help or suggestions!