Home |
Search |
Today's Posts |
#1
|
|||
|
|||
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. |
#2
|
|||
|
|||
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. |
#3
|
|||
|
|||
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. . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
csv files | Excel Discussion (Misc queries) | |||
multiple text files URGENT | Excel Discussion (Misc queries) | |||
importing multiple text files URGENT!!! HELP | Excel Worksheet Functions | |||
importing multiple text files??? | Excel Discussion (Misc queries) | |||
Why does Excel saves all my files as temporary files? | Excel Discussion (Misc queries) |