Delete Folder

Sub delete_folder()
    Dim Fs As Object
    Dim alamatfolder As String
   
    On Error GoTo DelErr
    Set Fs = CreateObject("Scripting.FileSystemObject")
    alamatfolder = ActiveWorkbook.Path & "\rpt_Temp"
   
    Fs.DeleteFolder alamatfolder, True
   
    Exit Sub
DelErr:
        Exit Sub
'    MsgBox Err.Number & vbCr & _
'    Err.Description
End Sub