Eliminar todos los archivos de un directorio

[DanX03]

Gracias por sus repuestas ya encontre la solucion

Código ASP:

dim fso,nfolder
 
set fso=server.CreateObject("Scripting.filesystemobject")
  if fso.folderexists(server.MapPath("graficas")) then
    fso.deletefolder(server.MapPath("graficas"))
    set nfolder=fso.createfolder(server.MapPath("graficas"))    
  else
    set nfolder=fso.createfolder(server.MapPath("graficas"))
  end if
 
  if fso.folderexists(server.MapPath("graficas2")) then
    fso.deletefolder(server.MapPath("graficas2"))
    set nfolder=fso.createfolder(server.MapPath("graficas2"))   
  else
    set nfolder=fso.createfolder(server.MapPath("graficas2"))
  end if
  
  set fso=nothing
  set nfolder=nothing