|
" Hay la misma diferencia entre un sabio y un ignorante que entre un hombre vivo y un cadáver " - Aristóteles - ![]() |
Computerfacil.com |
Chat
Fotos
Últimos Posts
Ayuda
Búsqueda
Miembros
Calendario
|
| Bienvenido, invitado ( Identificarse | Registrarse ) | Reenviar mensaje de validación |
|
|
Forista del Mes: amateos1404
|
![]() ![]() ![]() |
| dejavi |
|
![]() Tera user Grupo: Moderadores Mensajes: 3.666 Miembro nº: 17.695 Registrado: 18-January 07 |
250807.
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) ... -------------------- |
![]() |
![]() ![]() ![]() |
|
|
|