verwijder directory en alle sub-dirs + inhoud

[jvsoest]

Hallo,

Ik zoek vb(a) code waarmee je een directory inclusief sub-directories en bestanden in één keer kan verwijderen

Bedankt vast!

 

[jvsoest]

Via volgende code gebeurt het:

Sub subVerwijderDirectory(strDirectory)
On Error Resume Next
Dim objFolder As folder
Dim objFs As FileSystemObject (verwijzing naar scripting runtime aanzetten)
Set objFs = CreateObject("Scripting.FileSystemObject")
objFs.DeleteFolder strDirectory, True

End Sub