Remove write protection

Hi,

i need to remove write protection from about 14.000 files in a folder including the subfolders. Could anyone show me an easy and fast way to do this. I couldn´t figure it out myself.
Thanks in advance.

cu
Fraggle

Try to set Archive attrib
SetAttr "YOURFILE", vbArchive

Iouri Boutchkine
[email protected]

Good, Iouri. I am only sad I am already out of votes for today...

Special thanks to Lothar "the Great" Haensler. Come back soon, you Guru.

This will turn off the ReadOnly attribute of a file

private Sub Command2_Click()
Dim fn as string
fn = "C:\Junk.txt"
SetAttr fn, GetAttr(fn) And (&HFF - vbReadOnly)
End Sub




John G