Ver Mensaje Individual
  #41 (permalink)  
Antiguo 19/12/2004, 01:08
Avatar de lexus
lexus
 
Fecha de Ingreso: enero-2002
Ubicación: Cali - Colombia
Mensajes: 2.234
Antigüedad: 22 años, 10 meses
Puntos: 4
Borrar archivos o carpetas

estas funciones las vi no recuerdo donde pero me han servido muchisisisimo.

usan filesystemobject para borrar archivos o carpetas

Código:
 Borrar archivo 
 
Function BorrarArchivo(archivo)
	dim fs
	Set fs = Server.CreateObject("Scripting.FileSystemObject") 
	if fs.FileExists(archivo) then fs.DeleteFile(archivo)
	Set fs = Nothing
End function
 
arch = "c:\proyecto1\a.txt"
BorrarArchivo(arch)



Código:
Borrar Carpeta
 
Function BorrarCarpeta(carpeta)
	Dim fs
	Set fs = Server.CreateObject("Scripting.FileSystemObject")
	if fs.FolderExists(carpeta) then fs.DeleteFolder(carpeta)
	Set fs = Nothing
End Function
 
carp = "c:\proyecto1"
BorrarCarpeta(carp)
__________________
Control de Visitantes, Control de Accesos, Minutas digitales, Manejo de Correspondencia
http://www.controldevisitantes.com