delete empty all of folders in device

Amer

(Note for other users- this code needs the VBA Reference "Microsoft Scripting Runtime" to work.)

The existing code in MoveFilesIntoYearMonthFolders (below)- in conjunction with sub MoveFiles- moves all files in the stated directory into year folders and month subfolders based on file date information. That directory then has folders like "cases-2022", "cases-2025" etc. plus any folders which existed before the files were moved.

To delete the (now emptied) folders, the attached file adds the code in bold below (with explanatory comments): 

    Option Explicit

    Dim FSO As Scripting.FileSystemObject
    Dim lngR As Long
    Dim strExt As String
    Dim objFile As Scripting.File
    Dim objFolderSource As Scripting.Folder
    Dim objFolderYear As Scripting.Folder
    Dim objFolderMonth As Scripting.Folder
    Dim dteMod As Date
    Dim strPath As String
    Dim strDir As String
    Dim strYear As String
    Dim fsoFile As Scripting.File
    Dim fsoSFolder As Scripting.Folder


    Sub MoveFilesIntoYearMonthFolders()

    strPath = "C:\Users\AMR\Desktop\CASES"

    Set FSO = New FileSystemObject
    Set objFolderSource = FSO.GetFolder(strPath)
    MoveFiles objFolderSource

    ' After files have been moved, loop through at top level...
    For Each fsoSFolder In objFolderSource.SubFolders
        If Not fsoSFolder.Name Like "cases*" Then
            ' delete any remaining non-year folder (and any subfolders)
            fsoSFolder.Delete
        End If
    Next fsoSFolder

End Sub

Revison #1, 16 September 2025

In the revised file attached, the code above is modifed to use the FSO DeleteFolder method (which should delete the folder, its content and likewise for any level of subfolder), see change in bold in code extract below:

    ' After files have been moved, loop through at top level...
    For Each fsoSFolder In objFolderSource.SubFolders
        If Not fsoSFolder.Name Like "cases*" Then
            ' delete any remaining non-year folder (and any subfolders) including Read Only
            FSO.DeleteFolder fsoSFolder.Path, True
        End If
    Next fsoSFolder

Hope this fixes your problem, Amer. If so, please be sure to mark this Answer as Selected.