Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Gilbert
Bonjour,
Avec les fonctions suivantes, ça devrait aller. C'est extrait de chez Raymond http://officesystem.access.free.fr/scr_scripting_runtime.htm
'FileSystemObject requiert une référence à la bibliothèque "Microsoft Scripting Runtime" Private fso As New filesystemobject
Public Function FileDateFileCreated(PathName As String) As Date On Error GoTo Err_Func FileDateFileCreated = fso.GetFile(PathName).DateCreated Exit Function Err_Func: End Function '-------------------------------------------------------- Public Function FileDateFileLastAccessed(PathName As String) As Date On Error GoTo Err_Func FileDateFileLastAccessed = fso.GetFile(PathName).DateLastAccessed Exit Function Err_Func: End Function '-------------------------------------------------------- Public Function FileDateLastModified(PathName As String) As Date On Error GoTo Err_Func FileDateLastModified = fso.GetFile(PathName).DateLastModified Exit Function Err_Func: End Function
Gilbert
"Lucie" a écrit dans le message de news:
Bonjour a vous tous, je me demande, s'il est possible d'aller recherche la date de création d'un
fichier texte avec access.
Merci beaucoup et bonne journée ! Lucie
Bonjour,
Avec les fonctions suivantes, ça devrait aller. C'est extrait de chez
Raymond http://officesystem.access.free.fr/scr_scripting_runtime.htm
'FileSystemObject requiert une référence à la bibliothèque "Microsoft
Scripting Runtime"
Private fso As New filesystemobject
Public Function FileDateFileCreated(PathName As String) As Date
On Error GoTo Err_Func
FileDateFileCreated = fso.GetFile(PathName).DateCreated
Exit Function
Err_Func:
End Function
'--------------------------------------------------------
Public Function FileDateFileLastAccessed(PathName As String) As Date
On Error GoTo Err_Func
FileDateFileLastAccessed = fso.GetFile(PathName).DateLastAccessed
Exit Function
Err_Func:
End Function
'--------------------------------------------------------
Public Function FileDateLastModified(PathName As String) As Date
On Error GoTo Err_Func
FileDateLastModified = fso.GetFile(PathName).DateLastModified
Exit Function
Err_Func:
End Function
Gilbert
"Lucie" <Lucie@discussions.microsoft.com> a écrit dans le message de
news:A7E8F725-EF3C-4D45-B297-D44F68C3FDE7@microsoft.com...
Bonjour a vous tous,
je me demande, s'il est possible d'aller recherche la date de création
d'un
Avec les fonctions suivantes, ça devrait aller. C'est extrait de chez Raymond http://officesystem.access.free.fr/scr_scripting_runtime.htm
'FileSystemObject requiert une référence à la bibliothèque "Microsoft Scripting Runtime" Private fso As New filesystemobject
Public Function FileDateFileCreated(PathName As String) As Date On Error GoTo Err_Func FileDateFileCreated = fso.GetFile(PathName).DateCreated Exit Function Err_Func: End Function '-------------------------------------------------------- Public Function FileDateFileLastAccessed(PathName As String) As Date On Error GoTo Err_Func FileDateFileLastAccessed = fso.GetFile(PathName).DateLastAccessed Exit Function Err_Func: End Function '-------------------------------------------------------- Public Function FileDateLastModified(PathName As String) As Date On Error GoTo Err_Func FileDateLastModified = fso.GetFile(PathName).DateLastModified Exit Function Err_Func: End Function
Gilbert
"Lucie" a écrit dans le message de news:
Bonjour a vous tous, je me demande, s'il est possible d'aller recherche la date de création d'un