FGALDC 14
/RE:07603 RE:開いたテキストの DIR をカレントに

　こんにちは、耳而夢斎 さん

とりあえず、自分で最初に考えたように、条件判定を１つ加えてみました。
現在、以下のようなマクロで、とりあえず目的は達成できています。

1 "!Open"
;　前略
    &>
    (ks&1)?#_
0:  ;CDir
    f="B:\wterm\nifty",     ;※カスタマイズ：設定ディレクトリ(末尾￥不可)
    &u(f.0) d=r,            ;設定ドライブレターを d に
    &Sx(pq..127,f)          ;設定ディレクトリとカレントディレクトリを比較
    (r)??.                  ;同じなら終了
    &f(d,pq..127)           ;設定ドライブとカレントを比較
    (r!=0)?{                ;違うなら移動
        ax=$0e00, dx=d-'A', &i($21)
    }
    &Sc(pa,wa+146,ha)       ;オープンファイルのパスから
    &So(pa,f)               ;設定ディレクトリを検索
    (r)??.                  ;なければ終了
    dx=f, ax=$3B00, &i($21) ;CD

あんまり美しくはないかもしれませんが、ま、いっか。
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　としき