Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

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"; } # ...


Comment on Re^2: Win32::GUI questions
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://989553]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (6)
As of 2014-12-29 02:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (184 votes), past polls