zooflow: msgbox

GUIs.ZooFlow/ApplicationEvents.vb

@@ -1,4 +1,5 @@
 Imports System.IO.Path
+Imports System.Runtime
 Imports DigitalData.Modules.Config
 Imports DigitalData.Modules.EDMI.API
 Imports DigitalData.Modules.Logging
@@ -74,6 +75,9 @@ Namespace My
             Logger = LogConfig.GetLogger()
             Logger.Debug("Starting ZooFlow...")
 
+            ProfileOptimization.SetProfileRoot("E:\Zooflow")
+            ProfileOptimization.StartProfile("Startup.Profile")
+
             If oConfigManager.Config.AppServerConfig <> String.Empty Then
                 Try
                     Dim oSplit() As String = oConfigManager.Config.AppServerConfig.ToString.Split(":"c)