Do it this way. The way you are trying to do it is incorrect. Set fso = CreateObject('Scripting.FileSystemObject') Set folder = fso.GetFolder('x: ') ' delete all files in root folder for each f in folder.Files On Error Resume Next name = f.name f.Delete True If Err Then WScript.Echo 'Error deleting:' & Name & ' - ' & Err.Description Else WScript.Echo 'Deleted:' & Name End If On Error GoTo 0 Next ' delete all subfolders and files For Each f In folder.SubFolders On Error Resume Next name = f.name f.Delete True If Err Then WScript.Echo 'Error deleting:' & Name & ' - ' & Err.Description Else WScript.Echo 'Deleted:' & Name End If On Error GoTo 0 Next jv. Hi, ' Delete All Subfolders and Files in a Folder Const DeleteReadOnly = TRUE Set objFSO = CreateObject ( 'Scripting.FileSystemObject' ) objFSO.DeleteFile ( 'C: FSO *' ), DeleteReadOnly objFSO.DeleteFolder ( 'C: FSO *' ),DeleteReadOnly Save the above code in test file with.vbs file extension. Modify 'C: FSO' to your folder. Disclaimer: This posting is provided AS-IS with no warranties or guarantees and confers no rights. Please remember to click “Mark as Answer” on the post that helps you, and to click “Unmark as Answer” if a marked post does not actually answer your question.

How to use VBA to 'do something' in Outlook's non-default folders. To use a specific folder in another data file in the profile, you need to use a function. Folders Set oFolder = SubFolders.item(FoldersArray(i)) If oFolder Is Nothing Then Set GetFolderPath = Nothing End If Next End If 'Return the oFolder. When you 'switch' to a.imgPTN file, the E2B partition disappears. So the _ISO folder and all other files are no longer present. The only reason to use imgPTN files.

This can be beneficial to other community members reading the thread. Hi, ok Thanks it works. Hi, ok Thanks it works. That code will throw a syntax error because of the parens (subroutines cannot use parens). It should read. Const DeleteReadOnly = True Set objFSO = CreateObject( 'Scripting.FileSystemObject') objFSO.DeleteFolder 'X: *', DeleteReadOnly or Const DeleteReadOnly = True Set objFSO = CreateObject( 'Scripting.FileSystemObject') CALL objFSO.DeleteFolder( 'X: *', DeleteReadOnly) However, this problem isn't likely to be script related. It's probably a permissions issue related to OS special folders (see jrv's posting).

Hi, again This is my code: must delete files and (sub)folders but leaving parent folder ' Delete all Subfolders and Files in a Folder Const DeleteReadonly=TRUE Set objFSO = CreateObject('Scripting.FileSystemObject') objFSO.DeleteFile('x: *'), DeleteReadonly objFSO.DeleteFolder('x: *'),DeleteReadonly The share is on a cifs file systemas (Emc NAS Celerra). I can delete manually its contents, accessing it with net use command to access the share, with domain adminstrator rights from my windows xp pc. Please help thx.

Hi, again This is my code: must delete files and (sub)folders but leaving parent folder ' Delete all Subfolders and Files in a Folder Const DeleteReadonly=TRUE Set objFSO = CreateObject('Scripting.FileSystemObject') objFSO.DeleteFile('x: *'), DeleteReadonly objFSO.DeleteFolder('x: *'),DeleteReadonly The share is on a cifs file systemas (Emc NAS Celerra). I can delete manually its contents, accessing it with net use command to access the share, with domain adminstrator rights from my windows xp pc. Please help thx.

You are still not supplying enough information. Are you logged in as an administrator? What is the error message? If files are open they cannot be deleted.

Your original request say line 6 is in error. There is no line 6 in the script. You are not telling us s good story. Do it this way. The way you are trying to do it is incorrect. Set fso = CreateObject('Scripting.FileSystemObject') Set folder = fso.GetFolder('x: ') ' delete all files in root folder for each f in folder.Files On Error Resume Next name = f.name f.Delete True If Err Then WScript.Echo 'Error deleting:' & Name & ' - ' & Err.Description Else WScript.Echo 'Deleted:' & Name End If On Error GoTo 0 Next ' delete all subfolders and files For Each f In folder.SubFolders On Error Resume Next name = f.name f.Delete True If Err Then WScript.Echo 'Error deleting:' & Name & ' - ' & Err.Description Else WScript.Echo 'Deleted:' & Name End If On Error GoTo 0 Next jv.

I have a script that starts with a specific 'path' and is supposed to examine every folder beneath the path and delete any folders that are empty. It checks to make sure there are no more subfolders and no more files within the folder before it attempts to delete the folder.

For some reason it is not deleting the folders. I have added a few msgbox functions to help keep track of the progress as the script runs and, as far as I can tell, it is finding empty folders correctly but it just isnt deleting them. Below is the script.

Any advice would be appreciated. Dim objFSO Dim objFolder set fso = createobject('scripting.filesystemobject') set objFSO = Wscript.CreateObject('Scripting.FileSystemObject') path = 'e: temp holding folder' FindEmptyFolders path Sub FindEmptyFolders(nPath) ' Verify if there is subfolder(s) and file(s) in it and delete it. Msgbox nPath ' msgbox ('Folders') ' msgbox ('Files', objFSO.GetFolder(nPath).Files.Count) msgbox (objFSO.GetFolder(nPath).Files.Count) msgbox (objFSO.GetFolder(nPath).SubFolders.Count) If (objFSO.GetFolder(nPath).SubFolders.Count = 0) AND (objFSO.GetFolder(nPath).Files.Count = 0) Then objFSO.DeleteFolder(nPath) End If ' If there is subfolder(s) under current folder in nPath, call ' recursively this sub until there is no other subfolder(s) For Each objFolder In objFSO.GetFolder(nPath).Subfolders on error resume next FindEmptyFolders(objFolder.Path) Next End sub McKirahan 10.01.08 06:59.

'carlrimmel@NOgmailSPAM.com' wrote in message news:61f013b0-cc98-49c9-8154-adcf72c3e9ba@d21g2000prf.googlegroups.com. >I have a script that starts with a specific 'path' and is supposed to >examine every folder beneath the path and delete any folders that are >empty.

It checks to make sure there are no more subfolders and no >more files within the folder before it attempts to delete the folder. >For some reason it is not deleting the folders. I have added a few >msgbox functions to help keep track of the progress as the script runs >and, as far as I can tell, it is finding empty folders correctly but >it just isnt deleting them. Below is the script. Any advice would be >appreciated.

[snip] >set fso = createobject('scripting.filesystemobject') is not necessary; (you'r usng objFSO). >path = 'e: temp holding folder' With spaces in the path, enclose it in quotes. If won't handle deleting a folder that contains an empty subfolder as the subfolder would be deleted after the test for the folder. Create Sophos Install Package For Mac. Ekkehard.horner 10.01.08 07:18.

Carlrimmel@NOgmailSPAM.com schrieb: >I have a script that starts with a specific 'path' and is supposed to >examine every folder beneath the path and delete any folders that are >empty. It checks to make sure there are no more subfolders and no >more files within the folder before it attempts to delete the folder. >For some reason it is not deleting the folders. I have added a few >msgbox functions to help keep track of the progress as the script runs >and, as far as I can tell, it is finding empty folders correctly but >it just isnt deleting them. Below is the script.

Any advice would be >appreciated. >>Dim objFSO >Dim objFolder >set fso = createobject('scripting.filesystemobject') >set objFSO = Wscript.CreateObject('Scripting.FileSystemObject') >>path = 'e: temp holding folder' BTW, this is correct (without extra ') because the string path isn't pathed - passed - to a command line; functions like GetFolder() handle their params intelligenty >>FindEmptyFolders path >>Sub FindEmptyFolders(nPath) >' Verify if there is subfolder(s) and file(s) in it and delete it. 'McKirahan' wrote in message news:P5qdnboCtecYrxvanZ2dnUVZ_ruqnZ2d@comcast.com. >'carlrimmel@NOgmailSPAM.com' wrote in message >news:61f013b0-cc98-49c9-8154-adcf72c3e9ba@d21g2000prf.googlegroups.com.

>>I have a script that starts with a specific 'path' and is supposed to >>examine every folder beneath the path and delete any folders that are >>empty. It checks to make sure there are no more subfolders and no >>more files within the folder before it attempts to delete the folder. >>For some reason it is not deleting the folders. I have added a few >>msgbox functions to help keep track of the progress as the script runs >>and, as far as I can tell, it is finding empty folders correctly but >>it just isnt deleting them. Below is the script. Any advice would be >>appreciated.

>>[snip] >>>set fso = createobject('scripting.filesystemobject') >is not necessary; (you'r usng objFSO). >>>path = 'e: temp holding folder' >With spaces in the path, enclose it in quotes.

>If won't handle deleting a folder that contains an >empty subfolder as the subfolder would be deleted >after the test for the folder. Will this help? Watch for word-wrap. Since higher level folders may contain empty subfolders (which will be deleted) it will continue until no more folders are deleted. WScript.Echo '.'

& nPath -- identifies each folder tested. WScript.Echo '!' & nPath -- identifies each folder deleted. Option Explicit Const path = 'e: temp holding folder' Dim booDEL Dim strFOL Dim objFSO Set objFSO = Wscript.CreateObject('Scripting.FileSystemObject') Do booDEL = False Call FindEmptyFolders(path) If Not booDEL Then Exit Do Loop Sub FindEmptyFolders(nPath) WScript.Echo '?

' & nPath If objFSO.GetFolder(nPath).SubFolders.Count = 0 _ And objFSO.GetFolder(nPath).Files.Count = 0 Then objFSO.DeleteFolder(nPath) WScript.Echo '! ' & nPath booDEL = True Else For Each strFOL In objFSO.GetFolder(nPath).Subfolders FindEmptyFolders(strFOL.Path) Next End If End Sub carlr.@NOgmailSPAM.com 10.01.08 07:40. >>set fso = createobject('scripting.filesystemobject') >>is not necessary; (you'r usng objFSO). Yeah, that was left over from a larger script and I just didn't bother to delete it.

>>path = 'e: temp holding folder' >>With spaces in the path, enclose it in quotes. So, your saying that the path should be 'e: temp holding folder' essentially I should be using double quotes? >If won't handle deleting a folder that contains an >empty subfolder as the subfolder would be deleted >after the test for the folder. Yeah, I knew that but wasn't concerned as it should just catch and delete the root folder the next time it runs. McKirahan 10.01.08 07:51. 'carlrimmel@NOgmailSPAM.com' wrote in message news:fbd18416-198a-4c0e-af3c-360c97d5c18c@s19g2000prg.googlegroups.com. >>>set fso = createobject('scripting.filesystemobject') >>>>Devil May Cry 6 Download Kickass. is not necessary; (you'r usng objFSO).

>>Yeah, that was left over from a larger script and I just didn't bother >to delete it. >>>>path = 'e: temp holding folder' >>>>With spaces in the path, enclose it in quotes. >>So, your saying that the path should be 'e: temp holding folder' >essentially I should be using double quotes? No; I was wrong. >>If won't handle deleting a folder that contains an >>empty subfolder as the subfolder would be deleted >>after the test for the folder. >>Yeah, I knew that but wasn't concerned as it should just catch and >delete the root folder the next time it runs.

Testing your code revealed that it failed if it deleted a folder then tried to find the deleted folder's subfolders. Carlr.@NOgmailSPAM.com 10.01.08 08:17.

In trying to isolate the problem, I tried to just simply delete one folder based on the 'path' variable, and I am now getting a VBScript runtime error saying Permission denied. Here is the code: Dim objFSO Dim objFolder set objFSO = Wscript.CreateObject('Scripting.FileSystemObject') path = 'e: temp holding folder andrea colegrove favorites' objFSO.DeleteFolder(Path) Any ideas why I would be getting this?

It is all run locally and, since I am a local administator on the machine, it should have no problem deleting these files. McKirahan 10.01.08 08:29. 'carlrimmel@NOgmailSPAM.com' wrote in message news:6380c9a4-56ce-48d9-8cba-5ea73b4aede7@v29g2000hsf.googlegroups.com. Here's how I tested it successfully on a diskette. 1) I created the script file 'FindEmptyFolders.vbs': Option Explicit '* '* Declare Constants '* 'Const path = 'e: temp holding folder' Const path = 'a: temp dir' '* '* Declare Variables '* Dim booDEL Dim strFOL '* '* Declare Objects '* Dim objFSO Set objFSO = Wscript.CreateObject('Scripting.FileSystemObject') '* '* FindEmptyFolders() '* Do booDEL = False Call FindEmptyFolders(path) If Not booDEL Then Exit Do WScript.Echo ':' Loop Sub FindEmptyFolders(nPath) WScript.Echo '.

' & nPath If objFSO.GetFolder(nPath).SubFolders.Count = 0 _ And objFSO.GetFolder(nPath).Files.Count = 0 Then WScript.Echo '! ' & nPath objFSO.DeleteFolder(nPath) booDEL = True Else For Each strFOL In objFSO.GetFolder(nPath).Subfolders FindEmptyFolders(strFOL.Path) Next End If End Sub 2) I created the batch file 'FindEmptyFolders.bat': @echo off echo FindEmptyFolders.bat echo. If exist 'a: temp dir nul' deltree 'a: temp dir' /Y md 'a: temp dir' md 'a: temp dir 1' md 'a: temp dir 1 1.1' md 'a: temp dir 1 1.2' echo >'a: temp dir 1 1.2 1.txt' md 'a: temp dir 2' md 'a: temp dir 2 2.1' md 'a: temp dir 3' echo >'a: temp dir 3 3.txt' echo. Dir 'a: temp dir' /a/o/s find /v ' find ':' 3) Then I opened up a command prompt and ran the batch file: C: >a: A: >FindEmptyFolders.bat FindEmptyFolders.bat Delete directory 'a: temp dir' and all its subdirectories? [yn] y Deleting a: temp dir.

Directory of A: temp dir Directory of A: temp dir 1 Directory of A: temp dir 1 1.1 Directory of A: temp dir 1 1.2 1 TXT 13 01-10-08 11:42a 1.txt Directory of A: temp dir 2 Directory of A: temp dir 2 2.1 Directory of A: temp dir 3 3 TXT 13 01-10-08 11:42a 3.txt Total files listed: A: >4) Then (still at the command prompt) I ran the script file: A: >cscript //nologo FindEmptyFolders.vbs. A: temp dir 1. A: temp dir 1 1.1!

A: temp dir 1 1.1. A: temp dir 1 1.2. A: temp dir 2. A: temp dir 2 2.1! A: temp dir 2 2.1. A: temp dir 3:.

A: temp dir 1. A: temp dir 1 1.2. A: temp dir 2! A: temp dir 2. A: temp dir 3:.

A: temp dir 1. A: temp dir 1 1.2.

A: temp dir 3 A: >5) Which revealed that three folders were deleted in 3 passes. Carlr.@NOgmailSPAM.com 10.01.08 10:54. I found the problem. The script is performing flawlessly (both yours and mine).

The problem is caused by a read- only attribute on the folders we are trying to delete. These files are typically migrated Windows XP profiles and, as such, they are tagged with a R attribute. Whats even more amazing is that I cant even change this attribute using Explorer. According to the below MS article, the R attribute is usually ignored by Windows programs (such as Explorer) but it seems that WSH does not ignore it and, thus, I was getting permission denied errors. I am going to add a line in my script to flag all of the files back to normal using the attrib command so that it runs successfully. Thanks so much for your help!