关于文件夹的删除操作操作

Question

在某文件夹下存在如下文件(d:\za.zip)
首先判断与za.zip同名的目录的存在若存在
则删除
如何实现

Answer 1

删除指定的文件夹
'引用Microsoft Scripting Runtime
Private Sub Command1_Click()
    Dim folderName As String, fso As New FileSystemObject
    folderName = "c:\123"
    If fso.GetFolder(folderName) <> "" Then
        fso.DeleteFolder folderName
    End If
End Sub