| |
なにかが起こっていそうな箇所は、
以下の処理をしている部分になります。
//カレントディレクトリセット
ddeexecute "setcurdir " + $strDir;
call DBOUT "setcurdir = " + $strDir;
//フォルダ作成
if(#Iflag && val($strJet)){
ddeexecute "mkdir /n " + $NameDay2;
//フォルダ作成に成功したか否か
//・処理の結果コード(result)
// 0: 成功
// 1: 失敗
##r1 = val(dderequest("fileopresult"));
if( ##r1==0 ){
//ディレクトリを書き換え
writeregstr "ExpDir", $strDir + "\\" + $NameDay2;
$strtmp = $strDir + "\\" + $NameDay2 + ".txt";
// changename $NameDay2;
call DBOUT "$strtmp999 = " + $strtmp;
}else{
//ディレクトリを書き換え
writeregstr "ExpDir", $strDir;
message "フォルダ作成に失敗しています。"+ "\x0a" + $strDir + "
をレジストリに登録しました";
}
//カレントディレクトリ問合せ
$cdir = dderequest("getcurdir");
if( strlen($cdir) > 0 ) call DBOUT "カレントディレクトリ = " + $cdir;
//レジストリを閉じて
closereg;
}
//秀丸に読み込ませる
#n = dllfunc("EnvChanged", 1);
//クリックボードにフォルダ名を保存
beginclipboardread;
setclipboard $NameDay2;
// call Time_wait 1000;
//名前を付けて保存(秀丸エディタマクロ)
SAVEAS;
//キャンセルした場合は、終了
if(result==false)goto LEND;
if( #fcount > 0 ) {
//添付ファイルがあった場合
// message "添付ファイルが " + str(#fcount) + " 個ありますよ！保存し
てね";
#n = dllfunc( "SelectPane", 3);
//次のV5.13βから、
//
//#n = sendmessage( hidemaruhandle(0), 0x0111, 40323, 0 );
//
// って文で「名前を付けて保存」が実行出来るようにします。
//
//#define IDM_ATTACHPANE_UNDOATTACH 40322
//#define IDM_ATTACHPANE_SAVEAS 40323
//#define IDM_ATTACHPANE_RENAME 40324
//#define IDM_ATTACHPANE_IMPORT 40325
//#define IDM_ATTACHPANE_FIND_RENAMED_FILE 40326
//#define IDM_ATTACHPANE_EXPLORER 40327
//ということで、今現在の枠上で「すべて選択」を実行する用の、
//SelectAllInCurrentPaneって関数を追加することにします。
//
// loaddll "tkinfo.dll";
// #n = dllfunc("SelectPane", 3);
// #n = dllfunc("SelectAllInCurrentPane");
// #n = sendmessage( hidemaruhandle(0), 0x111, 40323, 0 );
// #n = dllfunc("SelectPane", 3);
#n = dllfunc("SelectAllInCurrentPane");
#n = dllfunc("SetAutoPushTimer", 1, "OK" );
// #n = sendmessage( hidemaruhandle(0), 0x111, 40323, 0 );
//
// #n = dllfunc("SetAutoPushTimer", 1, "OK" );
#n = dllfunc("SetAutoPushTimerEver", hidemaruhandle(0), "" );
#n = sendmessage( hidemaruhandle(0), 0x0111, 40323, 0 );
#n = dllfunc("StopAutoPushTimer");
}
//メモ処理
if(#IHattyu){
#n = dllfunc("SetHeaderForMultiSelect", "X-Memo:", "《済発》");
}else{
#n = dllfunc("SetHeaderForMultiSelect", "X-Memo:", "<済>");
}
// サーバの終了
ddeexecute "exit /a";
|
|