Delete folders and subfolders

[GP]

I have used the script off the KB on tek-tips but when I run the script it deletes all files and subfolders but not the main folder and gives an error "run-time '76' Path not found

Script:


Sub DeleteFolder(strNewDir)
' ***********************************************************
' *** This will delete a folder even if it contains files ***
' *** Use With Caution ***
' ***********************************************************
Dim fso

'Dim fol As String
Set fso = CreateObject("Scripting.FileSystemObject&quot
If fso.FolderExists(strNewDir) Then
fso.DeleteFolder strNewDir
Else
MsgBox strNewDir & " does not exist or has already been deleted!" _
, vbExclamation, "Folder not Found"
End If

End Sub

(strNewDir = "C:\CD240104\"

 

[TonyJollans]

Hi GP,

Try it with strNewDir = "C\CD240104" (i.e. without the trailing backslash).

Enjoy,
Tony

------------------------------------------------------------------------------------------------------
We want to help you; help us to do it by reading FAQ222-2244 before you ask a question.

 

[GP]

Tried that but I get a different error

runtime error 76 permission denied