Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?

Re^2: Win32::GUI questions

by HelenCr (Monk)
on Aug 24, 2012 at 14:29 UTC ( #989553=note: print w/replies, xml ) Need Help??

in reply to Re: Win32::GUI questions
in thread Win32::GUI questions

Esteemed monks: thank you for your efforts.

Here is the relevant excerpt from the code:

use strict; use warnings; use 5.014; use Win32::Console; use Win32::GUI(); use autodie; use warnings qw< FATAL utf8 >; use Carp::Always; use Win32API::File::Time qw{:win}; use Image::ExifTool qw(:Public); use Date::Parse; # ... my ( $FileName, $ImageDir, $DIR, $TopDir); # ... $TopDir = 'D:\My Documents'; $ImageDir = Win32::GUI::BrowseForFolder( -root => $TopDir, -includ +efiles => 1,); unless ($ImageDir) { say '$DirName not defined after calling Win32::GUI::BrowseForF +older, ', 'Photo date set line'.__LINE__; exit; } else { say "Identified directory: $ImageDir"; } # now select a file $FileName = Win32::GUI::GetOpenFileName( -title => 'Select an ima +ge file', -directory => $ImageDir, -file => "\0" . " " x 256, -filter => ["Image files (*.jpg)" => "*.jpg;*.jpeg", "All file +s", "*.*", ],); unless ($FileName) { say '$FileName not defined after calling Win32::GUI::GetOpenFi +leName, ', 'Photo date set line'.__LINE__; } else { say "Identified image file: $FileName"; } # ...

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://989553]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (3)
As of 2018-04-20 02:04 GMT
Find Nodes?
    Voting Booth?