マクロ:現在のフォルダを指定ファイラーで開くNo.05897
L47B307 さん 01/10/04 23:05
 
 鶴亀のバグではありませんが、ここに投稿させていただきます。

 フォルダの設定・情報タブにある「エクスプローラで見る」に指定ファイラーを
使うようなマクロを書いてみました。

 どうもWinMeのエクスプローラが使いにくく、特に上記のボタンから開くと
左側にフォルダが付き、Webフォルダも同時に使っているとファイル欄が2列とか
3列しか表示されないという非常に見づらい状況で、しかもエクスプローラは
左側にフォルダが表示されていない大きさとして整列するようで、スクロールしないと
すべてのファイルが表示されないのです。 たまにWebフォルダ表示があるのに
無いものとして整列してくれることもあります。
 ↑WinMeを使っていない方には全く分からないでしょうね。

 左側にフォルダを表示させないオプションか、ファイラーを指定できるように
要望しようかと思ったくらいですが、マクロで簡単にできそうだったので作ってみま
した。

 WinMeでしか動作確認していませんし、何しろ初めて作ったマクロなので
なにか変なところとか、もっと簡単に書ける方法があれば指摘してください。

----------------------------------------------------------------------

// 現在フォルダ(編集ファイルのフォルダ)を指定ファイラーで開く

// 起動ファイラー
$filer = "C:\\Program Files\\mame2\\Mame2.exe";
//$filer = "explorer"; // 左にフォルダ無し

//----------
loaddll "TKInfo.dll";

    if ( !result ){
        // 鶴亀以外の場合(秀丸エディタ)おまけ
        run $filer + " " + directory;  // おまけ
        //message "このマクロは鶴亀メールでしか実行できません。(またはtkinfo.
dllがロードできないエラーです)";
        endmacro;
    }
    if ( !dllfunc( "IsTuruKame" ) ){
        message "このマクロは鶴亀メールでしか実行できません。";
        endmacro;
    }
    //if ( !dllfunc( "IsTuruKameMain" ) ){
    //    message "このマクロは鶴亀メール本体ウィンドウで実行してください。";
    //    endmacro;
    //}

// ホームディレクトリ取得
$homedir = dllfuncstr( "HomeDir" );

// 現在アカウント取得
$account = dllfuncstr( "CurrentAccount" );

// 現在フォルダ取得
$folder  = dllfuncstr( "CurrentFolder" );

// フォルダパス確定
$pass = $homedir + $account + "\\" + $folder;

// 実行
run $filer + " " + $pass;

endmacro;

[ ]