perlでdialogのフォルダ指定

質問

perl勉強中のものです。
perlにてプログラムを作成中ですが、フォルダを
ダイアログを使って指定したいです。
参考ページを調べvbsにて以下のプログラムを作ってみました。

******************************************************************
Set Shell = CreateObject("Shell.Application")
Set objFolder = Shell.BrowseForFolder(0, "フォルダを選択してね！", 1, "c:\\")
if objFolder is Nothing then
Msgbox("ちゃんと選んで頂戴！")
else
Msgbox(objFolder.Items.Item.Path)
end if
******************************************************************

理解しきれていないのですが、vbsをperlに埋め込む？（変換？）ことができるようで
モジュールを使って、上記のプログラムから参考を調べ、見よう見まねでperlで
作ってみましたが、何も表示せず、動作しません。
どこに問題があるか教えていただけないでしょうか？

******************************************************************
use Win32::OLE;
my $Shell = Win32::OLE->CreateObject("WScript.Shell");
my $objFolder = $Shell->BrowseForFolder(0,'フォルダを選択してね', 1, 'c:\\' );
unless ($objFolder) {
$Shell->MsgBox('ちゃんと選んで頂戴！',undef,'フォルダ選択',1);
} else {
$Shell->MsgBox("$objFolder->$Items->$Item->$Path");
}
*******************************************************************

とんちんかんなプログラムを作っているかもしれませんが、
ご指導よろしくお願いします。

回答No.3

ralf124c · ベストアンサー

ちゃんと期待通り動くのに訂正します。
------------------------------------------------------------------
use Win32::OLE;
use Win32::GUI;

my $Shell = Win32::OLE->CreateObject("WScript.Shell");
my $Desig = Win32::GUI;

my $Folder = $Desig->BrowseForFolder(-title =>'フォルダを選択してね', -directory =>"c:\\" );

unless ($Folder) {
Win32::MsgBox('ちゃんと選んで頂戴！');
}else{
Win32::MsgBox("$Folder");
}
------------------------------------------------------------------
VBSとまったく同じというわけには行かないので各PerlモジュールのリファレンスとVBSのリファレンスとを照らし合わせていじってみましょう。
例：
http://search.cpan.org/~robertmay/Win32-GUI-1.06/
http://perl-win32-gui.sourceforge.net/cgi-bin/docs.cgi?doc=reference-methods
http://cpansearch.perl.org/src/ACALPINI/Win32-GUI-0.0.558/docs/html/Win32_GUI.html

お礼

色々プログラムを変更していたら、回答が遅れました。
動作、表示確認です。
おかげで解決しました。
ありがとうございました。
リファレンス系は日本語はないんですねぇ・・・。
他のプログラムの追記については、訳しながら勉強してきたいと思います。
それでは。

回答No.2

ralf124c

これではだめですか？
-----------------------------------------------------------------------------------------------------------
use Win32::OLE;
use Win32::GUI;

my $Shell = Win32::OLE->CreateObject("WScript.Shell");
my $Desig = Win32::GUI;

my $objFolder = $Desig->BrowseForFolder(0,'フォルダを選択してね', 1, "c:\\" );

unless ($objFolder) {
Win32::MsgBox('ちゃんと選んで頂戴！',undef,'フォルダ選択',1);
}else{
Win32::MsgBox("$objFolder->$Items->$Item->$Path");
}
-----------------------------------------------------------------------------------------------------------

補足

回答ありがとうございます。
試してみたところ("$objFolder->$Items->$Item->$Path"辺りで
エラーが出たので、どうせ渡すので
print $objFolder
で、確認表示だけにしようと思います。
しかし
Win32::MsgBox('ちゃんと選んで頂戴！',undef,'フォルダ選択',1);
が、うまく動かないのと、
「フォルダを選択してね」
辺りの表示がうまく行きませんね？？
更に勉強してみます。

回答No.1

kuroizell

Win32::GUIやWin32::MsgBoxのメソッドっぽいですね。＞BrowseForFolder, MsgBox
恐らくダブルクリックで実行しているのではないかと思いますが、
エラー（動かない原因）の確認が出来ないので、コマンドプロンプトから実行しましょう。

本当にvbsをperlに埋め込むのなら、以下の一行でも済みます。
`C:/Docume~1/username/デスクトップ/your.vbs`; # 空白を含まないように(WinXPの例)。

``で囲むと、そのOSで使えるコマンドを実行できます。
例）print `ipconfig`;

Windowsの操作なら、本家であるvbsを使う方がラクでしょう。
遊びながら学ぶなら、個人的にはWWW::Mechanizeが（簡単ではないけど）面白いです。

お礼

回答ありがとうございます。
一応、コマンドラインからやってます。

なるほど、直接埋め込めるんですね。
プログラムは一つにしたいのですから、今回は使用しませんが
次回挑戦してみます。

WWW::Mechanizeは初耳です。
ぐぐってきまーすｗ