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
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 04/10/2010 6:32 pm