• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 422
  • Last Modified:

Delete Script - Permissions Denied Error

I have borrowed this script from somewhere on here, and modified it a wee bit to apply to my environment:

This line:

If objSub.Size = 0 Then objFSO.DeleteFolder objFLD.Path  

Should delete the sub folders under the path, but of course I get Permissions Denied.  I tried to change the line to read:

If objSub.Size = 0 Then objFSO.DeleteFolder objFLD.Path, True

This should pass the variable to overwrite the read only attribute, but it still gives permissions denied.  Any thoughts?

I actually have the same problem with the files delete line:

objFSO.DeleteFile fil.Path


I though that I might be able to recursively change the read only attribute on all the folders and files before I  delete, but I have not been able to figure that out.

Thanks.
Dim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject")
strSourceFolder = "F:\Common\Scans\"
iDaysOld = 0
dtOld = DateAdd("d", -iDaysOld, Date)
Set objFLD = objFSO.GetFolder(strSourceFolder)
 
For Each fld In objFLD.SubFolders
  Set objSub=objFSO.GetFolder(fld)
  For Each subFld in objSub.SubFolders
    ProcessFolder (objFSO.GetFolder(subFld))
  Next
  If objSub.Size = 0 Then objFSO.DeleteFolder objFLD.Path
  Set objSub=Nothing
Next
 
Set objFSO = Nothing
wscript.quit
 
Sub ProcessFolder(strSource)
  ProcessFiles strSource
  For Each fld In strSource.SubFolders
    ProcessFolder objFSO.GetFolder(fld)
  Next
End Sub
 
Sub ProcessFiles(strSrc)
  For Each fil In strSrc.Files
    If DateDiff("d", fil.datelastaccessed, dtOld) >= iDaysold Then
      objFSO.DeleteFile fil.Path
    End If
  Next
End Sub

Open in new window

0
Darksied9
Asked:
Darksied9
  • 4
  • 3
1 Solution
 
AngelizedCommented:
The DeleteFolder method does not distinguish between folders that have contents and those that do not. The specified folder is deleted regardless of whether or not it has contents.
I thing you should focus on why you are not able to delete the files,  File lock by another process,  permission denied, etc...
0
 
Darksied9Author Commented:
I know why...

objFSO.DeleteFile fil.Path
objFSO.DeleteFolder objFLD.Path

These two commands are supposed to take 1 argument (or input - whatever) "TRUE" and when that is specified it SHOULD overwrite the read only switch in the attributes.  I CAN manually remove the attributes and run the script and it works perfectly.  What this tells me is that...

objFSO.DeleteFile fil.Path, TRUE
objFSO.DeleteFolder objFLD.Path, TRUE

The two lines above don't pass the parameter for "True" properly.  What I am looking for is help in determining if I have done something completely wrong in assuming this will work, or for someone to help me figure out how to modify this script appropriately to change the attributes on everything inside the source folder recursively BEFORE attempting the deletes.

 
0
 
AngelizedCommented:
Hum, you lost me. I don't see why you want to do the recursive part yourself, as deletefolder will do for you. (wathever if the read only flag is set or not)
objFSO.DeleteFolder will delete the complete scructure anyway.
This scipt is equal the the above...
Unless you want to check each files and delete them on date/time basis ( i saw some unused code that let me assume this)
iDaysOld = 0
dtOld = DateAdd("d", -iDaysOld, Date)

 
 
 

Dim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject")
strSourceFolder = "F:\Common\Scans\"
objFSO.DeleteFolder strSourceFolder,True
 
Set objFSO = Nothing
wscript.quit

Open in new window

0
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
AngelizedCommented:
Hum Sorry I have talked too fast 9and there is no way to edit)
The permissions denied is not coming fro the Read only attribut set it's comming form this line :
 If objSub.Size = 0 Then objFSO.DeleteFolder objFLD.Path
 The recursive process is modifiing the files you are trying the size for.
 
0
 
Darksied9Author Commented:
What I am actually doing is Parsing the F:\Common\Scans\ directory for all subfolders and files and deleting those.  I don't want to delete the Scans Directory, just everything in it.  I am looking to delete anything older than 1 day (the unused code is that way for testing purposes).

The script works perfectly except when a subfolder (e.g. F:\Common\Scans\Trippy\ ) has the read only attribute set.

I have tried to set the "True" variable in the code, but it is not taking it (the two lines below).


objFSO.DeleteFile fil.Path, TRUE
objFSO.DeleteFolder objFLD.Path, TRUE

Could it be as simple as removing the space between the "Comma" and "True" if it is I am going to close my head in a cupboard several times.
0
 
AngelizedCommented:
Have you tried like this ?
objFSO.DeleteFolder strSourceFolder,True
0
 
Darksied9Author Commented:
Thanks! I was trying to make a simple issue too difficult.
0

Featured Post

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

  • 4
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now