/* #TITLE# この File を c:/zip/にコピーする(Win版) */ /* CP_ZIP.MAC 2016.12.21 by kita */ echo "ファイル名を入力してください(でこのFileだけ)"; mdl_name = getany(1); type_tmp = vtype(mdl_name); if (type_tmp == 5) { /* Entr キーのみ */ mdl_name = fname("#MODEL#",#CURFILNAME); } else { tmp_ss = fname("#MODEL#",#CURFILNAME); n = subs(tmp_ss,#CURMDLNAME,mdl_name); mdl_name = tmp_ss; } /*echo mdl_name;getany(1);*/ echo "保存先を指示(で c:\\zip\\)"; tmp = getany(1); if (vtype(tmp) == 5) { /* Entr キーのみ */ save_dir = "c:\\zip\\"; } else if (vtype(tmp) == 4) { /* 文字 */ save_dir = tmp; } subs(mdl_name,"/","\\"); /* パスの区切りを[/]->[\]に変更 */ cmd = "!copy " + mdl_name + " " + save_dir + " &"; /*echo cmd; getany(1);*/ [cmd] echo mdl_name "をコピーしました"; exit;