Help! Common Dialog Through OLE2 Problems!

From: <fraserb_at_my-dejanews.com>
Date: Fri, 23 Apr 1999 13:19:07 GMT
Message-ID: <7fps07$p4t$1@nnrp1.dejanews.com>

I've seen so many messages about problems opening Common Dialog, so if anyone is in the same boat please reply. Opening the Common Dialog through OLE2 seems(?!?) to work, until trying to recover the filename. The code below works up until the last line, when there is no filename returned. Am I being dumb or is this an error or what?

  ole_app := ole2.create_obj('MSComDLG.CommonDialog');
  ole2.set_property(ole_app, 'Filter', 'Word Docs(*.doc)|*.doc');
  ole2.set_property(ole_app, 'DialogTitle', 'Choose File');
  ole2.set_property(ole_app, 'InitDir', 'C:\');
  ole2.set_property(ole_app, 'CancelError', 'FALSE');
  ole2.set_property(ole_app, 'FileName', 'None');

  ole2.invoke(ole_app, 'ShowOpen');
  v_file_chosen := ole2.get_char_property(ole_app, 'FileName');

Any help appreciated
Thanks in advance Fraser

-----------== Posted via Deja News, The Discussion Network ==---------- http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own Received on Fri Apr 23 1999 - 08:19:07 CDT