さっそくお答えいただきまして、ありがとうございました。
マクロのほうを、教えていただいたとおり（コピー＆ペーストで）
直しまして、なんとか希望通りに動くようになりました。

ちなみに、直した部分（★印が追加行）ですが──
３〜７行目-----------------------------------
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$ + " を保存しました。")

にしました。

あと、エクスプローラを呼び出すマクロですが、
個人的にエクスプローラーは嫌いなので（我が儘なもので。(^^ゞ）
ふだんは、キーボードだけで動かせるＤＯＳ風のファイラーを利用してまして、
そちらも引数でフォルダ指定で呼び出せるので、応用させていただきますね。
勝手なお願いに、ご親切に対応していただきまして、どうもありがとうございました。