El siguinete codigo valida la existencia del archivo que se encuentra en la variable TNArchivo01, y si el archivo no es encontrado se asigna una imagen para este fin, pero el problema se meda que existiendo el archivo el codigo nunca lo encuentra
TNArchivo01 = "imagenes/categorias/foto.jpg"
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(TNArchivo01) = False Then
TNArchivo01 = DefRutaImgCategoria & "defcatalogo.jpg"
End If
Set objFSO = Nothing
de antemano muchisimas gracias :-p

