(1) −−−−−−−−−−−−−−−−−−−−−−−−−−−− '/////////////////ループ処理///////////////////////// For Each url In urlList wscript.sleep 60000 −−−−−−−−−−−−−−−−−−−−−−−−−−−− を検索したら wscript.sleep 60000の行を削除
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