Lookup file permissions 1

[scriggs]

I have a script which deals with moving files, etc.

Some of the files do not have write permissions.

Is there a function which:
a) can check permssions
b) change permissions

Any help plesae.

 

[SkipVought]

Take a look at the FileSystemObject Object.

Skip,

_{[red]Be advised:[/red]When Viscounts were guillotined just as they were disclosing where their jewels were hidden, it shows to go that you should...
Never hatchet your Counts before they chicken!}

 

[scriggs]

I think Im already using the FileSystemObject but cannot find how to check permissions on the file.

 

[BiGiX]

If GetAttr("c:\yourfile.txt") And vbReadOnly Then
MsgBox "File is Read-only"
'set to normal
SetAttr "c:\yourfile.txt", vbNormal
'copy the file here
'set back to read-only
SetAttr "c:\yourfile.txt", vbReadOnly
Else
MsgBox "File is not read-only"
End If

for more info, search VBA Help for 'SetAttr'

 

[scriggs]

Thanks BiGiX, thats a useful script, which I'll add to my VBA snippets.

However I am interested in NT file permissions and ownership.

 

[strongm]

>cannot find how to check permissions on the file

The Attributes property of the FileSystemObject's File property ...

If you want the NTFS permissions, it's a touch harder

 

[BiGiX]

yeah, quit a bit harder...might start reading here.

http://support.microsoft.com/default.aspx?scid=kb;en-us;218965

you can use the file object attributes to get other info such as date created an so-on.

 

[scriggs]

BiGiX!

You are awesome - that script worked 100% without any mods. Just changed the filename to a variable and slipped into my code. And it works ace!

Thanks so much!