Macro/投稿/217

http://sakura.qp.land.to/?Macro%2F%C5%EA%B9%C6%2F217


Top > Macro > 投稿 > 217

ファイルが空のとき、ファイルを削除する

メッセージ

ファイルを開いたときに、ファイルが空(ファイルサイズ0)だったときにファイルを削除するマクロです。

マクロを登録するときに、"自動実行:新規/開ファイル後"をチェックしてください。

ファイルの排他制御は"しない"にしてください。

filedelete_0byte_file.js
  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を選択した後にもう一度サイズチェックしたほうがいい。 -- 2013-04-15 (月) 19:52:23

URL B I U SIZE Black Maroon Green Olive Navy Purple Teal Gray Silver Red Lime Yellow Blue Fuchsia Aqua White

添付ファイル: filedelete_0byte_file.js 192件 [詳細]

リロード   新規 編集 凍結 差分 添付 複製 名前変更   ホーム 一覧 単語検索 最終更新 バックアップ リンク元   ヘルプ   最終更新のRSS
Last-modified: 2015-11-24 (火) 23:01:21 (968d)