Propiedades de un archivo

Este ejemplo es de una subrutina que lee el parametro con que la llamas :)
podria ser un ejemplo:
La rutina asignada a un boton dentro de la hoja de excel:

Private Sub CommandButton1_Click()
Call ShowFileAccessInfo("c:\fulanito.txt")
End Sub


Sub ShowFileAccessInfo(filespec)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filespec)
s = UCase(filespec) & vbCrLf
s = s & "Creado: " & f.DateCreated & vbCrLf
s = s & "Último acceso: " & f.DateLastAccessed & vbCrLf
s = s & "Última modificación: " & f.DateLastModified
MsgBox s, 0, "Información de acceso al archivo"
End Sub


Y te arroja los resultados deseados

Saludos

Muchas gracias

"Francisco Parrilla"


No he entendido algunas cosas pero funciona perfectamente.

Carpeta
Descripción
Dirección

1
** Microsoft Excel *
http://esnips.com/web/GabrielRaigosa

2
Archivos para usar en clase
http://esnips.com/web/RaigosaClase

3
Fechas y Horas
http://esnips.com/web/RaigosaFechasHoras

4
Formato y Formato Condicional
http://esnips.com/web/RaigosaFormatos

5
Foro Excel
http://esnips.com/web/ForoExcel

6
Funciones de Busqueda
http://esnips.com/web/RaigosaBusqueda

7
Funciones de Texto
http://esnips.com/web/RaigosaTexto

8
Funciones Financieras
http://esnips.com/web/RaigosaFinancieras

9
Funciones Logicas
http://esnips.com/web/RaigosaLogicas

10
Graficos con Excel
http://esnips.com/web/RaigosaGraficos

11
Grupo (Sabados)
Privado

12
Grupo (Viernes)
Privado

13
Grupo Excel Septiembre
Privado

14
Juegos con Excel
http://esnips.com/web/RaigosaJuegosExcel

15
Macros con Excel
http://esnips.com/web/Macros-con-Excel

16
Manuales Excel
http://esnips.com/web/RaigosaManuales

17
Paginas WEB
http://esnips.com/web/RaigosaPaginasExcel

18
Practicas - XLS
http://esnips.com/web/RaigosaPracticasXLS

19
Tablas Dinámicas
http://esnips.com/web/RaigosaTablasDinamicas

20
TEST
http://esnips.com/web/GabrielRaigosa-test

21
Validación
http://esnips.com/web/RaigosaValidacion

22
Varios
http://esnips.com/web/RaigosaVarios

23
VBA - Visual Basic para Aplicaciones
http://esnips.com/web/RaigosaVBA















Gabriel Raigosa
http://esnips.com/web/Raigosa
http://esnips.com/web/ForoExcel
"Pdiaz" escribió en el mensaje
news:
| Busco la fecha de ultima modificacion del archivo "Archivo001.xls" desde
una
| macro de excel.
|
| Uso el ejempo de ayuda de excel pero no consigo nada se ve que no termino
de
| entenderlo.
|
| Sub ShowFileAccessInfo(filespec)
| Dim fs, f, s
| Set fs = CreateObject("Scripting.FileSystemObject")
| Set f = fs.GetFile(filespec)
| s = UCase(filespec) & vbCrLf
| s = s & "Creado: " & f.DateCreated & vbCrLf
| s = s & "Último acceso: " & f.DateLastAccessed & vbCrLf
| s = s & "Última modificación: " & f.DateLastModified
| MsgBox s, 0, "Información de acceso al archivo"
| End Sub
|
| Podeis ayudarme. Gracias anticipadas