Solved

Delete Script - Permissions Denied Error

Posted on 2008-10-27
7
412 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
  • 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
How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

 
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

6 Surprising Benefits of Threat Intelligence

All sorts of threat intelligence is available on the web. Intelligence you can learn from, and use to anticipate and prepare for future attacks.

Join & Write a Comment

When it comes to writing scripts for a Client/Server computing environment it is essential to consider some way of enabling the authentication functionality within a script. This sort of consideration mainly comes into the picture when we are dealin…
It was really hard time for me to get the understanding of Delegates in C#. I went through many websites and articles but I found them very clumsy. After going through those sites, I noted down the points in a easy way so here I am sharing that unde…
Internet Business Fax to Email Made Easy - With eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, fr…
In this tutorial you'll learn about bandwidth monitoring with flows and packet sniffing with our network monitoring solution PRTG Network Monitor (https://www.paessler.com/prtg). If you're interested in additional methods for monitoring bandwidt…

743 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

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now