- 現在開いているファイルを削除するマクロです
- 開いているドキュメントがファイルでない場合は警告を表示して終了します
- 削除したウィンドウを閉じます
DeleteFile.js
#title="開いているファイルを削除する"
var fso = new ActiveXObject('Scripting.FileSystemObject');
var fullPath = Document.FullName;
if(fullPath == "") {
alert("ファイルを開いていません")
Quit();
}
var file = fso.GetFile(fullPath);
alert(file + "を削除しました");
fso.DeleteFile(file);;
Editor.ActiveDocument.close();