さっそくお答えいただきまして、ありがとうございました。 マクロのほうを、教えていただいたとおり(コピー&ペーストで) 直しまして、なんとか希望通りに動くようになりました。
ちなみに、直した部分(★印が追加行)ですが── 3〜7行目----------------------------------- proc main dim i, n, r, sel, sel2, f$, s$, path$, key$, line$ dim item$[30], item2$[10], list$[20], message$[10] dim oldfile$ ★ oldfile$ = @Pathname$ ★
80〜91行---------------------------------------- '選択したフォルダにこのファイルを保存 elseif sel2 = 4 then if @hwnd = 0 then exit proc s$ = inputbox$("《ファイル保存》" + chr$(10) + \ path$ + " に保存します", \ " ◆ フォルダ指定で保存", @FileName$) if s$ = chr$(&H1B) then exit proc r = @SaveAs(path$ + s$) if oldfile$ = "(無題)" then exit proc ★ @FileClose ★ call @@OpenFile(oldfile$) ★ if r = -1 then call msgbox(path$ + s$ + " を保存しました。")
にしました。
あと、エクスプローラを呼び出すマクロですが、 個人的にエクスプローラーは嫌いなので(我が儘なもので。(^^ゞ) ふだんは、キーボードだけで動かせるDOS風のファイラーを利用してまして、 そちらも引数でフォルダ指定で呼び出せるので、応用させていただきますね。 勝手なお願いに、ご親切に対応していただきまして、どうもありがとうございました。 |