Max
26 de Agosto del 2003

Necesito saber cual es la fecha de un fichero existente en el disco duro y compararla con la del sistema.

Alguien me puede hechar una manita.

Muuuchas Gracias.

Max
26 de Agosto del 2003

Venga hombre, echarme una manita, seguro que no es muy complicado.

Juan
26 de Agosto del 2003

No te impacientes, aquí tienes un ejemplo de cómo obtener
información de un archivo con el objeto filesystemobject.
Para verlo simplemente copia el código y haz click en el formulario.

Private Sub Form_Click()
Dim nombreArch As String, msg As String
Dim fs, archivo
Set fs = CreateObject("Scripting.FileSystemObject")
nombreArch = InputBox("Escribe la ruta y nombre del archivo", "Información de archivo")
If fs.FileExists(nombreArch) Then
Set archivo = fs.GetFile(nombreArch)
msg = "Fecha de creación: " & archivo.DateCreated & vbNewLine
msg = msg & "Fecha última modificación: " & archivo.DateLastModified & vbNewLine
msg = msg & "Fecha último acceso: " & archivo.DateLastAccessed & vbNewLine
msg = msg & "Tamaño: " & archivo.Size & " bytes" & vbNewLine
msg = msg & "Tipo: " & archivo.Type & vbNewLine
MsgBox msg
Else
MsgBox "El archivo especificado no existe"
End If
End Sub

Max
26 de Agosto del 2003

Gracias, es la primera vez que alguien responde a mis plegarias, de ahí mi impaciencia.
Ese es el objeto que iba buscando.

Un saludo