asp+fso implementa funciones para detectar la existencia, creación y eliminación de archivos o carpetas'///////////////////////////////// / /////////////////Operación FSO////////////////////////////// //// /////
'Comprueba si la carpeta existe
Función CarpetaSalidas(Carpeta)
Carpeta=Servidor.Mapppath(Carpeta)
Establecer FSO = Server.CreateObject (Scripting.FileSystemObject)
SI FSO.FolderExists (Carpeta) Entonces
Salidas de carpeta = verdadero
Demás
Salidas de carpeta = falso
Fin SI
Función final
'Comprueba si el archivo existe
Función FileExits(NombreDeArchivo)
NombreDeArchivo=Servidor.Mappath(NombreDeArchivo)
Establecer FSO = Server.CreateObject (Scripting.FileSystemObject)
SI FSO.FileExists (Nombre de archivo) Entonces
Salidas de archivo = verdadero
Demás
Salidas de archivo = falso
Fin SI
Función final
'Crear carpeta
Función CrearCarpeta(Carpeta)
en caso de error reanudar siguiente
Carpeta=Servidor.Mapppath(Carpeta)
Establecer FSO = Server.CreateObject(Scripting.FileSystemObject)
FSO.CrearCarpeta(Carpeta)
si error>0 entonces
errar.claro
CrearCarpeta=Falso
demás
CrearCarpeta=Verdadero
terminar si
Función final
'Crear archivo
Función Crear archivo (nombre de archivo, contenido)
en caso de error reanudar siguiente
NombreDeArchivo=Servidor.Mappath(NombreDeArchivo)
Establecer FSO = Server.CreateObject(Scripting.FileSystemObject)
set fd=FSO.createtextfile(Nombre de archivo,verdadero)
Contenido de fd.writeline
si error>0 entonces
errar.claro
CrearArchivo=Falso
demás
CrearArchivo=Verdadero
terminar si
Función final
'Eliminar archivos
función Eliminar archivo (nombre de archivo)
en caso de error reanudar siguiente
Establecer FSO = Server.CreateObject(Scripting.FileSystemObject)
si FSO.FileExists (Nombre de archivo) entonces
FSO.DeleteFile Nombre de archivo, verdadero
terminar si
si error>0 entonces
errar.claro
EliminarArchivo=Falso
demás
EliminarArchivo=Verdadero
terminar si
función final
'Eliminar carpeta
función EliminarCarpeta(Carpeta)
en caso de error reanudar siguiente
Carpeta=servidor.MapPath(Carpeta)
Establecer FSO = Server.CreateObject(Scripting.FileSystemObject)
si FSO.FolderExists (Carpeta) entonces
FSO.Deletefolder Carpeta, verdadero
terminar si
si error>0 entonces
errar.claro
Eliminar carpeta=Falso
demás
Eliminar carpeta=Verdadero
terminar si
función final