Option Explicit Dim strDirectory Dim objFSO strDirectory = "C:\yourfolder" Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FolderExists(strDirectory) Then objFSO.DeleteFolder strDirectory, 1 End If
