CODE VBA DELETE ALL FILES AND FOLDERS

[Excelpromax123]

Hello everyone. I need a code to delete all folders and files, what should I do. Currently I am using below code which deletes all files only. The folder cannot be deleted.
Sincerely thank

Sub Remove_File()
 Kill "C:\Users\PC\Desktop\Test\*.*"
End Sub

 

[Dan_W]

Wouldn't rather have the files sent to the recycling bin? You're aware that there is no Undo for this - that you cannot CTRL-Z yourself to safety if anything goes wrong...?

 

[Sequoyah]

Hi Excelpromax123
this code does exactly what you ask (with irreversible results)

Sub DeleteFolder()
    
    Dim FSO As Object
    Dim MyPath As String
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    MyPath = "C:\Users\PC\Desktop\Test"        '<< To adapt if needed
    
    If Right(MyPath, 1) = "\" Then
        MyPath = Left(MyPath, Len(MyPath) - 1)
    End If
    
    If FSO.FolderExists(MyPath) = False Then
        MsgBox MyPath & "        't exist"
        Exit Sub
    End If
    
    FSO.DeleteFolder MyPath
    
End Sub

 

[Excelpromax123]

Hi Excelpromax123
this code does exactly what you ask (with irreversible results)

Sub DeleteFolder()
   
    Dim FSO As Object
    Dim MyPath As String
   
    Set FSO = CreateObject("Scripting.FileSystemObject")
   
    MyPath = "C:\Users\PC\Desktop\Test"        '<< To adapt if needed
   
    If Right(MyPath, 1) = "\" Then
        MyPath = Left(MyPath, Len(MyPath) - 1)
    End If
   
    If FSO.FolderExists(MyPath) = False Then
        MsgBox MyPath & "        't exist"
        Exit Sub
    End If
   
    FSO.DeleteFolder MyPath
   
End Sub

Thanks, buddy. The code runs very well