View: - 146
'REFERENCE USED : Microsoft Scripting Runtime Public FSO As Scripting.FileSystemObject Public SourcePath As String Public Sub DeleteFolder() Dim Ans As Integer SourcePath = "C:\new folder" 'The Folder you need to Delete. Set FSO = New Scripting.FileSystemObject 'CONFIRM MESSAGE BOX Ans = MsgBox("Are you sure, Do you want to delete folder", vbExclamation + vbYesNo) If Ans = vbYes Then FSO.DeleteFolder SourcePath, False 'True to force delete file. Else Exit Sub End If Set FSO = Nothing End Sub
