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
Bonjour tout le monde
J'aimerais savoir comment extraire la date de creation d'un fichier, en vb6

Merci

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
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.
3
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
quelque chose dans ce style...
dim fso as object
Dim f As Object
Set f = fso.GetFile(CurDir & "" & nom_du_fichier)
msgbox(f.Size)
0
Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
33
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
0
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
Cool ça marche du tonnerre !
1000 mercis de Belgique

Vincent
0