Readonly files
 

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.

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.

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.


.