MultiRCT

' PLEASE TAKE A LOOK AT THE README BEFORE USING/EDITING THIS CODE! IT'S AVAILABLE HERE: http://www.nedesigns.com/topic/29038/multirct-keep-your-ncso-and-custom-scenery-seperate/

' #MultiRCT is made by Oli414, please check the Readme for further information
' #Creating Object
 Set FS = CreateObject("Scripting.FileSystemObject")

' #Creating variables to store the message box answers
Dim answ1
Dim answ2
answ2 = 1
Dim answ
answ = 9

' #Creating a function to swap folder names + Setup
Function swapFolderNames(fileName)
	Dim fullpath1
	fullpath1 = FS.GetAbsolutePathName(fileName)
	Dim fullpath2
	fullpath2 = FS.GetAbsolutePathName(fileName & "XXX")
	Dim fullpath3
	fullpath3 = fullpath1 & " Folder 2"

	If (FS.FolderExists(fullpath1 & " Folder 1")) Then


		FS.MoveFolder fullpath1, fullpath2
		fullpath3 = fullpath1 & " Folder 1"
		FS.MoveFolder fullpath3, fullpath1
		fullpath3 = fullpath1 & " Folder 2"
		FS.MoveFolder fullpath2, fullpath3

	ElseIf(FS.FolderExists(fullpath1 & " Folder 2")) Then

		FS.MoveFolder fullpath1, fullpath2
		FS.MoveFolder fullpath3, fullpath1
		fullpath3 = fullpath1 & " Folder 1"
		FS.MoveFolder fullpath2, fullpath3
	Else
		' #Setup
		If answ = 9 then
		answ = MsgBox("Would you like to install MultiRCT? (This might take a few seconds)", 4, "MultiRCT Setup")
		End If

		If answ = 6 then
		Dim text1
		FS.CopyFolder fullpath1, fullpath3, false
		Else
		answ1 = MsgBox("[" & fileName & " Folder 1 or 2] was not found, please read the readme file (Problem Solving 1)", 32, "MultiRCT Setup")
		End If
	End If
End Function

' #Using the swap folder names function
Call swapFolderNames("ObjData")
Call swapFolderNames("Data")
Call swapFolderNames("Tracks")
Call swapFolderNames("Scenarios")
Call swapFolderNames("Saved Games")
Call swapFolderNames("Landscapes")
If answ = 6 then
	answ1 = MsgBox("MultiRCT has been installed, please read the Readme for further instructions", 0, "MultiRCT Setup")
ElseIf answ = 9 then
	answ1 = MsgBox("Data has been swapped", 0, "MultiRCT")
End If