Change Current Path

現在アクティブなドキュメントのあるパスをカレントパスに変更する。

---

//**************************************************
//Change Current Path
//Copyright by Albatross (Yasutoshi Ito) 1998
//**************************************************
//Version 0.00:98/12/15
//**************************************************
Application (WordPerfect; "WordPerfect"; Default!; "JP")
CP:=?path()
if (CP="")
　prompt("Macro"; "カレントにするパス情報が得られません。";StopSign!)
　pause
　quit
endif
FileChangeDir(Directory: CP)
prompt("Macro";CP+"をカレントパスに設定しました。"; informationIcon!)
pause

---

＜＜戻る