Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

VBSCRIPT to delete all files and folers in a directory

Posted on 2009-07-16
11
Medium Priority
?
583 Views
Last Modified: 2012-05-07
I have a vbscript that I can't get to work properly. I need to delete all files and folders in a directory. When this runs, I get:

line 12
char 7
error permission denied
code 800a0047
microsoft vbscript runtime error


I really thought this was working for a while...Can anyone fix this for me?

dim fso, exchfolder,folder,collfolder,collfiles,file
Set fso   = WScript.CreateObject("Scripting.FileSystemObject")
set exchfolder = fso.GetFolder("E:\Exchange Backups\")  ' the target folder
 
Set collfiles=exchfolder.Files  'delete files under target folder
      for each file in collfiles
      file.delete
      next
 
Set collfolder=exchfolder.subfolders 'delete subfolders and files under targetfolder
      for each folder in collfolder
      folder.delete
      next

Open in new window

0
Comment
Question by:FIFBA
[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
  • 6
  • 5
11 Comments
 
LVL 67

Expert Comment

by:sirbounty
ID: 24870252
Try this slight modification...
dim fso, exchfolder,folder,collfolder,collfiles,file
Set fso   = WScript.CreateObject("Scripting.FileSystemObject")
set exchfolder = fso.GetFolder("E:\Exchange Backups\")  ' the target folder
 
Set collfiles=exchfolder.Files  'delete files under target folder
      for each file in collfiles
      file.delete
      next
 
Set collfolder=exchfolder.subfolders 'delete subfolders and files under targetfolder
      for each folder in collfolder
      fso.DeleteFolder folder, True
      next

Open in new window

0
 

Author Comment

by:FIFBA
ID: 24870345
Thanks for the fast response. I'm getting the same results with the modification in place.
0
 
LVL 67

Expert Comment

by:sirbounty
ID: 24870364
Can you add an echo/popup to that loop to determine which folder?
Presumably it's permissions to the folder - I'd check security:
Set collfolder=exchfolder.subfolders 'delete subfolders and files under targetfolder
      for each folder in collfolder
wscript.echo "Attempting to delete " & folder
      fso.DeleteFolder folder, True
      next

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!

 

Author Comment

by:FIFBA
ID: 24870500
I see now...This is actually deleting files inside of a Microsoft DFS folder. Admin has permissions to it but it is choking on a DFS system file. How can I exclude the C:\Exchange Backups\dfsrprivate file?
0
 
LVL 67

Expert Comment

by:sirbounty
ID: 24870518
Place a

If Not lcase(folder)="c:\exchange backups\dfsrprivate" then
before the delete...

That or try scheduling it to run under the system credentials - that might work...
0
 

Author Comment

by:FIFBA
ID: 24870574
Could you post the entire script for me? Not a vbscript guy... thanks.

0
 
LVL 67

Accepted Solution

by:
sirbounty earned 2000 total points
ID: 24870599

dim fso, exchfolder,folder,collfolder,collfiles,file
Set fso   = WScript.CreateObject("Scripting.FileSystemObject")
set exchfolder = fso.GetFolder("E:\Exchange Backups\")  ' the target folder
 
Set collfiles=exchfolder.Files  'delete files under target folder
      for each file in collfiles
      file.delete
      next
 
Set collfolder=exchfolder.subfolders 'delete subfolders and files under targetfolder
      for each folder in collfolder
      If Not lcase(folder)="c:\exchange backups\dfsrprivate" then fso.DeleteFolder folder, True
      next

Open in new window

0
 

Author Comment

by:FIFBA
ID: 24870623
I get line 12 char 67 error...perm denied.
0
 

Author Comment

by:FIFBA
ID: 24870689
Nevermind....the path was wrong....directory is on E drive. Thanks for the help!!
0
 
LVL 67

Expert Comment

by:sirbounty
ID: 24870750
more perhaps that are preventing the deletion?
0
 
LVL 67

Expert Comment

by:sirbounty
ID: 24870757
Ah - didn't refresh...
Glad I could help - thanx for the grade! :^)
0

Featured Post

Hire Technology Freelancers with Gigs

Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.

Question has a verified solution.

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

This script will sweep a range of IP addresses (class c only, 255.255.255.0) and report to a log the version of office installed. What it does: 1.)      Creates log file in the directory the script is run from (if it doesn't already exist) 2.)      Sweep…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
The viewer will learn how to look for a specific file type in a local or remote server directory using PHP.
This tutorial will teach you the core code needed to finalize the addition of a watermark to your image. The viewer will use a small PHP class to learn and create a watermark.
Suggested Courses

610 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