Tested:
use Win32::FileOp;
my @filenames = Win32::FileOp::OpenDialog(
title => 'Test',
filters => [ 'Word Documents' => '*.rtf;*.doc', 'All' => '*.*'],
defaultfilter => 1,
dir => 'c:\\',
filename => ' ',
handle => 0,
options => OFN_ALLOWMULTISELECT | OFN_EXPLORER, # does multi
select and does explorer type interface
);
print join("\n", @filenames);
Aldo, any chance of getting the bit flags in the options added to the
Win32::GUI::GetOpenFileName function so that it allows multiple files?
I dont know what these consants are named in Windows, but here are the
values from the Win32::FileOp module:
OFN_ALLOWMULTISELECT => 512
OFN_EXPLORER => 524288
I tried [addstyle|style] to set these, but that did not work. If we can
get this to work with SendMessage, or any other way, let us know.
-----Original Message-----
From: Marcus [mailto:[EMAIL PROTECTED]
Sent: Wednesday, September 26, 2001 1:19 AM
To: [email protected]
Subject: [perl-win32-gui-users] Selecting multiple files
It doesn't seem that you can select more than one file with
GetOpenFileName. Is that correct?
I tried using Win32::FileOp::OpenDialog, but get the following error:
Can't locate auto/DELETE.al in @INC(...) at ...Win32/FileOp.pm line
941.
Here is the code:
sub ::AddFilesButton_Click { defined(my $root =
$Win32::GUI::Loft::window{MyWindow}) or return(1);
use Win32;
use Win32::FileOp;
my @filenames = $root->Win32::FileOp::OpenDialog(
-options => 'OFN_ALLOWMULTISELECT');
...
Thanks for any help,
Marcus
_______________________________________________
Perl-Win32-GUI-Users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
