Skip Navigation Links
Novas Tecnologias
Ferramentas Adicionais
Ferramentas Adicionais


Dica No :
159
Assunto : Visual Basic
Titulo: Como descobrir a data da última alteração de um arquivo

Gostou do texto ? Vote e dê sua opinião! Pontuação atual :

Translate this page now :






Adicione aos Favoritos!
BlogBlogs Rec6 Linkk Ueba Technorati Delicious DiggIt! StumbleUpon



Para fazermos isso podemos utilizar uma combinação da função Dir, para verificarmos se um arquivo existe com a função FileDateTime, para pegarmos a data e hora da última alteração.

Podemos fazer uma pequena função que, se o arquivo existe, devolve sua data e hora. Veja :

Public Function DataArq(ByVal sArq As _
String) As Variant
If Dir$(sArq) <> "" Then
DataArq = FileDateTime(sArq)
Else
DataArq = "ERRO"
End If
End Function

Esta função recebe o nome do arquivo como parâmetro. Se ele existir devolve a data e hora do arquivo, se não devolve uma mensagem de erro.

Veja um exemplo de como chama-la :

msgbox DataArq("C:\Quadrado 02.BMP")



Nome :
E-mail:
Comentarios :
 
 
Os Últimos Comentários
data: 11/4/2018 1:42:00 PM
nome: HZwGUAbIxtWOawLbKm
email: mosesgme@usa.net
comentário:
Another year http://blog.cilek.com/etiket/trendler/ tadalis sx kaufen Lew said that once regulators are done enacting the rules required by Dodd-Frank, they must remain vigilant because the "sources of risk change." The legislation was enacted in response to the financial crisis that began in the summer of 2007.

data: 11/4/2018 1:42:00 PM
nome: kyjAmDTPgYcuptpsii
email: montegal@aol.com
comentário:
International directory enquiries http://blog.cilek.com/etiket/trendler/ what is tadalis 20 On a cautionary note, the prices Twitter can get for adshave fallen over the past five quarters. The company said thatdecline was the result of a deliberate effort to expand itsinventory and frequency of ads, which in turn drives volumedemand from marketers.

data: 11/4/2018 1:42:00 PM
nome: xAXlUNmiJVfpIZDCv
email: delberth46@lycos.com
comentário:
Insert your card http://blog.cilek.com/etiket/2018/ super p force shop Sharif came to power in an election that marked the first time in Pakistan that a civilian government completed its full five-year term and transferred power in democratic elections. The country has a history of civilian leaders being overthrown in military coups.

data: 11/4/2018 1:42:00 PM
nome: hqvkWwgOfOtb
email: brandonchx@usa.net
comentário:
I like watching TV http://blog.cilek.com/etiket/trendler/ tadalis comprime According to the Journal, the negotiations are in the earlystages, with no deal expected soon. The report said that onesticking point in the negotiations is that Netflix wants cablecompanies to adopt special technology designed to improve thequality of its streaming video.

data: 11/4/2018 1:03:00 PM
nome: RZJLVvtUSgbBvwk
email: isrealw51@lycos.com
comentário:
There's a three month trial period http://blog.cilek.com/etiket/psikoloji/ womenra online Information Google users have previously shared with a limited "circle" of friends will remain viewable only to that group, as will any shared endorsement ads that incorporate the information, Google said in a posting on its website explaining the new terms of service.

 1  
Dicas
Dica do Dia
Receba Dicas Por Email
E-mail :  
 


 (help)
Aceito receber informativos do devASPNet, informações de eventos e treinamentos

Veja Quais Informativos Você Receberá

Pesquisar Dicas
Pesquisar Artigos, Dicas e Noticias

Banco de Dados
Algumas Entrevistas
Links Importantes

Búfalo Informática, Treinamento e Consultoria
R. Alvaro Alvim, 37/920 Centro - Cinelândia - Rio de Janeiro Cep: 20031-010
Tel : (21) 2262-1368 (21) 9240-5134 E-mail : Contato@bufaloinfo.com.br