RE:Obtener ficheros de un directorio
En la base de datos de ejemplo Neptuno, en el formulario de Clientes, hay un ejemplo de como traerte un archivo, solo revisa la extención.
En cuanto a las propiedades, te envío un ejemplo de la ayuda, solo le agregue las propiedades que hay disponibles:
Sub ShowFileInfo(RutaCompletaArchivo)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(RutaCompletaArchivo)
s = f.DateCreated
'Attributes
'DateCreated
'DateLastAccessed
'Drive
'Name
'ParentFolder
'Path
'ShortName
'ShortPath
'Size
'Type
MsgBox s
End Sub
Enlace a un buen manual:
http://www.olaz.net/descargas/access/curso_vba/vba_entregas.htm