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
'最終行まで全部読み込む Dim arrFileLines() i=0 Set fs=CreateObject("Scripting.FileSystemObject") Set su = fs.OpenTextFile(tuika, ForReading) Do Until su.AtEndOfStream Redim Preserve arrFileLines(i) arrFileLines(i) = su.ReadLine i = i + 1 Loop su.Close
'最終行が長さ0以上の時(EOFでないとき)空行追加 If Len(arrFileLines(Ubound(arrFileLines))) > 0 Then Set su = fs.OpenTextFile(tuika, ForAppending) su.WriteLine su.Close End If
よし出来た −−−−−−−−−−−−−−−−−−−−−−−−−−− Dim objShell Dim objFolder Dim Fs Dim statusResult
Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.NameSpace("C:\WINDOWS") Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
Set xh = WScript.CreateObject("microsoft.xmlhttp")
−−−−−−−−−−−−−−−−−−−−−−−−−−−− Set regEx = New RegExp regEx.IgnoreCase = True regEx.Global = True regEx.Pattern = "\nLast-Modified\: .{3}, (\d{1,}) (.{3}) (\d{4}) (\d{1,})\:(\d{1,})\:(\d{1,}) .{3}\r\n" ' lastmod = regEx.Replace(xh.getAllResponseHeaders(),"$1/$2/$3/$4/$5/$6") Set Matches = regEx.Execute(xh.getAllResponseHeaders())
For Each Match in Matches out = regEx.Replace(Match,"$1/$2/$3/$4/$5/$6\r\n") If out = Match Then Else lastmod = Match End If Next −−−−−−−−−−−−−−−−−−−−−−−−−−−−
Set Fs = WScript.CreateObject("Scripting.FileSystemObject") Set Shell = WScript.CreateObject("Shell.Application")
For Each sArg In WScript.Arguments If Fs.FileExists(sArg) Or Fs.FolderExists(sArg) Then Call ModifyDate(sArg,Date) End If Next
MsgBox "終了"
Sub ModifyDate(path,dateval) Shell.NameSpace(Fs.GetParentFolderName(path)).ParseName(Fs.GetFileName(path)).ModifyDate=dateval End Sub −−−−−−−−−−−−−−−−−−−−−−−−−−−−−