Foro de Informatica
" Hay la misma diferencia entre un sabio y un ignorante que entre un hombre vivo y un cadáver "

- Aristóteles -



        


Google
 
Web www.ComputerFacil.com
Forista del Mes:

amateos1404


  Reply to this topicStart new topicStart Poll

> Eliminar Archivos Y Carpetas
dejavi
  Publicado: Aug 25 2007, 01:59 AM
Quote Post


Tera user
Group Icon

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)
...



bye1.gif






--------------------
user posted image
PMEmail Poster
Top
0 usuario(s) está(n) leyendo esta discusión (0 invitado(s) y 0 usuario(s) anónimo(s))
0 miembro(s):

Topic Options Reply to this topicStart new topicStart Poll

 


ComputerFacil.com © 2006
          Webs Afiliadas - Contacto
Ofertas PCs :: Consultor de Marketing Online :: Foros :: Posicionamiento Web :: Foros de Informatica :: Foros :: eurodipity :: elhacker