[perl-win32-gui-users] how to get the folder ??

[christopher s. <chr...@ya...>]

Normally

sub button1_Click {
    $file = GUI::GetOpenFileName(
        -owner => $W,
        -directory => "C:\\",
        -title => "Location of ",
        -file => $file,
    );
$ModuleWindow->text4->Text("$file");


now what Im doing is this

I get the file selected using the win32 file dialog and browse the files in
my local computer and once the file is seleted it is shown in a text box

for eg C:\folder1\somefile.txt

Till now it is OK

Now I want to select a folder and NOT a particular file


for eg

C:\folder1\

and I want the  $file to contaim "C:\folder1\"

Is it possible to choose just the folder and not a specific file using
GUI::GetOpenFileName if NOT is there another module to do so??


chris
www.perl-resume.com