wshのjscriptで再帰呼び出しを用いて、
ローカルのフォルダツリーを空白で表して表示したいです。
そこで以下のフォルダツリーをExcelに出力するコードを、Excelではなくコンソールに出力するように変更したいのですが、
どのように変更すればよろしいでしょうか。
お手数ですが、よろしくお願いします。
var excel = new ActiveXObject("Excel.Application"); excel.Visible = true; var book = excel.Workbooks.Add(); var sheet = book.Worksheets(1); var fso = new ActiveXObject("Scripting.FileSystemObject"); var row=0; getFolders(".",0); function getFolders(path,depth){ var folders = fso.GetFolder(path); var em = new Enumerator(folders.SubFolders); for( em.moveFirst(); !em.atEnd(); em.moveNext() ){ row++; sheet.Range(String.fromCharCode(65+depth)+row).Value = em.item(); getFolders(em.item(),depth+1); getFiles(em.item(),depth+1); } if(depth==0 && row==0){ sheet.Range("A1").Value = "「" + fso.getParentFolderName(WScript.ScriptFullName) + "」配下にフォルダがありません。"; } } function getFiles(path,depth){ var files = fso.GetFolder(path).Files; var e = new Enumerator(files); for ( ; !e.atEnd(); e.moveNext()) { var file = e.item(); row++; sheet.Range(String.fromCharCode(65+depth)+row).Value = file.name; } }
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。