テレワークならECナビ Yahoo 楽天 LINEがデータ消費ゼロで月額500円〜！
無料ホームページ 無料のクレジットカード 海外格安航空券　海外旅行保険が無料！ 海外ホテル

メモ２

363 ：名無しさん＠勉強中：06/12/27 05:21:15 ID:QKB4FOk2

2chdatsearchget使わせて貰ってます。
時々、dat落ちしたログを拾って（拾おうとして？）エラーを吐くみたいです。
拾いにいくサブルーチンはエラー無視となっているため、ファイルが取得出来てないときに、
ファイルを開きに行ってエラーを吐くようです。

エラーの内容は「ファイルが見つかりません」で行は158行目で出るようです。
で、この付近を見ると、コメントアウトしてある部分を除くと、

If retVal Then
work=GetHTMLDocument(out,tuika)　　←このサブルーチンはOn Error resume nextがあるためファイル無しでもスルー
'////////
Set fs = WScript.CreateObject("Scripting.FileSystemObject")
Set su = fs.OpenTextFile(tuika)　　　　←158行目
suStr = su.ReadAll
su.Close
'/////////
End If

何故か、一回オープンして最後まで読んでクローズしているだけなので、
何もしてないようなので本来このブロックは無くても良いのでは？