ottenere data ultima modifica file in Access query

Question

Buongiorno, ho necessità di ottenere da una query access la data di ultima modifica file (o una serie di file). utilizzando il codice sottostante non è sufficiente, perché il nome del file non deve essere "definito" ma il codice lo deve prendere da una query che usa la funzione proprio per ottenere tale data. Non so come far leggere dal codice il nome file nella funzione introdotta come campo query 

Function FileDateTime(nomeFile As String)

Dim fso As Object

Dim f As Object

Dim mydate As Date

'nomeFile = "c:\pippo.TXT"

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.GetFile(nomeFile)

mydate = OFS.GetFile(nomeFile).DateLastModified

Set f = Nothing

Set fso = Nothing

End Function

Answer 1

Salve,

di solito il messaggio viene da problemi con i riferimenti: http://www.donkarl.com/it?FAQ7.1

Answer 2

Grazie Karl, sarebbe veramente utile utilizzare tale funzione. Per prova ho creato una query con un campo solamente (SQL sotto indicato). Quando la giro ottengo il messaggio "Funzione 'FileDateTime' non definita nell'espressione.

L'SQL è:

SELECT FileDateTime("E:\Tubilux\TTO\Local_DWH\Anagrafica_lotti.csv") AS Espr1;

Anche se creo un campo con il percorso e nome file e utilizzo la FileDateTimecome di seguito ottengo lo stesso risultato di sopra

SELECT "E:\Tubilux\TTO\Local_DWH\Anagrafica_lotti.csv" AS Lotti, FileDateTime([Lotti]) AS Espr1;

Answer 3

Salve,

se vuoi avere la data in una colonna della stessa query dove si trova il nome del file (che include l'intero percorso) non hai bisogno di codice. Basta usare la funzione di VBA FileDateTime direttamente nella query. Cioè, nella query crea una nuova colonna con quest'espressione nella riga "Campo":

FileDateTime([NomeDelTuoCampoConPercorsoENomeFile])