Dim fso As new Scripting.FileSystemObject
Public Declare Function CloseHandle Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long

'отрубаем обработчик ошибок
on error resume next

'проверяем наличие папки
if fso.FolderExists ("D:\1") then
  'пробуем закрыть и удалить файлы
  for each fl in fso.GetFolder("D:\1").Files
     'получаем название файла и пытаемся удалить
     fl.Delete
     If err.Number <>  0  then
        CloseHandle(fl)
     endif

      fl.delete
      err.number =  0 
  next
endif

on error goto EH
fso.DeleteFolder("D:\1",True)