27/08/2003, 12:54
|
 | Moderador | | Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 23 años, 3 meses Puntos: 98 | |
| A ver si funciona, no lo he probado....
Set Fso= server.createObject("Scripting.FileSystemObject")
Function es_archivo(nombre)
If fso.FileExists("ruta\" & nombre) Then
es_archivo= true
Else
es_archivo= false
End If
End Function
Set ArchivosPorBorrar= fsoObject.GetFolder(path & "\folder\")
For each File in ArchivosPorBorrar.Files
mi_item= es_archivo(File.name)
If mi_item Then
fso.DeleteFile("ruta\" & File.Name)
Else
fso.DeleteFolder("ruta\" & File.Name)
End If
Next
Salu2,
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway |