dirコマンドではファイルパスが長すぎるとエラーしますが処理は進むので、コマンドにフォルダパスを渡しながらテキストに落とし込んでいくスクリプトを書きました。
が、やはり止まります。
ログを見ると、dirは正常に終了しており、容量も出せていましたが、その値を書き込む段階でスクリプトが停止しています。
いくつか書き込み出来ているのに、必ず同じフォルダで終了してしまいます。（そのフォルダは100GBを超えています）
容量の計算はコマンドで実行して結果は正常に出ており、その結果をvbsで出力しているだけなのに、なぜ停止してしまうのか分かりません。
どうか、ご教授頂けないでしょうか。
'------------------------------' csv作成 '------------------------------
SEARCH_DIR = \\server01\share\
'csv出力先フォルダ
RESULT_DIR = "D:\"
'FileSystemObject生成
Set fso = CreateObject("Scripting.FileSystemObject")
'CSV作成
Set resultfile = fso.CreateTextFile(RESULT_DIR & "\RESULT.txt",true)
'サブメソッド呼び出し
Call Sub_SearchDir(SEARCH_DIR,"")
WScript.Echo("END1")
set branch = nothing
set fso = nothing
'------------------------------' 検索サブ '------------------------------
sub Sub_SearchDir(branchpath, deps)
'変数
Set objShell = WScript.CreateObject("WScript.Shell")
Dim fsoFolder,fsoSubFolder,fsoFile,WshShell
Set WshShell = CreateObject("WScript.Shell")
'フォルダオブジェクト取得
Set fsoFolder = fso.GetFolder(branchpath)
'サブフォルダ検索
Set branch = fso.getfolder(branchpath)
'On Error Resume Next
'コマンド
cmd = "cmd /c dir /s /a-d "
file = """総数 ファイル"""
file2 = """*.*"""
find = " | findstr "
findv = " | findstr /v "
batlog = " >D:\log.txt 2>&1"
'SEARCH_DIR配下のフォルダを検索
For each f in fsoFolder.subfolders
'コマンド実行
set objExec = objShell.Exec(cmd & Chr(34) & f.path & Chr(34) & find & file & findv & file2)
'標準出力が終了するまでループ
Do Until objExec.StdOut.AtEndOfStream
strLine = objExec.StdOut.ReadLine
Loop
resultfile.WriteLine deps & f.path & " " & f.DateLastModified & " " & strLine
Next
End Sub
