Solved

Delete Script - Permissions Denied Error

Posted on 2008-10-27
7
418 Views
Last Modified: 2012-05-05
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
Comment
Question by:Darksied9
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 3
7 Comments
 
LVL 3

Expert Comment

by:Angelized
ID: 22811207
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
 
LVL 3

Author Comment

by:Darksied9
ID: 22811834
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
 
LVL 3

Expert Comment

by:Angelized
ID: 22811930
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
Technology Partners: 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!

 
LVL 3

Expert Comment

by:Angelized
ID: 22812093
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
 
LVL 3

Author Comment

by:Darksied9
ID: 22812214
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
 
LVL 3

Accepted Solution

by:
Angelized earned 500 total points
ID: 22813276
Have you tried like this ?
objFSO.DeleteFolder strSourceFolder,True
0
 
LVL 3

Author Closing Comment

by:Darksied9
ID: 31510212
Thanks! I was trying to make a simple issue too difficult.
0

Featured Post

Online Training Solution

Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

1.0 - Introduction Converting Visual Basic 6.0 (VB6) to Visual Basic 2008+ (VB.NET). If ever there was a subject full of murkiness and bad decisions, it is this one!   The first problem seems to be that people considering this task of converting…
Introduction During my participation as a VBScript contributor at Experts Exchange, one of the most common questions I come across is this: "I have a script that runs against only one computer. How can I make it run against a list of computers in …
Michael from AdRem Software outlines event notifications and Automatic Corrective Actions in network monitoring. Automatic Corrective Actions are scripts, which can automatically run upon discovery of a certain undesirable condition in your network.…
Add bar graphs to Access queries using Unicode block characters. Graphs appear on every record in the color you want. Give life to numbers. Hopes this gives you ideas on visualizing your data in new ways ~ Create a calculated field in a query: …

691 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question