VB 怎样搜索并且删除文件夹及文件夹下面的所有文件?

Private Const FO_MOVE = &H1
Private Const FO_COPY = &H2
Private Const FO_DELETE = &H3
Private Const FO_RENAME = &H4
Private Const FOF_NOCONFIRMATION = &H10
Private Const FOF_SILENT = &H4
Private Const FOF_NOERRORUI = &H400
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private Type SHFILEOPSTRUCT
    hwnd  As Long
    wFunc  As Long
    pFrom  As String
    pTo  As String
    fFlags  As Integer
    fAnyOperationsAborted  As Long
    hNameMappings  As Long
    lpszProgressTitle  As String                                                ' only  used  if  FOF_SIMPLEPROGRESS
End Type

'删除文件夹

Public Function KillPath(ByVal sPath As String) As Boolean
    On Error Resume Next
    Dim udtPath   As SHFILEOPSTRUCT
    udtPath.hwnd = 0
    udtPath.wFunc = FO_DELETE
    udtPath.pFrom = sPath
    udtPath.pTo = ""
    udtPath.fFlags = FOF_NOCONFIRMATION Or FOF_SILENT Or FOF_NOERRORUI
    KillPath = Not CBool(SHFileOperation(udtPath))
End Function
'复制文件夹

Public Function CopyPath(ByVal sPath As String, ByVal sTo As String) As Boolean
    On Error Resume Next
    Dim udtPath   As SHFILEOPSTRUCT
    udtPath.hwnd = 0
    udtPath.wFunc = FO_COPY
    udtPath.pFrom = sPath
    udtPath.pTo = sTo
    udtPath.fFlags = FOF_NOCONFIRMATION Or FOF_SILENT Or FOF_NOERRORUI
    CopyPath = Not CBool(SHFileOperation(udtPath))
End Function

Private Sub Command1_Click()
    KillPath "d:\testdel\"
End Sub