Fix misspell in start.vbs.

Llq201809 · Apr 16, 2016 · 80ec0a7 · 80ec0a7
1 parent 6526b8f
commit 80ec0a7
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/start.vbs b/start.vbs
@@ -8,20 +8,20 @@ Function CurrentPath()
     CurrentPath = objFSO.GetParentFolderName(objFile)
 End Function
 
-Function CurrentVersoin()
+Function CurrentVersion()
     strCurrentPath = CurrentPath()
     strVersionFile = strCurrentPath & "/code/version.txt"
 
     Set fso = CreateObject("Scripting.FileSystemObject")
     If (fso.FileExists(strVersionFile)) Then
 
         Set objFileToRead = CreateObject("Scripting.FileSystemObject").OpenTextFile(strVersionFile,1)
-        CurrentVersoin = objFileToRead.ReadLine()
+        CurrentVersion = objFileToRead.ReadLine()
 
         objFileToRead.Close
         Set objFileToRead = Nothing
     Else
-       CurrentVersoin = "default"
+       CurrentVersion = "default"
     End If
 
 End Function
@@ -41,7 +41,7 @@ End Function
 
 
 strCurrentPath = CurrentPath()
-strVersion = CurrentVersoin()
+strVersion = CurrentVersion()
 Dim strArgs
 quo = """"
 strExecutable = quo & strCurrentPath & "\code\" & strVersion & "\python27\1.0\python.exe" & quo