Com essa função é possível retornar a data de ultima atualização do arquivo que se está visitando.
Isso é possível por causa do Request.ServerVariables(“PATH_TRANSLATED”) que retorna o caminho físico do arquivo que se está visitando e da propriedade DateLastModified que retorna data de última atualização.
Este código utiliza o objeto FileSystemObject para requisitar as propriedades do arquivo.
<%
'-----------------------------------------------------
'Funcao: UltimaAtualizacao()
'Sinopse: 'Retorna a data da ultima atualização do arquivo que se está visitando
'Parametro: Nenhum
'Retorno: String a Data e Hora de ultima atualização do arquivo
'Autor: Gabriel Fróes - www.codigofonte.com.br
'-----------------------------------------------------
Function UltimaAtualizacao()
Dim strCaminhoArquivo
Dim objFSO
Dim objFile
'Caminho físico do arquivo
strCaminhoArquivo = (Request.ServerVariables("PATH_TRANSLATED"))
'Criando o objeto FSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'Resgatando o objeto File
Set objFile = objFSO.GetFile(strCaminhoArquivo)
'Retonando a função
UltimaAtualizacao = objFile.DateLastModified
'Tirando os objetos da memória
Set objFile = Nothing
Set objFSO = Nothing
End Function
%>
