?
Solved

VBSCRIPT to delete all files and folers in a directory

Posted on 2009-07-16
11
Medium Priority
?
581 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
VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

 

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

Get real performance insights from real users

Key features:
- Total Pages Views and Load times
- Top Pages Viewed and Load Times
- Real Time Site Page Build Performance
- Users’ Browser and Platform Performance
- Geographic User Breakdown
- And more

Question has a verified solution.

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

Active Directory replication delay is the cause to many problems.  Here is a super easy script to force Active Directory replication to all sites with by using an elevated PowerShell command prompt, and a tool to verify your changes.
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 create a basic form using some HTML5 and PHP for later processing. Set up your basic HTML file. Open your form tag and set the method and action attributes.: (CODE) Set up your first few inputs one for the name and …
In this fourth video of the Xpdf series, we discuss and demonstrate the PDFinfo utility, which retrieves the contents of a PDF's Info Dictionary, as well as some other information, including the page count. We show how to isolate the page count in a…
Suggested Courses

777 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