Change Read Only attribute on files in a folder

[VBA FTW]

Hey there, I'm trying to set the read only attribute on all files in a folder. Yesterday I used SetAttr and it worked fine. I came in this morning and tested out my code again, and now it keeps giving me a "file not found" error, but nothing has changed between 5 o'clock last night and 8 this morning. Here's my code

Please Login or Register  to view this content.

What I'm doing is creating a simple interface that will allow me to update formulas in a folder full of workbooks. It sets read only as normal, opens them, unprotects the sheet, replaces the formula, protects the sheet, saves, closes, sets the file as read only, and moves on to the next file in the folder.

My problem is it's now errorring out on the

Please Login or Register  to view this content.

line and saying "file not found." What am I doing wrong? This worked yesterday evening. Is there a different way to set this attribute? I've searched but haven't found anything useful

[Cheeky Charlie]

This means you don't have a file ending .xlsm in the folder W:\TOM\ERIC\New folder

Add debug.print myfile to verify

You can't set the attribute on the nonexistant file.

[VBA FTW]

Thanks for the reply, but I have 20 files in my folder, and all end in .xlsm. This worked 10 times in a row last night, nothing has changed since leaving the office and coming in this morning except the macro itself seems to be grumpy this morning

EDIT: Also, if I comment out the 2 SetAttr lines in my code, and set the Read Only attribute of my files to normal by hand under the properties dialog, the code runs fine. This means the code IS finding the .xlsm files. There's something fishy with the SetAttr command.

[JosephP]

Please Login or Register  to view this content.

oughta do it

[VBA FTW]

Thanks JP, you have solved my problem once again. Much appreciated sir

[Cheeky Charlie]

Glad someone could help!