The code below is suppose to find any directories in App.Path & "Configuered\*.*" Delete all files in the directories it finds , then delete the directories. This code only works someone of the time and only if there are files in the directories it finds. Can anyone help me fix this?

Code:
FileLister = Dir$(App.Path & "\Configured\*.*", vbDirectory) 'Remove all directories and files in direcotries in App.Path & "\Configured\*.*"
Do While Len(FileLister)
    If Mid$(FileLister, 1, 1) <> "." Then
        FileLister2 = Dir$(App.Path & FileLister & "\*.*")
            Do While Len(FileLister2)
                Kill App.Path & "\Configured\" & FileLister & "\" & FileLister2
                FileLister = Dir
            Loop
        RmDir App.Path & "\Configured\" & FileLister
    End If
    FileLister = Dir
Loop