Simplification code CHEKSUM d\'un DWG

[stephan35]

Bonjour,

 

A des fins de programmation j'ai besoin de savoir en permanence si un fichier DWG à été modifié depuis mon dernier traitement, la seule solution que j'ai trouvé c'est de faire un CHEKSUM de celui-ci, puis de stocker sa valeur dans une base de donnée.

 

Au second traitement je relance un chksum sur ce fichier, si la valeur à changée c'est que le fichier à été modifié !

 

Merci pour votre intérêt !

 

 

 

 

[Edité le 20/2/2007 par stephan35]

[stephan35]

Voilà le travail :

 

 (defun @Macro_checksum_fichier ( $file /  $tmp #filetime #filesize)
 (if $file
   (progn
     (setq $tmp "" #filetime (vl-file-systime $file))
     (if #filetime
(progn
  (foreach tmp #filetime
    (setq $tmp (strcat $tmp (itoa tmp)))
    )
  (setq #filesize (vl-file-size $file))
  (setq $tmp (strcat $tmp (itoa #filesize)))
  )
(progn
  (MsgBox "Erreur" 16 (strcat $file " n'existe pas !"))
  )
)
     )
   (progn
     (MsgBox "Erreur" 16 (strcat "Valeur entrée vide !"))
     )
   )
)

 

 

Un petit message pour les teigneux de la simplification ...... :casstet:

.........

............

................

......................

 

Si quelqu'un veut me poster une version lite de mon code, no souci !!! ;)

[BTO]

bonjour

 

en complément, on peut aussi explorer une autre voie, accéder à un fichier via FileSystemObject pour récupérer une multitude d'informations.

le principe général :

 
(setq filePath (getfiled "Sélection d'un fichier" "" "" 0))
(setq objWsh (vlax-create-object "Scripting.FileSystemObject"))
(setq objFile (vlax-invoke-method objWsh 'GetFile filePath))

(vlax-get objFile 'Attributes)
(vlax-get objFile 'DateCreated)
(vlax-get objFile 'DateLastAccessed)
(vlax-get objFile 'DateLastModified)
(vlax-get objFile 'Drive)
(vlax-get objFile 'Name)
(vlax-get objFile 'ParentFolder)
(vlax-get objFile 'Path)
(vlax-get objFile 'ShortName)
(vlax-get objFile 'ShortPath)
(vlax-get objFile 'Size)
(vlax-get objFile 'Type)

 

Bruno Toniutti

[stephan35]

Bien vu !

et je n'ai pas le choix car les fonctions vl-file* m'interdisent d'accèder à un fichier ouvert en lecture .... :mad:

 

Je refournis le code une fois teminé ...