Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 eliminar carpeta del servidor
 Foro Bloqueado  Tema Bloqueado


Autor Temas
ce
Average Member

España
523 Posts
Mensajes - 09 Nov 2005 :  00:00:40  Ver Perfil  Enviar Email  Visit ce's Homepage
Hola a todos, tengo que eliminar unas carpetas del servidor pero algunas de ellas pueden tener archivos dentro. El codigo es:
set objFile = Server.CreateObject("Scripting.FileSystemObject")
Ruta = "c:\midirectorio\micarpeta"
If objFile.FolderExists (Ruta) then
Set nFolder = objFile.DeleteFolder (Ruta)
response.write "se ha eliminado la carpeta"
end if

Sabeis si el que las carpetas tengan anchivos dentro puede dar lugar a error?

gracias
Cesar

jbarra
Junior Member

Chile
192 Posts
Posted - 10 Nov 2005 :  13:31:43  Ver perfil  Enviar e-mail
Usa está función que verifica si existen archivos dentro de una carpeta.

Function MostrarListaCarpetas(nombreCarpeta)
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(nombreCarpeta)
Set fc = f.Files
For Each f1 in fc
MostrarListaCarpetas = true
exit function
Next
MostrarListaCarpetas = false
End Function

Inicio Pagina

ce
Average Member

España
523 Posts
Posted - 10 Nov 2005 :  16:14:45  Ver perfil  Enviar e-mail  Visit ce's Homepage
Gracias jbarra, pero realmente me da igual si tiene archivos o no, lo que quiero es que tanto de una forma como de otra me elimine la carpeta (y sus archivos con ella, claro)...

Inicio Pagina

jbarra
Junior Member

Chile
192 Posts
Posted - 14 Nov 2005 :  18:40:21  Ver perfil  Enviar e-mail
Usa está función

Sub EliminarCarpeta(MiCarpeta)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder(MiCarpeta)
End Sub


Inicio Pagina

Jaimesalado
Starting Member


8 Posts
Posted - 15 Nov 2005 :  14:01:29  Ver perfil  Enviar e-mail
quote:

Hola
Function MostrarListaCarpetas(nombreCarpeta)
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(nombreCarpeta)
Set fc = f.Files
For Each f1 in fc
MostrarListaCarpetas = true
exit function
Next
MostrarListaCarpetas = false
End Function



Inicio Pagina

Jaimesalado
Starting Member


8 Posts
Posted - 15 Nov 2005 :  14:04:36  Ver perfil  Enviar e-mail
Esperate un momento. Loquillo



Inicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar