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 :
3

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: 12/10/2018 8:50:00 PM
nome: SaDZaUughXBQAq
email: jimmy2v@aol.com
comentário:
I went to https://weteachquran.com cialis What this means is that both American political parties were co-opted by Moscow & allies, otherwise North Vietnam would have been invaded and liberated, thereby preventing Chinese PLA troops from crossing into North Vietnam. The United States would have also openly invaded Laos to prevent access of Chinese PLA troops into Vietnam from that route.

data: 12/10/2018 8:50:00 PM
nome: siTsPbFIvvnGsoptIR
email: morton5l@gmail.com
comentário:
I'll put him on http://www.ccpirapuato.com levitra The new checks on the presumed murder weapon - a kitchen knife found in Sollecito's house - will examine a trace that was not previously tested because experts said it was too small to produce reliable results.

data: 12/10/2018 8:50:00 PM
nome: PKYSVveWpBq
email: flyman@gmail.com
comentário:
What company are you calling from? http://vvasoftware.com clomid In the new study, the researchers sought to safely transfect an individual cell. To manipulate the foreign DNA, the scientists used optical tweezers, which essentially tweaks a laser beam whose electromagnetic field can grab hold of and transport a plasmid-coated particle. The researchers first moved the particle to the surface of the cell membrane. Guided by the trapped particle, they then created a tiny pore in the cell membrane using an ultra-short laser pulse from a femtosecond laser. While another laser beam detected the exact location of the cell membrane, they pushed the particle through the pore with the tweezers. Using this technique, the scientists were able to ease a microparticle right up to the pore in the membrane and drop it into the cell, like a golfer sinking an easy putt.

data: 12/10/2018 8:50:00 PM
nome: pxdsuAYFMbZLmDsjOx
email: deadman@gmail.com
comentário:
Who do you work for? https://matrixglobal.net.id ventolin Forced to choose between two flawed candidates, the Daily News views Thompson as holding the potential to chart the better future for the Brooklyn DAâÂ?Â?s office. This is hardly an endorsement. It is a judgment compelled by serious evidence that Hynes has presided over miscarriages of justice.

data: 12/8/2018 3:18:00 PM
nome: TfmNPNHtsqYW
email: irwinu65@usa.net
comentário:
When can you start? http://soprof.com.mx cialis He added: "This Bank Holiday sale season we would recommend that consumers ask sales staff when and for how long the reference price was used and also how many sales they achieved at this price. This will help them to determine whether they are getting a good deal."

 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