cs_rino
Messages postés14Date d'inscriptionjeudi 15 août 2002StatutMembreDernière intervention28 décembre 2003
-
15 août 2002 à 13:33
tof008
Messages postés695Date d'inscriptionjeudi 5 mai 2005StatutMembreDernière intervention 5 janvier 2010
-
31 janv. 2007 à 14:52
Mince...
Je désire filtrer (éliminer) des auciens fichiers dans un répertoire, qui dépasse 60 jours selon la date de création.
Si quelqu'un pourrait bien m'aider car je suis débutant dans la matière grise de VB6.
cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 16 août 2002 à 12:39
' Suppose que la dernière modification du fichier FICHTEST a
' eu lieu le 12 février 2002 à 14h35min47s.
' Suppose que les paramètres régionaux correspondent à Français (standard).
Dim Cree_Modifie as String
Cree_Modifie = FileDateTime("FICHTEST") ' Renvoie "12/02/2002 14:35:47".
JeffLC
Messages postés73Date d'inscriptionlundi 16 octobre 2000StatutMembreDernière intervention20 février 2003 16 août 2002 à 13:20
tu peux aussi utiliser un objet FSO
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(Chemin de ton fichier)
s = f.DateCreated
t = f.DateLastAccessed
u = f.DateLastModified