Como obtener datos de creación, modificación y acceso a archivos en forma simple:
1 - Crea un formulario.
2 - Haz una referencia al objeto del sistema de archivos,
para ello abre el menú Proyecto/Referencias...
y selecciona Microsoft Scripting Runtime (ScrRun.dll)
3 - Crea los siguientes objetos:
Text1 (TextBox)
Creado (Label)
Modificado (Label)
Accedido (Label)
Buscar (CommandButton)
Salir (CommandButton)
Mensaje (Label)
Pega el siguiente código :
Option Explicit
Private Handler As FileSystemObject
'Haz una referencia al objeto del sistema de archivos,
'para ello abre el menú Proyecto/Referencias...
'y selecciona Microsoft Scripting Runtime (ScrRun.dll)
Private Sub Form_Load()
' Crear la referencia al File System Object (objeto del sistema de archivos)
Set Handler = New FileSystemObject
'Centrar formulario
Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2
End Sub
Private Sub Buscar_Click(Index As Integer)
' Manipular ficheros
Dim FileRef As File ' Objeto para acceder a las propiedades de los ficheros
Dim NombreArchivo As String
Dim sinfo As String
Creado.Caption = ""
Accedido.Caption = ""
Modificado.Caption = ""
Mensaje.Visible = False
NombreArchivo = Trim(Text1.Text)
On Error GoTo Salida
Set FileRef = Handler.GetFile(NombreArchivo)
' Si el objeto tiene información, mostrarla
If Not (FileRef Is Nothing) Then
Creado.Caption = FileRef.DateCreated
Accedido.Caption = FileRef.DateLastAccessed
Modificado.Caption = FileRef.DateLastModified
End If
On Error GoTo 0
Exit Sub
Salida:
Mensaje.Visible = True
On Error GoTo 0
End Sub
Private Sub Salir_Click()
Set Handler = Nothing
End
End Sub