エクセルのマクロについて教えてくださいマクロを実行するとメッセージボックスが表示されて okをク

Question

エクセルのマクロについて教えてください
 マクロを実行すると
 メッセージボックスが表示されて 
 okをクリックすると
 作業フォルダのダイナログが開いて フォルダ内にあるフォルダやファイルをCtrlキーを押しながらマウスで指定したフォルダやファイルを削除出来る方法を教えて下さい
 メッセージボックスのアイコンは赤丸に✖️でメッセージは 
 回答フォルダ、不要ファイルを削除します。
 okをクリックすると
 作業フォルダのダイナログが開いて
 削除したいフォルダやファイルを指定して 警告文なしで okで削除
 その後 次の作業に進みます 
 メッセージのキャンセルをクリックするとマクロは実行されず
 次の作業に進めます
 詳しいコードを教えてください
 よろしくお願いします

佐藤俊夫 · Accepted Answer

フォルダが削除できません。色々試したんですがダメでした。
ファイルを削除するときは選択してOKボタン。
フォルダを含む場合は選択して右クリックで削除でお願いします。
ちょっとスマートじゃないんですけど、すいません。

佐藤俊夫 · Answer

Sub フォルダ削除マクロ()
    ' メッセージボックスの表示
    Dim result As VbMsgBoxResult
    result = MsgBox("回答フォルダ、不要ファイルを削除します。続行しますか？", vbCritical + vbYesNo, "作業フォルダ削除")
    
    ' キャンセルがクリックされた場合、マクロの実行を終了
    If result = vbNo Then Exit Sub
    
    ' フォルダダイアログを開いてフォルダを選択
    Dim folderPath As String
    With Application.fileDialog(msoFileDialogFolderPicker)
        .Title = "作業フォルダを選択してください"
        .Show
        If .selectedItems.Count > 0 Then
            folderPath = .selectedItems(1)
        Else
            Exit Sub
        End If
    End With
    
    ' ファイル選択ダイアログを開いてファイルを選択
    Dim fileDialog As fileDialog
    Set fileDialog = Application.fileDialog(msoFileDialogFilePicker)
    
    ' 複数のファイル選択を許可
    fileDialog.AllowMultiSelect = True
    
    ' ファイル選択ダイアログを表示
    If fileDialog.Show = -1 Then
        ' 選択されたファイルを削除
        Dim selectedFile As Variant
        For Each selectedFile In fileDialog.selectedItems
            On Error Resume Next
            VBA.FileSystem.Kill selectedFile
            On Error GoTo 0
        Next selectedFile
        
        ' メッセージボックスの表示
        MsgBox "ファイルの削除が完了しました。", vbInformation + vbOKOnly, "作業フォルダ削除"
    End If
End Sub

一応動作確認しました。

佐藤俊夫 · Answer

Sub DeleteFoldersAndFiles()
    ' メッセージボックスの表示
    Dim response As Integer
    response = MsgBox("回答フォルダ、不要ファイルを削除します。続行しますか？", vbExclamation + vbOKCancel, "削除の確認")
    
    ' OKをクリックした場合の処理
    If response = vbOK Then
        ' 作業フォルダの選択
        Dim dialog As FileDialog
        Dim folderPath As String
        Set dialog = Application.FileDialog(msoFileDialogFolderPicker)
        dialog.Title = "削除するフォルダを選択してください"
        dialog.AllowMultiSelect = False
        
        ' フォルダの選択ダイアログを表示
        If dialog.Show = -1 Then
            folderPath = dialog.SelectedItems(1)
            
            ' Ctrlキーを押しながらマウスで指定したフォルダやファイルを削除
            Dim objShell As Object
            Set objShell = CreateObject("Shell.Application")
            objShell.Namespace(Left(folderPath, InStrRev(folderPath, "\") - 1)).ParseName(Right(folderPath, Len(folderPath) - InStrRev(folderPath, "\"))).InvokeVerb ("delete")
            
            MsgBox "削除が完了しました。", vbInformation, "削除完了"
        End If
    Else
        ' キャンセルをクリックした場合の処理
        MsgBox "削除をキャンセルしました。", vbInformation, "削除キャンセル"
    End If
End Sub

佐藤俊夫 · Answer

Sub DeleteFoldersAndFiles()
    ' メッセージボックスを表示
    Dim response As Integer
    response = MsgBox("回答フォルダと不要ファイルを削除します。続行しますか？", vbCritical + vbOKCancel, "警告")
    
    ' OKをクリックした場合
    If response = vbOK Then
        ' フォルダの選択ダイアログを表示
        Dim folderPath As Variant
        folderPath = Application.GetOpenFilename("フォルダを選択してください", , "フォルダの選択", , True)
        
        ' フォルダが選択された場合
        If folderPath <> False Then
            ' フォルダやファイルを削除
            Dim fso As Object
            Set fso = CreateObject("Scripting.FileSystemObject")
            fso.DeleteFolder folderPath, True
            
            ' 次の作業に進む
            ' ここに次の作業のコードを記述する
        End If
    Else ' キャンセルをクリックした場合
        ' 次の作業に進む
        ' ここに次の作業のコードを記述する
    End If
End Sub

エクセルのマクロについて教えてください マクロを実行すると メッセージボックスが表示されて okをク

フォルダが削除できません。

Sub フォルダ削除マクロ()

Sub DeleteFoldersAndFiles()

Sub DeleteFoldersAndFiles()

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

エクセルのマクロについて教えてくださいマクロを実行するとメッセージボックスが表示されて okをク