Optener ultima fecha?????

[8461277]

Amigos alguien seria tan amable de explicarme como puedo optener la fecha de un archivo modificado, es decir la fecha una pagina asp que a sido modificado??????


Miguel

[leophp]

Hola
este codigo oBtiene todos los archivos de un determinado directorio del servidor, debes modificar o sacar lo que necesitas

a proposito es con B = Obtener

tb tengo este link esta super bueno, de aqui puedes sacar mas propiedades del objeto FSO

http://sestud.uv.es/manual.esp/asp/asp16.htm

Código PHP:

  <% Set ObjetoFSO = Server.CreateObject("Scripting.FileSystemObject") 
Set ObjetoCarpeta = ObjetoFSO.GetFolder(Server.mapPath("archivos/tablas")) 
For Each Fichero in ObjetoCarpeta.Files %> 
       Response.write(Fichero.Name & ", ") 
       Response.write(Fichero.DateCreated & ", ") 
       Response.write(Fichero.Size & ", ") 
       Response.write(Fichero.Type & ", <br>") 
Next 
Set Fichero = Nothing 
Set ObjetoCarpeta = Nothing 
Set ObjetoFSO = Nothing %>  
   

[8461277]

Gracias amigo, y disculpa el error, sabe modifique un poco el codigo que diste, por lo que solo necesito la fecha de la ultima modificacion de una pagina de asp, la cual me envia este error

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A01A8)
Se requiere un objeto: 'Objeto'
/posturg/fechas2.asp, línea 3

y el codigo que e modifido es este:

<%
Set FS = Server.CreateObject("Scripting.FileSystemObject")
Set Fichero = Objeto.DateLastModified ("C:\inetpub\asp\posturg\resul-consul-prof3.asp")
response.write (Fichero)
%>

Que esta mal, solo quiero que me de la fecha de la ultima ves que se vio el la pagina, dicha fecha esta en el servidor???

Miguel

[leophp]

Solo deberias cambiar la ruta de la carpeta

Código PHP:

  <% 
Set ObjetoFSO = Server.CreateObject("Scripting.FileSystemObject") 
Set ObjetoCarpeta = ObjetoFSO.GetFolder(Server.mapPath("archivos/tablas")) 
Response.write(Fichero.DateLastModified) 
Set Fichero = Nothing 
Set ObjetoCarpeta = Nothing 
Set ObjetoFSO = Nothing 
%>  
   

Saludos

[8461277]

Amigo realice los cambios que sugeriste y la pagina se queda cargando y no me dice nada, que cree que este pasando, lei en el manual que eso metodo puede traer problema con el servidor creo que fue eso lo que entendi, o no es asi????, por favor ayudame a resolver esto?????

Miguel

[8461277]

Amigo realice los cambios que sugeriste y la pagina se queda cargando y no me dice nada, que cree que este pasando, lei en el manual que eso metodo puede traer problema con el servidor creo que fue eso lo que entendi, o no es asi????, por favor ayudame a resolver esto?????

Miguel

[leophp]

Hola

Este si,donde dice "Aqui carpeta" debes poner el nombre de la carpeta pero no debes incluir el nombre del archivo, y donde dice "Aqui Archivo" el nombre del archivo con su extencion.

Código PHP:

  <% Set ObjetoFSO = Server.CreateObject("Scripting.FileSystemObject") 
Set ObjetoCarpeta = ObjetoFSO.GetFolder(Server.mapPath("AQUI CARPETA")) 
Nombre = ObjetoCarpeta.Files("Aqui Archivo").name 
Nombre = Nombre & " - " & ObjetoCarpeta.Files("Aqui Archivo").DateLastModified 
Response.Write(Nombre) 
Set ObjetoCarpeta = Nothing 
Set ObjetoFSO = Nothing %>  
   

saludos
leo

[8461277]

Gracias por la pasencia que has tenido en ayudarme, el nuevo codigo que diste se ve bien estructurado, pero no me funciona ya que el navegador se queda cargando la pagina y en esto momento lleva mas de 2 minutos cargando. El, codigo queda asi:

<% Set ObjetoFSO = Server.CreateObject("Scripting.FileSystemObject")
Set ObjetoCarpeta = ObjetoFSO.GetFolder(Server.mapPath("c:\inetpub\www root\asp\posturg"))
Nombre = ObjetoCarpeta.Files("resul-consul-prof3.asp").name
Nombre = Nombre & " - " & ObjetoCarpeta.Files("resul-consul-prof3.asp").DateLastModified
Response.Write(Nombre)
Set ObjetoCarpeta = Nothing
Set ObjetoFSO = Nothing %>

Nota: lo etoy probando en mi servidor local, ya que este codigo lo necesito para la intranet de mi institucion

Gracias Miguel

[Profion]

Yo trabajo con dreamweaver y ASP y este simple codigo me muestra la ulvima vez que fue modificada la pagina no se de donde agarra la fecha pero de q lo hace lo hace!


Ultima Modificacion : <!-- #BeginDate format:It1a -->3-02-2004 11:56 AM<!-- #EndDate -->


Y cada vez q salvo la pagina ella misma se actualiza la fecha y hora...

no se si esto te sirva ya q no se si es para eso que quieres la fecha de modificacion de los archivos!...

[leophp]

Prueba de esta manera, la unica diferencia es que saque SERVER MAP, yo lo prove y Anda bien (cree en mi Pc las carpetas y archivos), si a ti no te anda puede ser que los permisos de carpeta no sean los adecuados.


<% Set ObjetoFSO = Server.CreateObject("Scripting.FileSystemObject")
Set ObjetoCarpeta = ObjetoFSO.GetFolder("c:\inetpub\wwwroot\asp\postur g")
Nombre = ObjetoCarpeta.Files("resul-consul-prof3.asp").name
Nombre = Nombre & " - " & ObjetoCarpeta.Files("resul-consul-prof3.asp").DateLastModified
Response.Write(Nombre)
Set ObjetoCarpeta = Nothing
Set ObjetoFSO = Nothing %>


saludos
Leo

[8461277]

Amigo leophp disculpa por no haberte repondido, estaba ocupado, sabes tu codigo final funciona a las mil maravilla, sabes que al principio no quería nada y me puse a investigar y descubri que como tengo el norton tenía que desactivar el bloqueo de script y luego utilize el codigo y BUALA!!!! FUNCIONÓ y ya lo tengo en la pagina donde lo quería.

Ahora una preguntita más si queiro tenerlo en mi pagina web ya que soy tambien profesor de la institucion donde trabajo lo que cambio es la ruta:

<% Set ObjetoFSO = Server.CreateObject("Scripting.FileSystemObject")
Set ObjetoCarpeta = ObjetoFSO.GetFolder("www.servidorremoto.com/radiologia")
Nombre = ObjetoCarpeta.Files("resul-consul-prof3.asp").name
Nombre = ObjetoCarpeta.Files("resul-consul-prof3.asp").DateLastModified
Response.Write(Nombre)
Set ObjetoCarpeta = Nothing
Set ObjetoFSO = Nothing %>

Lo pregunto ya que antes de saber lo de norton lo subi a mi servidor y tampoco funcionaba, que sera lo que pasa???? sera que el proveedor del servicio tiene un bloqueador de script????


Miguel

PD: mil gracias por tu pasiencia!!!!

[leophp]

Nose si te funcionaria de esa manera, no creo, pero debes probar

Set ObjetoCarpeta = ObjetoFSO.GetFolder
("www.servidorremoto.com/radiologia")

Yo tengo entendido que algunos webhosting, tienen bloqueado el comando Server.mapPath y algunos otros mas, por motivos de seguridad, pero en su mayoria o todos los servidores gratuitos, debes consultar si tienes problemas al usarlo

pero la linea te deberia quedar de esta forma

Set ObjetoCarpeta = ObjetoFSO.GetFolder(Server.mapPath("radiologia"))

Saludos
Leo

[8461277]

No funciona sera que mi proveedor no lo permite ya que es de servicio gratuito, sera que habra otra forma?????????


Gracias MIGuel

[leophp]

No lo se, una alternativa es hacerlo como dice Profion

La otra es que preguntes al webhosting que opcion te da.



Saludos
Leo

[8461277]

Probe el de porfion y nada, creo que no se puede, de todos modos si lo averigua o yo lo averigua les contare


Miguel

[Brewster]

Referente a este tema.-

¿Existe alguna manera desde mi ordenador local leer un fichero de texto alojado en un servidor?, algo así como.-

Dim fso, texto
set fso=server.createObject("scripting.FileSystemObjec t")
if fso.FileExists("http://www.pepe.com/prueba.txt") then
response.write("Existe")
else
response.write("No")
end if

Gracias.

[bakanzipp]

si...y no es necesario que des la ruta http del archivo...

cuando haces una peticion a una pagina asp estás accediendo al servidor, por lo que basta con que coloques la ruta fisica del archivo ubicado en tu servidor

if fso.FileExists("C:\prueba.txt") then

saludos

[JosephFley]

Mensaje Original por bakanzipp


cuando haces una peticion a una pagina asp estás accediendo al servidor, por lo que basta con que coloques la ruta fisica del archivo ubicado en tu servidor

if fso.FileExists("C:\prueba.txt") then

Creo que a lo que él se refiere es a abrir un archivo en otro servidor , el ejemplo que pones abriría el archivo en la máquina donde se está corriendo la página asp.

Saludos