cachar errores de archvos :S

[Sugey]

Hola en el siguiente codigo, como puedo cachar los errores que pudiera generar el archivo?? es decir si no se pudo crear o algo asi

'creamos el nombre del archivo
archivo= request.serverVariables("APPL_PHYSICAL_PATH") & "switch.txt"
'conectamos con el FSO
set confile = createObject("scripting.filesystemobject")
'creamos el objeto TextStream
set fich = confile.CreateTextFile(archivo)
if bandera="abrir" then
fich.write(1) ' abierto
else
fich.write(0) ' cerrado
end if
'cerramos el fichero
fich.close()

hay una forma de manejor de errores para archivos ??

[monkyta]

ASI

' Valida si existe carpeta, si no existe la crea

On Error Resume Next

set fso = CreateObject("Scripting.FileSystemObject")
if err <> 0 then
msg = "*** ERROR AL CREAR OBJETO FileSystemObject : " & hex(err.number) & " - " & err.description & " ***"
llamalog()
end if

if fso.FolderExists(nm_directorio) then
msg = " *** ERROR : DIRECTORIO A CREAR YA EXISTE *** "
llamalog()
else
set directorio = fso.CreateFolder(nm_directorio)
if err <> 0 then
msg = "ERROR AL CREAR DIRECTORIO : " & hex(err.number) & " - " & err.description & " ***"
llamalog()
end if
end if

' Crea Archivo asociado a carpeta

set file =fso.CreateTextFile(nm_directorio & "\" & frm_carpeta & ".txt",True)
if err <> 0 then
msg = "ERROR AL CREAR ARCHIVO : " & hex(err.number) & " - " & err.description & " ***"
llamalog()
end if

file.Write("Carpeta : " & frm_carpeta & " creada el :" & now & " por : " & Session("LOGIN"))
file.close


' Carpeta creada con exito

session("msg") = "*** CREACION DE CARPETA EXITOSA ***"
response.redirect "edm_mensaje.asp?pagina=edm_crear_carpeta.asp"

[Sugey]

Oye lo entendi casi todo, excepto la funcion llamalog()? esa la creo yo? o ya esta definida o ke ondas??

:S

Gracias por todo :)