ファイルが空のとき、ファイルを削除する
メッセージ
ファイルを開いたときに、ファイルが空(ファイルサイズ0)だったときにファイルを削除するマクロです。
マクロを登録するときに、"自動実行:新規/開ファイル後"をチェックしてください。
ファイルの排他制御は"しない"にしてください。
0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
| (function(){
var sPath = Editor.GetFilename();
if( sPath )
{
var shell = new ActiveXObject("WScript.Shell");
var objFileSys = new ActiveXObject("Scripting.FileSystemObject");
var objFile = objFileSys.GetFile(sPath);
if ( objFile.Size == 0 )
{
var msg = "ファイルが空です。削除しますか?";
if (Editor.YesNoBox(msg) == 6)
{
objFileSys.DeleteFile(objFile, true);
Editor.WinClose;
}
}
objFileSys = null;
shell = null;
}
})();
|
- 確認メッセージを放置してた場合のことを考慮して、確認メッセージでYesを選択した後にもう一度サイズチェックしたほうがいい。 --