'-------------------------------------------------------------------------------

Option Explicit
Option Compare Database

'-------------------------------------------------------------------------------
' Private members
'-------------------------------------------------------------------------------
Public Const C_ORA_SCHEMA = "my_schema"
Public Const C_ORA_PWD = "my_password"
Public Const C_ORA_DATABASE = "my_database"

Public Const C_ORA_LOGIN = C_ORA_SCHEMA & "/" & C_ORA_PWD & "@" & C_ORA_DATABASE

Private staticOraHelper             As OraHelper
Private staticFSO                   As FileSystemObject
Private staticRegExp                As RegExp


'-------------------------------------------------------------------------------
' Public methodes
'-------------------------------------------------------------------------------
Public Function OraHelper() As OraHelper
	If staticOraHelper Is Nothing Then
		Set staticOraHelper = New OraHelper
		
		staticOraHelper.oraLogin = C_ORA_LOGIN
		staticOraHelper.sqlScriptFolderPath = "ORA-Loader\TempSQL"
		staticOraHelper.spoolFolderPath = "ORA-Loader\LogFiles"
	End If
	Set OraHelper = staticOraHelper
End Function

Public Function FSO() As FileSystemObject
	If staticFSO Is Nothing Then Set staticFSO = New FileSystemObject
	Set FSO = staticFSO
End Function

Public Function RegExp() As RegExp
	If staticRegExp Is Nothing Then Set staticRegExp = New RegExp
	Set RegExp = staticRegExp
End Function