Help needed with VB Script to delete folder and all files.

[Kyle]

I need a VBScript that will check if a folder exists and if so delete it and all its contents. I have a VBScript that will do it for a singe file and i am not sure ho to convert it so it will delete a folder and all its contents. THis is what i hav....

Call DeleteIfFound ("C:\Documents and Settings\All Users\Start Menu\Programs\Web Design\Macromedia\Macromedia Contribute 3.lnk")

Function DeleteIfFound (FilePath)
Dim Fso
Set Fso = CreateObject ("Scripting.FileSystemObject")
If Fso.FileExists (FilePath) Then
Fso.DeleteFile (FilePath)
End If
Set Fso = Nothing

Basically I have a RIS image and it contains software that is not site licensed, i don't want to create a nother image just for that. So I just want to dlete the folder and shortcuts from the 'all users' menu.
End Function

[GlennT]

You could use a batch file with this in it....

if exist "C:\Documents and Settings\All Users\Start Menu\Programs\Web Design\Macromedia" rmdir /S /Q "C:\Documents and Settings\All Users\Start Menu\Programs\Web Design\Macromedia"

That should do the trick.

[Iain]

Or if you really want to use vbscript:

strPath = "C:\pathtofolder"

DeleteFolder strPath

Function DeleteFolder(strFolderPath)
Dim objFSO, objFolder
Set objFSO = CreateObject ("Scripting.FileSystemObject")
If objFSO.FolderExists(strFolderPath) Then
	objFSO.DeleteFolder strFolderPath, True
End If
Set objFSO = Nothing
End Function

[Kyle]

Thaks Iain that works perfectly