Ola pessoal

teria como "pegar" a data de criação de um determinado arquivo via VB?

Essa função pega a data da ultima modificação. Eu preciso de uma função que pegue a data de criação mesmo...

Vá em: http://www.vbweb.com.br/transfer.asp

pegue o exemplo: Mostra a data que o arquivo foi criado.zip

 

 

Veja se isto te ajuda.

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