Notifications
Clear all

Data de atualização

3 Posts
1 Usuários
0 Reactions
1,218 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pessoal, Boa Tarde!!!

Gostaria de saber como faço para abrir um arquivo que esta dentro de uma pasta, além disso pegar o último arquivo pela sua data de atualização.
Por exemplo, tenho que capturar a data de atualização do arquivo...como faço?

Obrigada!

 
Postado : 04/10/2010 9:53 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 


Amanda... você tem um xls aberto... então quer uma macro para localizar numa pasta qual o arquivo mais recente pela data da última atualização... e retornar a data?

É isso?

 
Postado : 04/10/2010 6:03 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

A rotina abaixo, retorna a Data de Criação, Acesso e Modificação de um Arquivo em um msgbox, você pode definir um arquivo especifico ou Abrir a cx de dialogo para selecionar um.

Sub MostrarAcessoAoArquivo()
    Dim fs, f, s
    
    'Definir o arquivo especifico na rotina
    filespec = "C:Documents and SettingsMvcHardMeus documentosTESTEdeletar.xls"
    
    'Ou Abrir Cx de dialogo para selecionar um arquivo
    'filespec = Application.GetOpenFilename
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(filespec)
        s = UCase(filespec) & vbCrLf
        s = s & "Criado em : " & f.DateCreated & vbCrLf
        s = s & "Último Acesso : " & f.DateLastAccessed & vbCrLf
        s = s & "Última Modificação : " & f.DateLastModified
    MsgBox s, 0, "Informações de Acesso ao arquivo"
    
End Sub

Dependendo do que quer fazer, é só trabalhar na rotina.

abraços

 
Postado : 04/10/2010 6:32 pm