Data e Hora do Ultimo acesso --- Erro

[Martinsrj 0]

'Atenção no código abaixo não está capturando o ultimo acesso ao arquivo. Uma coisa que está me deixando bolado é que tem momento ele pega (raramente), mas maioria dos casos não pega.

'cria o objeto Scripting.FileSystemObject e atribui a variável objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
				
'pega o caminho e características da pasta "documentos" e atribui a objFolder
Set objFolder = objFSO.GetFolder(Server.MapPath("documentos"))

tamArq = Server.MapPath (".") & "\" & objFolder.Name 
'Response.Write(tamArq)
Set arqObj = objFSO.GetFile(tamArq&"\"&rs.fields("nome"))
'Response.Write round(arqObj.Size / 1024) & " KB"
varDataUacesso = varDataUacesso & arqObj.DateLastAccessed
If round(arqObj.Size / 1024) > 1024 then
Response.Write Mid(round(arqObj.Size / 1024), 1, 1) & "." & Mid(round(arqObj.Size / 1024), 2, 10) & " KB"
					
Else
Response.Write round(arqObj.Size / 1024) & " KB"
End if
'Atenção no código abaixo não está capturando o ultimo acesso ao arquivo. Uma coisa que está me deixando bolado é que tem hora ele pega (raramente), mas maioria dos casos não pega. 
Response.Write(arqObj.DateLastAccessed)
				

[Dee 0]

As barras não são para lá > "/" em vez de para cá < "\" ?

Ou tanto faz ?

[desisto 0]

posta sem a tag <code> pq esta impossivel de ver o codigo com esse banner ai do lado

[Martinsrj 0]

'cria o objeto Scripting.FileSystemObject e atribui a variável objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
				
'pega o caminho e características da pasta "documentos" e atribui a objFolder
Set objFolder = objFSO.GetFolder(Server.MapPath("documentos"))

tamArq = Server.MapPath (".") & "\" & objFolder.Name 
'Response.Write(tamArq)
Set arqObj = objFSO.GetFile(tamArq&"\"&rs.fields("nome"))
'Response.Write round(arqObj.Size / 1024) & " KB"
varDataUacesso = varDataUacesso & arqObj.DateLastAccessed
If round(arqObj.Size / 1024) > 1024 then
Response.Write Mid(round(arqObj.Size / 1024), 1, 1) & "." & Mid(round(arqObj.Size / 1024), 2, 10) & " KB"
					
Else
Response.Write round(arqObj.Size / 1024) & " KB"
End if
'Atenção no código abaixo não está capturando o ultimo acesso ao arquivo. Uma coisa que está me deixando bolado é que tem hora ele pega (raramente), mas maioria dos casos não pega. 
Response.Write(arqObj.DateLastAccessed)

 

 

posta sem a tag <code> pq esta impossivel de ver o codigo com esse banner ai do lado

 

[desisto 0]

teste este exemplo - http://www.w3schools.com/asp/prop_datelastaccessed_folder.asp

 

<%
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFile("c:\test.txt")
Response.Write("File last accessed on: ")
Response.Write(f.DateLastAccessed)
set f=nothing
set fs=nothing
%>

Output:

File last accessed on: 10/29/2001 10:21:23 AM

 

 

 

veja se funciona a exibição da hora com este cod.

[Martinsrj 0]

O meu código está identico a do site mencionado pelo usuario: desisto (w3schools), porem não funciona.

Eu verifiquei o seguinte: o usuario acessa o sistema e clica no link do determinado arquivo o mesmo abre e geralmente no Browser, porem não contabiliza essa situação no ultimo acesso, porem se eu abrir o Dreamweaver e acessar a pasta onde estão documentos e abrir o arquivo aí ele contabiliza, registra o ultimo acesso, mas clicando apenas no link, o objeto (arqObj.DateLastAccessed) não registra o ultimo acesso.

Caso alguem tenha alguma ideia de como eu posso resolver essa situação fico muito grato.

Abraços a todos.

 

Olá pessoal, bom dia!

Continua com esse problema. Estou feliz que consegui resolver o problema do downloads, mas do ultimo acesso continua com pendencia.

Exemplo: hoje acessei o sistema e cliquei no link para realizar o downloads ele CONTABILIZOU o ultimo acesso, porem aguardo seja 5 ou 10 minutos e baixo o mesmo arquivo novamente o sistema não contabiliza. OBS.: se eu clicar em outro arquivo (link) é contabilizado o ultimo acesso, mas se eu voltar acessa-lo (clicar no link) para baixa-lo o sistema não contabiliza o ultimo acesso.

Postei todo o meu código em uma ótimo site chamado: http://pastebin.com

Abaixo segue o link de todo o código:

http://pastebin.com/f7cfc1c8d

 

Obs.: a parte do ultimo acesso está na linha 302

302. <% If(Session("perfil")) = 10 then %>
303. <td valign="middle">
304. <%= arqObj.DateLastAccessed %>

Abraços.