Solved Kill a Folder

[sergio vieira]

Good morning. Greetings to everyone from Portugal. I have a folder in c:\Patrigest\Properties. Inside this Folder, I have a Folder with subfolders. I need to, from time to time, delete this folder and subfolders. I tried several ways and... nothing. The folder

does not delete. How can I do this? I appreciate your help.

 

[Gasman]

Can you delete it manually?

From ChatGPT.

Sub DeleteFolderAndSubfolders()
    Dim fso As Object
    Dim folderPath As String

    ' Set the folder path you want to delete
    folderPath = "C:\YourFolderPath" ' Change this to the actual folder path

    ' Create a FileSystemObject
    Set fso = CreateObject("Scripting.FileSystemObject")

    ' Check if the folder exists before attempting to delete it
    If fso.FolderExists(folderPath) Then
        fso.DeleteFolder folderPath, True ' True forces deletion without confirmation
        MsgBox "Folder and its subfolders deleted successfully.", vbInformation, "Success"
    Else
        MsgBox "Folder does not exist.", vbExclamation, "Error"
    End If

    ' Clean up
    Set fso = Nothing
End Sub

 

[sergio vieira]

Dear friend. Thanks a lot. Solved. Greetings