;; | --------------------------------------------------------------------------------
;; | MI_DateCreated 
;; | --------------------------------------------------------------------------------
;; | Function : Returns the 'Date Created' from a file
;; | Auguments: 'fn' - File name to check
;; | Return   : 'Daet Created'
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | --------------------------------------------------------------------------------


(defun MI_DateCreated ( fn / fso datecreated )

;; Use the scripting.filesystemobject
;; Get the FSO object
(setq
	fso         (vlax-get-or-create-object "scripting.filesystemobject")
	file        (vlax-invoke fso 'getfile fn)
	datecreated (vlax-get file 'datecreated)
)

; Release the objects after using
(vlax-release-object file)
(vlax-release-object fso)
datecreated
)