Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Propiedades de un archivo

26/09/2006 - 17:07 por Pdiaz | Informe spam
Ayuda Hacer una pregunta
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
email Siga el debateRespuesta 3 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Francisco Parrilla
26/09/2006 - 21:55 | Informe spam
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

Preguntas similares

 

Busqueda sugerida :