フォルダを削除する

フォルダを削除するには、以下のようにします。

参照設定に「Microsoft Scripting Runtime」を追加します。

Private Sub Command1_Click()

    Dim f As New FileSystemObject
    
    If f.FolderExists("c:\test") Then
        f.DeleteFolder "c:\test"
    End If
    
    Set f = Nothing
    
End Sub