>>162　先生！　こうですか、分かりません＞＜
01 // mysave.mc *** save file with backup
02 #include "EditCmds.h"
03
04 FullName = ::Apsaly.GetFileName();
05 ::File.GetNamePart( FullName, Pass'new!, FileName'new!, Ext'new! );
06
07 CountSplitFullName = FullName'split( "\\", strSplitFullName'new! );
08 FullName = strSplitFullName[0];
09 if ( CountSplitFullName > 0 ){
10 for ( i = 1; i < CountSplitFullName; i++ )
11 FullName = FullName + "\\\\" + strSplitFullName[i];
12 }
13
14 CountSplitPass = Pass'split( "\\", strSplitPass'new! );
15 Pass = strSplitPass[0];
16 if ( CountSplitPass > 0 ){
17 for ( i = 1; i < CountSplitPass; i++ )
18 Pass = Pass + "\\\\" + strSplitPass[i];
19 }
20
21 CopyCmd'new! = "cmd.exe /c copy /y " + FullName + " " + Pass + FileName + ".bak";
22 //::Execute'start( CopyCmd )'yield;
23 ::Execute( CopyCmd );
24
25 'sleep(500); // BAD * BAD * BAD * BAD * BAD
26 #FileSave;
22行目、yield関数をかけることで、シェルの動作が完結するまで
スリープできるはずなんだけど、上手くいかない。
仕方が無いから、FileSaveを発効する前に、0.5secのディレイを入れてみた。
なんか、いい知恵がないモンかね？