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: 6/9/2018 6:42:00 PM
nome: QTYrEyJjridAAhmvCe
A few months purchase medication online
"Now that we have new, key data, we believe this is mankind's historic leap into interstellar space," said Ed Stone, a Voyager scientist at the California Institute of Technology, Pasadena. "We can now answer the question we've all been asking &ndash; 'Are we there yet?' Yes, we are."

data: 6/9/2018 4:02:00 PM
nome: DvxsUBlHfHzsbjg
Could I make an appointment to see ? purchase medication online
As a retired NYPD captain who lives in the city and now works as a full-time pastor in Queens, I can appreciate both arguments. But after careful consideration, I support this bill. When the Council votes again this week, members should dismiss the mayorâÂ?Â?s objections and political threats, and override his veto.

data: 6/9/2018 3:43:00 PM
nome: LKEzGohjSBd
Sorry, you must have the wrong number online pharmacy The change in postage prices is not final yet: it is set to go into effect on Jan. 26, 2014, and only if it is approved. The Postal Regulatory Commission, an independent government agency, must approve any postage increases that exceed the rate of inflation.

data: 6/9/2018 3:25:00 PM
nome: MTTAoCwNIXQhHseAl
Where are you from? cheap order drugs Connecticut Sen. Richard Blumenthal said he shared the presidentâÂ?Â?s âÂ?Â?outrage at the use of chemical weapons in SyriaâÂ? and said he hopes a âÂ?Â?verifiable, enforceable and timely diplomatic solution will be the American and world response to Syria's deplorable actions."

data: 6/9/2018 1:33:00 PM
nome: xuNleWJKTzkKUbhbiQ
Where's the postbox? cialis The role of increasingly sophisticated electronic control systems on passenger jets - and whether they may be breeding complacency among pilots - was already the subject of fierce debate in the aviation community, and the issue is likely to gain new urgency in the wake of the Asiana crash.

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 :