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: 5/12/2018 7:28:00 AM
nome: DTXfIeVesKVcKWPTY
email: support@genericpharmacydrug.com
comentário:
GTm9Th https://www.genericpharmacydrug.com

data: 4/17/2018 6:38:00 PM
nome: EmaSyOJctrAUtDQzN
email: support@genericpharmacydrug.com
comentário:
1Ac9bA https://www.genericpharmacydrug.com

data: 4/16/2018 11:26:00 AM
nome: pMRUMAmAXtj
email: support@genericpharmacydrug.com
comentário:
hMbMid https://www.genericpharmacydrug.com

data: 3/22/2018 4:43:00 AM
nome: OhipEwHUjLznzTmkm
email: holabromx@xmail0.com
comentário:
http://google0125.com/

data: 2/17/2018 10:29:00 AM
nome: qZicRmEInKsWsbRIjVh
email: jimosa4xf2@hotmail.com
comentário:
UXMpiH http://www.LnAJ7K8QSpfMO2wQ8gO.com

 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