sub Borrar(nombre) Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(nombre) f.Delete() end sub