Eliminar archivo y folder

Hola Nelson,

Puedes probar las siguientes instrucciones. Leete la ayuda para los comandos
DeleteFolder, DeleteFile y Kill antes de usarlos.

Saludos,
KL

Sub EliminarCarpeta()
Set fs = CreateObject("Scripting.FileSystemObject")
fs.DeleteFolder "c:\Temp", True
End Sub

Sub EliminarFichero1()
Set fs = CreateObject("Scripting.FileSystemObject")
fs.DeleteFile "c:\Temp\Test.xls", True
End Sub

Sub EliminarFichero2()
Kill "c:\Temp\Test.xls"
End Sub

"nelson" wrote in message
news:

Hola a todos, me gustaria mucho si pudieran ayudarme con el codigo para
poder
eliminar una carpeta con todos los archivos
y
eliminar un solo archivo

gracias de antemano

saludos