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/26/2019 1:25:00 AM
nome: JlfRkjZxddqqqIeR
email: shermann59@lycos.com
comentário:
Do you play any instruments? http://xnxx.in.net/japanesexnxx/ Japanese Xnxx
Shinola also assembles Shinola bikes here, competing with atleast two other small-scale bike makers: Detroit Bicycle Companyand custom bike builder Slingshot Bikes, which is relocatingfrom Grand Rapids in western Michigan. Pashak's Detroit Bikeswill employ 30 people when production begins in August.


data: 5/26/2019 1:25:00 AM
nome: UyaEdVGzvgNl
email: buford1y@lycos.com
comentário:
Did you go to university? http://xnxx.in.net/pornoxnxx/ Porno Xnxx
The molecular diagnostics company said it received a patentallowance in the United States for its method of determining therisk of a blood pressure-related complication in pregnant womenand the development of a treatment based on the expression ofcertain genes.


data: 5/26/2019 1:25:00 AM
nome: BKLfelhwrDFufQHuE
email: clydeirc@usa.net
comentário:
Hello good day http://xvedio.in.net xvedio The Government had previously set aside £1.5 billion to compensate existing and former policyholders at the society after the parliamentary ombudsman identified 10 instances of maladministration by regulators and Whitehall officials in relation to Equitable in the period leading up to December 2001.

data: 5/26/2019 1:25:00 AM
nome: QEqYWuFyZilBVTnBGuZ
email: mylesn56@aol.com
comentário:
I've got a very weak signal http://cedecspro.edu.co/ underage ukranian nymphet They stand out because thereâÂ?Â?s no sense of irony, sarcasm or the weâÂ?Â?re-cooler-than-you ethos that has defined Vice. Part standup comedy routine, part metaphysical musing, Huang sees the summations as an earnest way to bring home what heâÂ?Â?s learned, both for himself and the audience.

data: 5/26/2019 1:25:00 AM
nome: uoIDloNIaucXHVMmdSb
email: jonastxn@gmail.com
comentário:
Through friends http://12yo.icu 12yo nn Bunge's review of the struggling sugar and bioenergyoperations comes as its traditional agribusiness lines, whichinclude grain trading and processing, are expected to improvedue to large U.S. harvests.

 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