Skip Navigation Links
Novas Tecnologias
Ferramentas Adicionais
Ferramentas Adicionais

Dica No :
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)
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 :
Comentarios :
Os Últimos Comentários
data: 8/7/2018 2:05:00 PM
nome: vvZuHzKprOQeZpXNGkq

data: 8/6/2018 10:29:00 PM
nome: pOFOTXOLpxQmzdqWe

data: 6/30/2018 5:12:00 AM
nome: yeJnbUihGXVRZliT
An estate agents viagra A source familiar with the situation told Reuters that the board decided to form the special committee last week. It was not clear if that decision came before or after Reuters reported that BlackBerry was warming to the idea of going private to give itself room to recover.

data: 6/30/2018 4:04:00 AM
nome: LBubkPEMPOMUyoS
I'm in my first year at university purchase medication online
But it didn't last. Swidorsky noticed Logan was acting strange, Stevenson said. He lifted his left arm a lot as if he were stretching, but she sensed there was something wrong with her son. They soon learned he had a tumor the size of an orange on his left kidney.

data: 6/30/2018 1:21:00 AM
nome: DbDDKKFwGJJBihuUtpe
Incorrect PIN cialis âÂ?Â?No Congress before this one has ever, ever, in history been irresponsible enough to threaten default, to threaten an economic shutdown, to suggest America not pay its bills, just to try to blackmail a president into giving them some concessions on issues that have nothing to do with a budget,âÂ? Obama said.

Dica do Dia
Receba Dicas Por Email
E-mail :  

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 :