消せない フォルダ を削除

先に断っておきます、Win11は削除出来ることが多いので問題にならない
主にWin10以前の話です。
1. 前提としてOSや他のシステムが対象をロックしていないこと
2. フォルダ名 ＆ ”半角スペース” で生成されている
3. 中のフォルダやファイルは削除済み　

---

Private Declare PtrSafe Function RemoveDirectory Lib "kernel32" Alias "RemoveDirectoryA" (ByVal lpPathName As String) As Long

Sub DeleteFolder()
    Dim folderPath As String
    folderPath = フルパス ＆ "￥"
    If RemoveDirectory(folderPath) <> 0 Then
        MsgBox "フォルダが削除されました。"
    Else
        MsgBox "フォルダの削除に失敗しました。"
    End If
End Sub

---

禁則文字などは別の問題です、フォルダ名などで、これ込みで生成する
コードは問題ありすぎだと思う。

それは置いておき、上記のコードは Win32 API を利用し、強力なので使用注意。

常新しいOSやオフィスを使っている訳では、ないので備忘として。