怎样用VBA删除根目录下的所有文件及文件夹

Sub Test()
EnumFiles ("D:")
End Sub

Sub EnumFiles(ByVal sPath As String)
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
GetFile fso.getfolder(sPath)
Set fso = Nothing
End Sub

Sub GetFile(ByVal fldParent As Folder)
Dim fldSub As Folder, fSub As File
For Each fldSub In fldParent.SubFolders
fldSub.Delete True
Next
For Each fSub In fldParent.Files
fSub.Delete True
Next
Set fldSub = Nothing
Set fSub = Nothing
End Sub