現在編集中ファイルをバックアップするemeditorマクロ

マクロ第二段です。現在編集中ファイルを保存してそのコピーを同フォルダに作成します。
サンプルソースほぼ引用なので、この場で公開するに留めておきます。
このマクロの発展案として、一定数たまったら別の保管用フォルダに移動する処理を入れたりしようかと考えています。

(function(){
	var $d = document;
	var $s = $d.selection;
	try{
		var org = $d.FullName;
		$d.Save(org);
		var bk = org + "_" + new Date().getTime() + ".bk";
		var fso = new ActiveXObject( "Scripting.FileSystemObject" );
		fso.CopyFile(org, bk);
	}catch(e){
		alert("バックアップに失敗(" + e.message + ")");
	}
})();