/* * 指定されたディレクトリ以下の階層をツリー表示します。 */ var dirPath = prompt("input directory path", ""); var fso = new ActiveXObject("Scripting.FileSystemObject"); var dirMark = " <dir>"; if (fso.folderExists(dirPath)) { editor.newFile(); var newDoc = editor.documents.item(editor.documents.count); var dir = fso.getFolder(dirPath); newDoc.writeln(dir.name + dirMark); function writeSubTree(dir, branchParts) { var count