Wayne it is pretty easy using the FileSystemObject
Early binding if you reference "Microsoft Scripting Runtime"
Dim FSystem As FileSystemObject Dim ProducionDwgs As Folder Dim d As Scripting.File
Set FSystem = New FileSystemObject Set d = FSystem.GetFile(PathToFile) d.Attributes = ReadOnly
you can loop the files in a folder like this
set ThisFolder = FSystem.GetFolder
for each d in ThisFolder.files d.Attributes = ReadOnly next
You might want to throw in if statements to check existence
If Filesystem.FileExists(PathToFile) Then or If Filesystem.FolderExists(PathToFolder) Then
I have been using this and it is wonderful.