Topic: MS common dialog box in lisp(win8 AutoCAD2012 doesn't work)

[cjw]

MS common dialog box in lisp
http://www.theswamp.org/index.php?topic=8405.0

(setq mscd (vlax-create-object "MSComDlg.CommonDialog")) ;create the object
(vlax-put-property mscd "Filename" "*.*") ;set the file filters
(vlax-put-property mscd "MaxFileSize" 10000) ;set the maximum size of the filename
(vlax-put-property mscd "Flags" 524800) ;set the dialog flags (you can find these in the API reference)
(vlax-put-property mscd "Action" 1) ;set the action of the dialog ... i.e. invoke it as "Open File"
(setq strFileName (vlax-get-property mscd "Filename"))

win8
AutoCAD 2008 work
_$ (setq mscd (vlax-create-object "MSComDlg.CommonDialog"))
#<VLA-OBJECT ICommonDialog 098a45d8>

AutoCAD 2012 doesn't work
_$ (setq mscd (vlax-create-object "MSComDlg.CommonDialog"))
nil

Any idea is appreciated. Thanks.

[cjw]

I think I found the answer

http://stackoverflow.com/questions/13877267/open-file-dialog-that-works-with-win7
https://social.technet.microsoft.com/Forums/scriptcenter/en-US/a3b358e8-15ae-4ba3-bca5-ec349df65ef6/windows7-vbscript-open-file-dialog-box-fakepath?forum=ITCG
http://www.qlikcommunity.com/thread/68470