Borrar Archivos y Carpetas
Dos ejemplos sencillos, usando el objeto FileSystem para eliminar archivos y carpetas en el
servidor.
Los presento en forma de función, y abajo les dejo un par de ejemplos de como se usan. Es muy simple.
Estas funciones, antes de eliminar el archivo o la carpeta, comprueban que existen... esto es para que si
no existen, no nos de un error.
Suerte! Y ojo con borrar sin precaución, que no hay papelera en estos casos...
<%
Function BorrarArchivo(archivo)
dim fs
Set fs = Server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists(archivo) then fs.DeleteFile(archivo)
Set fs = Nothing
End function
%>
|
<%
Function BorrarCarpeta(carpeta)
Dim fs
Set fs = Server.CreateObject("Scripting.FileSystemObject")
if fs.FolderExists(carpeta) then fs.DeleteFolder(carpeta)
Set fs = Nothing
End Function
%>
|
...
arch = "c:\proyecto1\a.txt"
carp = "c:\proyecto1"
...
BorrarArchivo(arch)
BorrarCarpeta(carp)
...
|
Importante: Si intentan borrar una carpeta que contiene archivos, se borra igual
eliminando automaticamente todos los archivos que existian en ella.
Tip: Recuerden el método Server.mappath. Nos devuelve el directorio donde se esta ejecutando
el script... muy util y necesario cuando subimos las paginas a un servidor
|
