Date de création d'un fichier
Résolu
zegof
Messages postés
2
Date d'inscription
mardi 3 janvier 2006
Statut
Membre
Dernière intervention
3 janvier 2006
-
3 janv. 2006 à 10:14
zegof Messages postés 2 Date d'inscription mardi 3 janvier 2006 Statut Membre Dernière intervention 3 janvier 2006 - 3 janv. 2006 à 13:59
zegof Messages postés 2 Date d'inscription mardi 3 janvier 2006 Statut Membre Dernière intervention 3 janvier 2006 - 3 janv. 2006 à 13:59
4 réponses
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
3 janv. 2006 à 13:55
3 janv. 2006 à 13:55
Bonjour,
Ce code te donne la date de création, de la dernière modification et accession du fichier.
Private Sub Command1_Click()
Dim fso As Object, f
Set fso = CreateObject("Scripting.FileSystemObject")
On Error GoTo Fin
Set f = fso.GetFile("C:\MonFichier.txt")
MsgBox "Créé le : " & f.DateCreated
MsgBox " Modifié le : " & f.DateLastModified
MsgBox "Accédé le : " & f.DateLastAccessed
Set f = Nothing
Fin:
Set fso = Nothing
End Sub
jpleroisse
Si une réponse vous convient, cliquez Réponse Acceptée.
Ce code te donne la date de création, de la dernière modification et accession du fichier.
Private Sub Command1_Click()
Dim fso As Object, f
Set fso = CreateObject("Scripting.FileSystemObject")
On Error GoTo Fin
Set f = fso.GetFile("C:\MonFichier.txt")
MsgBox "Créé le : " & f.DateCreated
MsgBox " Modifié le : " & f.DateLastModified
MsgBox "Accédé le : " & f.DateLastAccessed
Set f = Nothing
Fin:
Set fso = Nothing
End Sub
jpleroisse
Si une réponse vous convient, cliquez Réponse Acceptée.
domsig
Messages postés
125
Date d'inscription
lundi 6 septembre 2004
Statut
Membre
Dernière intervention
11 mai 2010
3 janv. 2006 à 11:49
3 janv. 2006 à 11:49
quelque chose dans ce style...
dim fso as object
Dim f As Object
Set f = fso.GetFile(CurDir & "" & nom_du_fichier)
msgbox(f.Size)
dim fso as object
Dim f As Object
Set f = fso.GetFile(CurDir & "" & nom_du_fichier)
msgbox(f.Size)
Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
34
3 janv. 2006 à 12:21
3 janv. 2006 à 12:21
Bonjour,
voila les fonctions à utiliser.
Private Declare Function GetFileTime Lib "kernel32" (ByVal hFile As
Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME,
lpLastWriteTime As FILETIME) As Long
Private Declare Function FileTimeToSystemTime Lib "kernel32" (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long
Daniel
voila les fonctions à utiliser.
Private Declare Function GetFileTime Lib "kernel32" (ByVal hFile As
Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME,
lpLastWriteTime As FILETIME) As Long
Private Declare Function FileTimeToSystemTime Lib "kernel32" (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long
Daniel
zegof
Messages postés
2
Date d'inscription
mardi 3 janvier 2006
Statut
Membre
Dernière intervention
3 janvier 2006
3 janv. 2006 à 13:59
3 janv. 2006 à 13:59
Cool ça marche du tonnerre !
1000 mercis de Belgique
Vincent
1000 mercis de Belgique
Vincent
