change File permission 1

[reggler]

Hi There,

I need to check if i have permission to write to a file and if not remove the read-only flag (Windows).
I have figured out how to check if it's writeable:

set writeable [file writeable $path]
        if {!writeable} {
	     #make writeable   
        }
#writing stuff to file

I'm not sure how I can set the file permissions.
I found something like "file mode" but i'm not sure how to use it on a windows platform...
Anybody able to help?

Thank you,

Ron
Hours of planing can save weeks of coding

 

[feherke]

Hi

file attributes name ?option value option value...?
This subcommand returns or sets platform specific values associated with a file. [gray](...)[/gray]

On Windows, [gray](...)[/gray] -readonly gives the value or sets or clears the readonly attribute of the file.

http://www.tcl.tk/man/tcl8.5/TclCmd/file.htm#M8

Feherke.

http://rootshell.be/~feherke/