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.

This can be beneficial to other community members reading the thread. Surpac Crack Keygen Game. 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?

I need a VBscript to delete files and folders in my. Here is how you would do it in vbscript but I prefer the suggestion from. Folder, subFolder.

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.