Bob
Thanks a lot.
-----Original Message-----
Sub ProcessFiles()
Dim sFolder As String
Dim Folder As Object
Dim file As Object
Dim Files As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
sFolder = "C:\MyTest"
If sFolder < "" Then
Set Folder = FSO.GetFolder(sFolder)
Set Files = Folder.Files
For Each file In Files
If file.Attributes And 1 Then
'
Else
file.Attributes = file.Attributes + 1
End If
Next file
End If ' sFolder < ""
End Sub
--
HTH
RP
(remove nothere from the email address if mailing direct)
"nc" wrote in
message
...
Hi
How do I change all the files in a specified directory
from a read only file to a non read only file usig
macros. The macro should take in account that some
files
might not be read only.
Thanks.
.
|