USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Verificar data de criação de um arquivo
Boni
JABOTICABAL
SP - BRASIL
ENUNCIADA !
Postada em 17/06/2004 14:09 hs            
Ola pessoal
teria como "pegar" a data de criação de um determinado arquivo via VB?
   
C4du
Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 17/06/2004 14:19 hs            
Dim dtCriacao As Date
dtCriacao = FileDateTime("path")

ou via API

ver thread  em . . .

http://www.vbweb.com.br/forum_resp.asp?Codigo=159360
     
Boni
JABOTICABAL
SP - BRASIL
ENUNCIADA !
Postada em 17/06/2004 15:27 hs            
Essa função pega a data da ultima modificação. Eu preciso de uma função que pegue a data de criação mesmo...
   
Tekki
Pontos: 2843 Pontos: 2843 Pontos: 2843
UBERLÂNDIA
MG - BRASIL
ENUNCIADA !
Postada em 17/06/2004 16:41 hs            
pegue o exemplo: Mostra a data que o arquivo foi criado.zip
 
 
Veja se isto te ajuda.
   
Boni
JABOTICABAL
SP - BRASIL
ENUNCIADA !
Postada em 18/06/2004 10:09 hs            
A solução que eu encontrei, foi esta:
Private Sub PesquisaArquivo()
Dim fso As New FileSystemObject
Dim arq As File
    List1.Clear
   
    Set arq = fso.GetFile(txtCaminho.Text)
    With arq
        List1.AddItem "Tamanho  : " & vbTab & FormatNumber(.Size, 0)
        List1.AddItem "Data de criação   : " & vbTab & .DateCreated
        List1.AddItem "Último acesso  : " & vbTab & .DateMaxAccessed
        List1.AddItem "Última alteração : " & vbTab & .DateMaxModified
        List1.AddItem "nome abreviado  : " & vbTab & .ShortName
    End With
    mskDataCriacao.Text = Format(arq.DateCreated, "dd/mm/yyyy")
End Sub
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página