Readonly files

[nc]

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 Phillips]

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]

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)





.