Update winimerge to 1.0.28

[winmerge-jp/winmerge-jp.git] / ExpandEnvironmenStrings.vbs

diff --git a/ExpandEnvironmenStrings.vbs b/ExpandEnvironmenStrings.vbs
index dfc5346..91a722f 100644 (file)
--- 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