Changing file attributes of all files in a directory

[dominic617]

I have a script that will delete certain files, that are older than 30 days, within a folder and its subfolders.

Here's the problem, some of those files are read only. I need help creating a script that will change all of the files in a folder and it's subfolders to read/write so the files can be deleted because endusers are getting "permission denied" on certain files.

Please let me know if you need the script first.

 

[dominic617]

OPTION EXPLICIT
DIM strExtensionsToDelete,strFolder
DIM objFSO, MaxAge, IncludeSubFolders

strFolder = "C:\NRTEcho\CSDOCS\"

includeSubfolders = true

strExtensionsToDelete = "DOC,doc,XLS,xls,PDF,pfd,PRF,prf,PPT,ppt"

maxAge = 30

set objFSO = createobject("Scripting.FileSystemObject")

DeleteFiles strFolder,strExtensionsToDelete, maxAge, includeSubFolders

'wscript.echo "Finished"

sub DeleteFiles(byval strDirectory,byval strExtensionsToDelete,byval maxAge,includeSubFolders)
DIM objFolder, objSubFolder, objFile
DIM strExt

set objFolder = objFSO.GetFolder(strDirectory)
for each objFile in objFolder.Files
for each strExt in SPLIT(UCASE(strExtensionsToDelete),",")
if RIGHT(UCASE(objFile.Path),LEN(strExt)+1) = "." & strExt then
'wscript.echo "loop"
IF objFile.DateLastModified < (Now - MaxAge) THEN
' wscript.echo "Deleting:" & objFile.Path & " | " & objFile.DateLastModified
' wscript.echo "before delete"
objFile.Delete
' wscript.echo "after delete"
exit for
END IF
end if
next
next
if includeSubFolders = true then ' Recursive delete
for each objSubFolder in objFolder.SubFolders
DeleteFiles objSubFolder.Path,strExtensionsToDelete,maxAge, includeSubFolders
next
end if
end sub

 

[PHV]

Why not simply this ?
objFile.Delete [!]True[/!]

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886