Fix license and data file path (#18)

gyk4j · May 14, 2024 · 393e796 · 393e796
1 parent 3e28058
commit 393e796
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/chcl3.vbs b/chcl3.vbs
@@ -40,7 +40,7 @@ End Sub
 
 Function DisplayLicense()
 	Dim LicenseText
-	LicenseText = ReadTextFile("..\LICENSE")
+	LicenseText = ReadTextFile("LICENSE")
 
 	'Reflow the text by removing unwanted new line characters. Keep the empty
 	'line separating paragraphs.
@@ -76,7 +76,7 @@ End Sub
 Sub StopServices
 	Dim SubRef
 	Set SubRef = GetRef("StopService")
-	Call ReadLine("services.txt", SubRef)
+	Call ReadLine("data\services.txt", SubRef)
 	Set SubRef = Nothing
 End Sub