Drawing log

Guys is there anyone who knows how to have a vba that logs what drawings you open with a date - start time and end time into a excel sheet??

Or within lisp - i dont mind

May be helpful..

http://mdouglas.blogs.com/in_the_dynamic_interface/2005/05/drawing_log_to_.html

Thanks mate - i just added this to a lisp that is loaded on everyones pc. works fine.

Thanks mate

(defun-q S::STARTUP (/ Draftername Job file line2write)
(setq p1 (strcat (menucmd "M=$(edtime,$(getvar,date),MON - DDD D YY )")))
(setq Draftername (getvar "loginname"))
(setq Job (strcat (getvar "dwgprefix") (getvar "dwgname")))
 (setq file (open (strcat "R:\\Temp\\Russell\\DWGLOG\\" p1 "AutoCadCivilDrawingLog.csv") "a"))
 (setq line2write (strcat
        Draftername
        ","
        (menucmd "M=$(edtime,$(getvar,date),MON D YY HH:MM AM/PM)")
        ","
      Job))
    (write-line line2write file)
 (close file)

(setq userfile (open (strcat "C:\\" p1 "AutocadCivilUserDrawingLog.csv") "a"))
(write-line line2write userfile)
(close userfile)
(princ))