/*#TITLE# モデル削除用マクロ*/ /* DEL_MDL.MAC 2003.8.13 kita */ /* 2006.03.01 fnameを使ってすっきりさせた 2007.06.07 MDI File も削除する */ f_name = fname("#MODEL#",#CURFILNAME); gomi_path = fname("#MODEL#"," "); n = subs(gomi_path," .MDL","GOMI"); /* echo gomi_path; getany(1);*/ mdi_name = fname("#MODEL:INFORM#",#CURMDLNAME); /* echo mdi_name; getany(1); */ echo f_name "を削除する? y(CR)/n"; yn = getany(1); type_yn = vtype(yn); if (type_yn == 5) { /* Entr キーのみ */ yn = "Y"; } else if (type_yn == 4) { /* 文字 */ yn = yn; } if(yn == "N"){ exit;} else if(yn == "Y"){ subs(f_name,"/","\\"); subs(gomi_path,"/","\\"); /*echo f_name " " gomi_path; getany(1);*/ cmd = "!cp " + f_name + "* " + gomi_path + " &"; /*echo cmd; getany(1);*/ [cmd] cmd = "!del " + f_name + "* &"; [cmd] cmd = "!del " + gomi_path + "\/*LCK &"; [cmd] echo f_name "を消去しました"; } exit;