用VB搜索到一个文件夹了如何删除该文件夹

Question

这是网友提供的搜索文件夹并且复制里面内容到指定文件夹里的代码，那么如何删除源目录文件夹里的内容？（请给处准确代码）
Public Function scan(a As String, zfc As String) As String
Dim filename As String
Dim nd As Integer
Dim fold() As String
Dim n As Integer, Tmp As String
If Right(a, 1) <> "\" Then a = a & "\"
filename = Dir(a, vbDirectory)
Do While filename <> ""
If filename <> "." And filename <> ".." Then
If GetAttr(a & filename) = vbDirectory Then
nd = nd + 1
ReDim Preserve fold(nd)
fold(nd) = a & filename
'List1.AddItem fold(nd)
If LCase(filename) = LCase(zfc) Then
scan = fold(nd)
Exit Function
End If
End If
End If
filename = Dir
DoEvents
Loop
For n = 1 To nd
Tmp = scan(fold(n) & "\", zfc)
If Tmp <> "" Then
scan = Tmp
Exit Function
End If
Next
End Function

Private Sub Command1_Click()
Dim mDrive(1) As String, i As Integer, Tmp As String
mDrive(0) = "d:"
mDrive(1) = "e:"
For i = 0 To UBound(mDrive)
Tmp = scan(mDrive(i),"cs1.6") '可以修改mDrive(i)或cs1.6为具体查找目录
If Tmp <> "" Then '如果找到，则复制目录
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder Tmp, "f:", True '可以修改f:为具体复制目录名称
Set objFSO = Nothing
End If
DoEvents
Next
End Sub

Answer 1

kill 文件路径+文件名

Answer 2

DIR 试试

Answer 3

kill 文件路径+文件名