Public Class SimpleEventHandler


   <DeclareEventHandler("onMainStart")>  _
   Public Sub MyEventHandlerFunction()
   
	Dim Data as String
	
	Data = "HIER DER KOMPLETTE PFAD DER GEWÜNSCHTEN DATENBANK"
	
  	Dim oSettings as new Eplan.EplApi.Base.Settings
        oSettings.SetStringSetting("USER.PartsManagementGui.Database", Data,0)   
        
     	 Dim command as CommandLineInterpreter = new CommandLineInterpreter
      
      
        Dim str as String = "partslist /TYPE:IMPORTTOSYSTEM /IMPORTFILE:X:\p8_import\import.txt /FORMAT:IXPamImportCSV /mode:2"
      	command.Execute(str)
      
   End Sub 
End Class