Brad, You are correct. It is on what I asked but it does 'Exactly' what I wanted to do with Win32::API!
Thanks much, you just saved me a lot of time. Dax *********** REPLY SEPARATOR *********** On 6/6/2002 at 8:27 AM Warkentin, Brad wrote: >Dax T. Games [mailto:[EMAIL PROTECTED]] wrote: > >> Anyone been able to import the GetOpenFileName API from comdlg32.dll. >> So I don't need to reinvent the wheel? I have been trying >> but have had no success. > >I know it is not exactly what you are asking for but I often do something >like: > >use Tk; >my $input_file; >unless ( $input__file = shift @ARGV ) { > if ( $^O eq 'MSWin32') { > $current_dir =~ s|/|\\|g; > } > my $mw = MainWindow->new(); > my $types = [ > ['Board files', ['.brd']], > ['All files', ['*']] > ]; > $input_file = $mw->getOpenFile( -filetypes => $types, > -initialdir => >$current_dir, > -title => 'Select >input file:' > ); >} > >when I need a file specified by the user. If they don't supply it on the >command line I pop up the familar file selector window. > >cheers, >bj > >-- >Brad Warkentin CAD Manager AcceLight networks >email: [EMAIL PROTECTED] www.accelight.com >phone: 613.596.4804 x4388 26 Auriga Drive >fax: 613.596.2399 Ottawa, ON K2E 8B7 >_______________________________________________ >Perl-Win32-Users mailing list >[EMAIL PROTECTED] >To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs _______________________________________________ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
