>>83 そうだね。たとえば、この程度の機能なら、すぐに実装できちゃうもんねえ。
//=========================================================================================
//反対パスにディレクトリを作成後、マークファイルがあれば問い合わせてから移動。
//引 数:なし
//=========================================================================================
void MkDirAndMove()
{
str $DN, $Files;
int $j = 0;
if (Input("作成するディレクトリ名を入力して下さい。","",$DN) == [$IDOK]) {
if ($DN != "") {
$DN = $O + "\" + $DN;
MakeDirEx($DN);
//5秒待って作れなきゃ失敗
while ((IsExist($DN) == 0) & ($j <= 500)) {
Sleep(10);$j = $j + 1;
}
if (IsExist($DN) == 0) {
Warning("失敗しました。");
} else {
ReloadOpp();
if (GetMark(0)) {
if (AskYN("マークファイルを" + $DN +"に移動しますか?",[$IDYES]) == [$IDYES]) {
ExchangeCursor();ChangeDir($DN);ExchangeCursor();
Move();
}
}
}
}
}
}