DelTree

DelTree function using FileSystemObject. Removes folder regardless of files/folders/system/hidden contained within. Couldn't find any deltree code here that worked, most used the kill statement and such in a rather large sub, found this in MSDN...

Original Author: michael schmidt

Code


Public Sub DelTree(ByVal vDir As Variant)

Dim FSO, FS


Set FSO = CreateObject("Scripting.FileSystemObject")

FS = FSO.deletefolder(vDir, True)


End Sub