DATA ARQUIVO REMOTO
Pessoal tenho essa função abaixo que verifica se um arquivo existe mas passando como paramentro uma URL, gostaria de saber se existe a possiblidade de pegar a data de criação desse arquivo.
FUNÇÃO:
[ô]PROCURA
Private Function fncWRequest(URL As String, method As String, POSTdata As String) As String
Dim responseData As String = [Ô][Ô]
Try
Dim hwrequest As Net.HttpWebRequest = Net.WebRequest.Create(URL)
hwrequest.Accept = [Ô]*/*[Ô]
hwrequest.AllowAutoRedirect = True
hwrequest.UserAgent = [Ô]http_requester/0.1[Ô]
hwrequest.Timeout = 60000
hwrequest.Method = method
If hwrequest.Method = [Ô]POST[Ô] Then
hwrequest.ContentType = [Ô]application/x-www-form-urlencoded[Ô]
Dim encoding As New Text.ASCIIEncoding() [ô]Use UTF8Encoding for XML requests
Dim postByteArray() As Byte = encoding.GetBytes(POSTdata)
hwrequest.ContentLength = postByteArray.Length
Dim postStream As IO.Stream = hwrequest.GetRequestStream()
postStream.Write(postByteArray, 0, postByteArray.Length)
postStream.Close()
End If
Dim hwresponse As Net.HttpWebResponse = hwrequest.GetResponse()
If hwresponse.StatusCode = Net.HttpStatusCode.OK Then
Dim responseStream As IO.StreamReader = _
New IO.StreamReader(hwresponse.GetResponseStream())
responseData = responseStream.ReadToEnd()
strAnexo = [Ô]ENCONTRADO[Ô]
End If
hwresponse.Close()
Catch e As Exception
strAnexo = [Ô][Ô]
End Try
Return responseData
End Function
[ô]USO
fncWRequest([Ô]http://site/arquivo[Ô],[Ô]HEAD[Ô],[Ô][Ô])
FUNÇÃO:
[ô]PROCURA
Private Function fncWRequest(URL As String, method As String, POSTdata As String) As String
Dim responseData As String = [Ô][Ô]
Try
Dim hwrequest As Net.HttpWebRequest = Net.WebRequest.Create(URL)
hwrequest.Accept = [Ô]*/*[Ô]
hwrequest.AllowAutoRedirect = True
hwrequest.UserAgent = [Ô]http_requester/0.1[Ô]
hwrequest.Timeout = 60000
hwrequest.Method = method
If hwrequest.Method = [Ô]POST[Ô] Then
hwrequest.ContentType = [Ô]application/x-www-form-urlencoded[Ô]
Dim encoding As New Text.ASCIIEncoding() [ô]Use UTF8Encoding for XML requests
Dim postByteArray() As Byte = encoding.GetBytes(POSTdata)
hwrequest.ContentLength = postByteArray.Length
Dim postStream As IO.Stream = hwrequest.GetRequestStream()
postStream.Write(postByteArray, 0, postByteArray.Length)
postStream.Close()
End If
Dim hwresponse As Net.HttpWebResponse = hwrequest.GetResponse()
If hwresponse.StatusCode = Net.HttpStatusCode.OK Then
Dim responseStream As IO.StreamReader = _
New IO.StreamReader(hwresponse.GetResponseStream())
responseData = responseStream.ReadToEnd()
strAnexo = [Ô]ENCONTRADO[Ô]
End If
hwresponse.Close()
Catch e As Exception
strAnexo = [Ô][Ô]
End Try
Return responseData
End Function
[ô]USO
fncWRequest([Ô]http://site/arquivo[Ô],[Ô]HEAD[Ô],[Ô][Ô])
Não do jeito que está. Esse método aÃ, lê o arquivo como stream. Lendo como stream, mesmo que você grave o arquivo localmente, ele vai ter a data da gravação LOCAL como data de criação. O único jeito de ver a real data de criação, é abrir a pasta NO SERVER, seja como compartilhamento ou com o windows explorer no server...
Então Kerplunk realmente por essa função não tem jeito mas descobri uma forma.
Segue exemplo abaixo:
Dim webheader As System.Net.WebHeaderCollection
Dim dtFileLocal As String
Dim dtFileRemote As String
cliente.DownloadFile([Ô]HTTP://SITE/ARQUIVO[Ô],[Ô]C:\TESTE.PDF[Ô])
webheader = cliente.ResponseHeaders
webheader(Net.HttpResponseHeader.LastModified))
Segue exemplo abaixo:
Dim webheader As System.Net.WebHeaderCollection
Dim dtFileLocal As String
Dim dtFileRemote As String
cliente.DownloadFile([Ô]HTTP://SITE/ARQUIVO[Ô],[Ô]C:\TESTE.PDF[Ô])
webheader = cliente.ResponseHeaders
webheader(Net.HttpResponseHeader.LastModified))
é que isso vai depender se o serviço WebClient está ou não ativo no servidor...
Tópico encerrado , respostas não são mais permitidas