use Win32::GUI; my $file = "*.txt\0" . " " x 256; my @files = GUI::GetOpenFileName( -owner => $W, -directory => "C:\\", -title => "Create ASN File - Specify Output File", -file => $file, -multisel => 1, );
print @files; in 0.0.665 if you use multisel => 1 it will bring up an ugly 3.1 style box. maybe this should be changed? if you had been using warnings and/or strict you would have got the following error: "my" variable $file masks earlier declaration in same scope, because you declared $file twice. you should always use warnings if not strict as well. instead of using -file => "*.txt"; you could use -filter => "Text files" => "*.txt"; instead. mark
