X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=ExpandEnvironmenStrings.vbs;h=91a722fdb1f4ed85a571dbbec9a4f8aed133e37c;hb=f1d4379164063a49efd7d57f7fe243ce56bcb801;hp=dfc53464c676e46c69e0998fdcd9fee6dfb5a9c9;hpb=638ba371076289993ff1bce6687c0b284792f5f4;p=winmerge-jp%2Fwinmerge-jp.git diff --git a/ExpandEnvironmenStrings.vbs b/ExpandEnvironmenStrings.vbs index dfc53464c..91a722fdb 100644 --- a/ExpandEnvironmenStrings.vbs +++ b/ExpandEnvironmenStrings.vbs @@ -1,10 +1,10 @@ Dim fso: Set fso = CreateObject("Scripting.FileSystemObject") Dim sh: Set sh = CreateObject("WScript.Shell") -Dim ot: Set ot = fso.OpenTextFile(WScript.Arguments.Unnamed(0), 1) +Dim otf: Set otf = fso.OpenTextFile(WScript.Arguments.Unnamed(0), 1) -Do Until ot.AtEndOfStream = True - WScript.Echo sh.ExpandEnvironmentStrings(ot.ReadLine) +Do Until otf.AtEndOfStream = True + WScript.Echo sh.ExpandEnvironmentStrings(otf.ReadLine) Loop -ot.Close +otf.Close