modifier la date d\'un fichier

[l56]

Bonjour,

 

Avec la command lisp OPEN, je peux créer un fichier, mais j'aimerai lui donner une autre date que la date de création.

Est-ce possible ?

 

Merci

[Patrick_35]

Salut

 

Tu veux modifier à la date de création ou à la date de dernière modification ?

 

@+

[l56]

Plutôt la date de création.

mais si on peut modifier les deux, je veux bien savoir comment. :-)

 

merci

[Patrick_35]

Arg..., je me suis fait avoir.

 

Avec comme objet activex Scripting.FileSystemObject, un vlax-get de DateLastModified ou DateCreated me donne ces dates de modification ou de création. Donc logiquement, un vlax-put devrait écrire ces dates. Et ben non

 

Pour info, le lisp qui aurait du fonctionner.

(defun ch_date(fichier jour mois annee heure minute seconde / fso ctoj)

 ; Extrait du lisp http://www.davidbethel.com/lisp/julian.lsp
 (defun ctoj (yr m d hh mm ss / y a b)
   (setq y yr)
   (if (<= m 2)
     (setq y (1- y)
    m (+ m 12)
     )
   )
   (if (or (< yr 1582)
           (and (= yr 1582)
	 (or (< m 10)
	     (and (= m 10) (< d 5))
	 )
    )
)
     (setq b 0)                    ; Julian calendar
     (setq a (fix (/ y 100))       ; Gregorian calendar
    b (+ (- 2 a) (fix (/ a 4)))
     )
   )
   (+ (fix (+ (* 365.25 (+ y 4716)) (fix (* 30.6001 (+ m 1)))))
      d b -1524.0 (/ (+ (* (+ (* hh 60) mm) 60) ss) (* 24.0 60 60))
   )
 )

 (setq fso (vlax-Create-Object "Scripting.FileSystemObject"))
 (vlax-put-property (vlax-invoke fso 'getfile fichier) 'DateLastModified (- (ctoj annee mois jour heure minute seconde) 2415019))
 (vlax-release-object fso)
)

 

Il va faloir explorer une autre piste. Regarder dans les partitions d'un DD en Activex ?

A rechercher.

 

Sinon, tu as des outils comme par exemple

 

http://forum.zebulon.fr/index.php?showtopic=126641

http://www.jddesign.co.uk/

Et sur xp, vfi.exe

 

@+

[l56]

merci,

je vais voir ce que je peux faire avec ça.

 

a+