'
' Created by SharpDevelop.
' User: hartmut.tobiasch
' Date: 29.11.2017
' Time: 08:49
' 
' To change this template use Tools | Options | Coding | Edit Standard Headers.
'
Imports System.Net
Imports System.Management
Imports Microsoft.Win32
Imports System.Xml
Imports System.Text.RegularExpressions

Public Partial Class MainForm
	Dim mEigeneDateienVerzeichnisBackSlash As String
	Dim mEigeneDateienLaufwerk As String
	Dim mEigeneDateienVerzeichnisSlash As String
	Dim mEigeneDateienOhneLaufwerksbuchstabeBackSlash As String
	Dim mEigeneDateienOhneLaufwerksbuchstabeSlash As String
	Dim mEigeneDateienDoppelBackSlash As String
	Dim mEigeneDateienDoppelSlashOhneLaufwerk As String
	Dim mInstalVerzeichnisBackSlash As String  
	Dim mInstalLaufwerk As String
	Dim mInstalVerzeichnisSlash As String
	Dim mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash As String
	Dim mInstalVerzeichnisOhneLaufwerksbuchstabeSlash As String
	Dim mInstalVerzeichnisDoppelBackSlash As String
	Dim mInstallVerzeichnisDoppelBackSlashOhneLaufwerk As String
	Dim mDateiname As String
	Dim mMeineIP As String
	Dim mAppPath As String
	Dim mFileName As String
	Dim mMeinZaehler As Integer
	Dim mStartVersion As String
	Dim mDateiliste(50) As String
	Dim mStartProzessID As String
	Dim mDownloadURLListe(99) As String
	Dim mDownloadDateiListe(99) As String
	Dim mAktualisierungInstallierbareProgramme As String
	Dim mMessagetext As String
	Dim mVerwaltungsUpdate As String
	Dim mVerwaltungsUpdateInstallieren As Boolean
	Dim mVerwaltungVersion As String
	Dim mStartDownload As Integer
	Dim mNeueVerwaltungEXE As Boolean
	Dim mLetzteAkualisierungInstallierbareProgramme As String
	Dim mInstallUpdate As String
	Dim mMenueLaenge As Integer
	Dim mAllgemeinUpdate As String
	Dim mAllgemeinVersion As String
	Dim mAllgemeinNeu As Boolean
	Dim appData As String
	Dim mFehlertext As String
	Dim mFundstelle As Integer
	Dim mDoppelpunktStelle As Integer
	Dim mStellenZaehler As Integer
	Dim mRegKeyText As String
	Dim mPalettename As String
	Dim txt As String
	Dim mAutoUpdate As Boolean
	Dim mAutoUpdateVerwaltung As Boolean
	Dim mOnline As Boolean
	Dim mFlexibel As Boolean
	Dim mKeineNews As Boolean
	Dim nofkInfo As String
	Dim nofkInfoTitle As String
	Dim mStartUpdate As String
	Dim mFehlerzeile As String
	Dim mStacktrace As String
	Dim mText As String
	Dim mTextTeil1 As String
	Dim mTextTeil2 As String
	Dim mEreignisanzeigeProzessID As String	
	Dim mVariableninhalte As String
	Dim mFehlertextMsgBox As String
	Dim mVariableninhalteMsgBox As String
	Dim mMenueSichtbar As Boolean
	Dim mUSBLaufwerksname As String
	Dim mUSBSeriennummer As String
	Dim mUSBModell As String
	Dim PID As String
	Dim mSerialNumber As String
	Dim mPfad As String
	Dim webClient As New WebClient()
	Dim mAntwort As Integer
	Dim mNewsUpdate As String
	Dim mNewsVersion As String
	Dim mUpdateControlURL As String
	
	Public Sub New()
		' The Me.InitializeComponent call is required for Windows Forms designer support.
		Me.InitializeComponent()
		
		'
		' TODO : Add constructor code after InitializeComponents
		'
	End Sub
	
	Sub MainFormLoad(sender As Object, e As EventArgs)
		Dim currentDomain As AppDomain = AppDomain.CurrentDomain
		AddHandler currentDomain.UnhandledException, AddressOf MYExceptionHandler
		AddHandler Application.ThreadException, AddressOf MYThreadHandler
		System.Net.ServicePointManager.SecurityProtocol = System.Net.SecurityProtocolType.Tls12
		appData  = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)
		mMeineIP = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName).AddressList.GetValue(0).ToString
		mAppPath = Application.StartupPath
		If Rechts(mAppPath, 1) = "\" Then
			mInstalVerzeichnisBackSlash = mAppPath
		Else
			mInstalVerzeichnisBackSlash = mAppPath & "\"
		End If
		
		'mInstalVerzeichnisBackSlash = "D:\Temp\S2025TestMueller\"
		
		mInstalLaufwerk = Links(mInstalVerzeichnisBackSlash, 3)
		mMessagetext = ""
		If Len(mInstalVerzeichnisBackSlash) >  30 Then
			MessageBox.Show("Der Pfad, in dem Sie den den Informatikstick S25 abgelegt haben, ist zu lang!" & CHR(10) & "Bitte verwenden Sie einen Installationspfad der nicht länger als 30 Zeichen ist." & CHR(10) & CHR(10) & "Sinnvoll wäre z.B. das Verzeichnis S25 direkt ins Wurzelverzeichnis von " & mInstalLaufwerk & "zu legen - also z.B.    " & mInstalLaufwerk & "S25", _
				"Unzulässiger Installationspfad", _
				MessageBoxButtons.OK, _
				MessageBoxIcon.Exclamation, _
				MessageBoxDefaultButton.Button1)
			End
		Else
			If mInstalVerzeichnisBackSlash.IndexOf(" ") > 0 Then
				clsTopMostMessageBox.Show("Der Pfad, in dem Sie den den Informatikstick S25 abgelegt haben, enthält Leerzeichen!" & CHR(10)  &  "Das ist nicht zulässig!"& CHR(10) & CHR(10) & "Bitte entfernen Sie alle Leerzeichen aus Ihrem  Installationspfad.", _
					"Unzulässiger Installationspfad", _
					MessageBoxButtons.OK, _
					MessageBoxIcon.Exclamation)
				End
			Else
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\PStart\Settings\UpdateControlURL.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mUpdateControlURL = IO.File.ReadAllText(mFileName)
					mUpdateControlURL = mUpdateControlURL.Trim
				End If	
				
				mAutoUpdate = True
				mFileName = mInstalVerzeichnisBackSlash & "Programme\PStart\Settings\Startversion.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mStartVersion = IO.File.ReadAllText(mFileName)
					mStartVersion = mStartVersion.Trim
					mFundstelle = mStartVersion.IndexOf("_")
					If mFundstelle = - 1 Then
						If mStartVersion.Substring(0,1) = "9" Then
							mStartVersion = mStartVersion.Substring(1, mStartVersion.Length - 1)
							mAutoUpdate = False
						Else
							mAutoUpdate = True
						End If
						Dim objWriter As New System.IO.StreamWriter(mFileName)
						If mAutoUpdate = True then
							objWriter.WriteLine("_" & mStartVersion.Trim)
						Else
							objWriter.WriteLine("n_" & mStartVersion.Trim)
						End If		
						objWriter.Close()
					End If
				Else
					mStartVersion = "nof_20000000"
				End If	
				nofkInfo = ""
				mStartVersion = IO.File.ReadAllText(mFileName)
				mStartVersion = mStartVersion.Trim
				mFundstelle = mStartVersion.IndexOf("_")
				If mStartVersion.Substring(0,mFundstelle).IndexOf("n") > - 1 Then
					mAutoUpdate = False
					nofkInfo = nofkInfo & "n"
				Else
					mAutoUpdate = True
				End If
				If mStartVersion.Substring(0,mFundstelle).IndexOf("o") > - 1 Then
					mOnline = False		
					nofkInfo = nofkInfo & "o"
				Else
					mOnline = True
				End If
				If mStartVersion.Substring(0,mFundstelle).IndexOf("f") > - 1 Then
					mFlexibel = False
					nofkInfo = nofkInfo & "f"
				Else
					mFlexibel = True
				End If
				If mStartVersion.Substring(0,mFundstelle).IndexOf("k") > - 1 Then
					mKeineNews = True
					nofkInfo = nofkInfo & "k"
				Else
					mKeineNews = False
				End If
				If nofkInfo.Length > 0 Then
					nofkInfoTitle = "( " & nofkInfo & " )"
				End If
				mStartVersion = mStartVersion.Substring(mFundstelle + 1, mStartVersion.Length - (mFundstelle + 1))
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\PStart\START.xml"
				If System.IO.File.Exists(mFileName) = True Then
					mText = IO.File.ReadAllText(mFileName)
					If mText.Trim.Length > 0 Then
						mText = Replace(mText, mText.Substring(mText.IndexOf("<title>") + 7, mText.IndexOf("</title>") - mText.IndexOf("<title>") - 7), "Informatikstick  "  & mStartVersion & "  " & nofkInfoTitle & "  IP: " & mMeineIP)
						IO.File.WriteAllText(mFileName, mText)
					End If
				End If
				mFileName = mInstalVerzeichnisBackSlash & "Programme\PStart\Settings\VerwaltungVersion.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mVerwaltungVersion = IO.File.ReadAllText(mFileName)
					mVerwaltungVersion = mVerwaltungVersion.Trim
					mFundstelle = mVerwaltungVersion.IndexOf("_")
					If mFundstelle = - 1 Then
						If mVerwaltungVersion.Substring(0,1) = "9" Then
							mVerwaltungVersion = mVerwaltungVersion.Substring(1, mVerwaltungVersion.Length - 1)
							Dim objWriter As New System.IO.StreamWriter(mFileName)
							objWriter.WriteLine("n_" & mVerwaltungVersion.Trim)
							objWriter.Close()
						Else
							If nofkInfo.IndexOf("n") > -1 Then
								mAutoUpdate = False
							Else
								mAutoUpdate = True
							End If
						End If
					Else
						If mVerwaltungVersion.IndexOf("n") > -1 Then
							mVerwaltungsUpdateInstallieren = False
						Else
							mVerwaltungsUpdateInstallieren = True
						End If
						mVerwaltungVersion = mVerwaltungVersion.Substring(mFundstelle + 1, mVerwaltungVersion.Length - (mFundstelle + 1))
						If nofkInfo.IndexOf("n") > -1 Then
							mAutoUpdate = False
						Else
							mAutoUpdate = True
						End If
					End If
				End If			
				
				If TestWebConnection() = 1 Then
					mNewsUpdate = ""
					mNewsVersion = ""
					Try
						mNewsUpdate = webClient.DownloadString(mUpdateControlURL & "/newsupdate.txt")
					Catch ex As Exception
					End Try
					mFileName = mInstalVerzeichnisBackSlash & "Programme\PStart\Settings\Newsversion.txt"
					If System.IO.File.Exists(mFileName) = True Then
						mNewsVersion = IO.File.ReadAllText(mFileName)
						mNewsVersion = mNewsVersion.Trim
					End If
					If mKeineNews = False Then
						If mNewsUpdate > mNewsVersion Or mNewsUpdate.Length = 0 Then
							If mNewsVersion.Length > 0 Then
								mAntwort =	clsTopMostMessageBox.Show("Es gibt neue und wichtige Informationen" & CHR(10) & CHR(10) & CHR(10) & "Wollen Sie die Webseite der Digitalen Schultasche Baden-Württemberg besuchen?", _
									"News - News - News", _
									MessageBoxButtons.YesNo, _
									MessageBoxIcon.Question)
								If mAntwort = 6 Then
									Process.Start("https://schultasche-bw.de/neuigkeiten.html")
									Dim objWriter As New System.IO.StreamWriter(mFileName)
									objWriter.WriteLine(mNewsUpdate.Trim)
									objWriter.Close()	
								End If
							Else
								Dim objWriter As New System.IO.StreamWriter(mFileName)
								objWriter.WriteLine("20000000")
								objWriter.Close()	
							End If
						End If	
					End If
				End If	
				
				mInstalVerzeichnisSlash = Replace(mInstalVerzeichnisBackSlash, "\", "/")
				mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash = Rechts(mInstalVerzeichnisBackSlash, Len(mInstalVerzeichnisBackSlash) - 2)
				mInstalVerzeichnisOhneLaufwerksbuchstabeSlash = Replace(mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash, "\", "/")
				mInstalVerzeichnisDoppelBackSlash = Replace(mInstalVerzeichnisBackSlash, "\", "\\")
				mInstalVerzeichnisDoppelBackSlash = Replace(mInstalVerzeichnisDoppelBackSlash, ":", "\:")
				mInstallVerzeichnisDoppelBackSlashOhneLaufwerk = Rechts(mInstalVerzeichnisDoppelBackSlash, Len(mInstalVerzeichnisDoppelBackSlash) - 3)
				mEigeneDateienVerzeichnisBackSlash = IO.File.ReadAllText(mInstalVerzeichnisBackSlash & "Programme\PStart\Settings\AktuellesEigeneDateienVerzeichnis.txt")
				If System.IO.Directory.Exists(mEigeneDateienVerzeichnisBackSlash) = False Then
					clsTopMostMessageBox.Show("Auf das bisherige 'EigeneDateien' - Verzeichnis " & mEigeneDateienVerzeichnisBackSlash & " kann derzeit nicht zugegriffen werden! " &  CHR(10) & "Mögliche Ursache könnte sein: fehlendes Netzlaufwerk oder fehlender externer Datenträger !?" &  CHR(10)&  CHR(10) & "Deshalb wird der Standard-Pfad " & mInstalVerzeichnisBackSlash & "EigeneDateien verwendet !" , "Achtung", _
						MessageBoxButtons.OK, _
						MessageBoxIcon.Exclamation)
					mEigeneDateienVerzeichnisBackSlash =  mInstalVerzeichnisBackSlash & "EigeneDateien"
					IO.File.WriteAllText(mInstalVerzeichnisBackSlash & "Programme\PStart\Settings\aktuellesEigeneDateienVerzeichnis.txt", mEigeneDateienVerzeichnisBackSlash)
				End If
				mEigeneDateienLaufwerk = Links(mEigeneDateienVerzeichnisBackSlash, 3)
				mEigeneDateienOhneLaufwerksbuchstabeBackSlash = Rechts(mEigeneDateienVerzeichnisBackSlash, Len(mEigeneDateienVerzeichnisBackSlash) - 3)
				mEigeneDateienVerzeichnisSlash = Replace(mEigeneDateienVerzeichnisBackSlash, "\", "/")
				mEigeneDateienOhneLaufwerksbuchstabeSlash = Replace(mEigeneDateienOhneLaufwerksbuchstabeBackSlash , "\", "/")
				mEigeneDateienDoppelBackSlash = Replace(mEigeneDateienVerzeichnisBackSlash, "\", "\\")
				mEigeneDateienDoppelBackSlash = Replace(mEigeneDateienDoppelBackSlash, ":", "\:")
				mEigeneDateienDoppelSlashOhneLaufwerk = Rechts(mEigeneDateienDoppelBackSlash, Len(mEigeneDateienDoppelBackSlash) - 3)
				mStartUpdate = ""
				If mOnline = True Then
					mFileName = mInstalVerzeichnisBackSlash & "Programme\PStart\Settings\AllgemeinVersion.txt"
					If System.IO.File.Exists(mFileName) = True Then
						mAllgemeinVersion = IO.File.ReadAllText(mFileName)
						mAllgemeinVersion = mAllgemeinVersion.Trim
					Else
						mAllgemeinVersion = "20000000"
					End If	
				End If
				
				Me.Text = "Informatikstick Version " & mStartVersion
				If TestWebConnection() = 1 And mOnline = True Then
					mFileName = mInstalVerzeichnisBackSlash & "Programme\PStart\Settings\Test.txt"
					If System.IO.File.Exists(mFileName) = True Then
						mDownloadURLListe(0) = mUpdateControlURL & "/test/startupdate.txt"
						mDownloadURLListe(1) = mUpdateControlURL & "/test/allgemeinupdate.txt"
						mDownloadURLListe(2) = mUpdateControlURL & "/test/allgemein.zip"
						'mDownloadURLListe(3) = mUpdateControlURL & "/test/verwaltungupdate.txt"
						mDownloadURLListe(3) = mUpdateControlURL & "/test/start_s2025.php"
						mDownloadURLListe(4) = mUpdateControlURL & "/test/verwaltung.zip"
						mDownloadURLListe(5) = mUpdateControlURL & "/test/installupdate.txt"
					Else
						mDownloadURLListe(0) = mUpdateControlURL & "/startupdate.txt"
						mDownloadURLListe(1) = mUpdateControlURL & "/allgemeinupdate.txt"
						mDownloadURLListe(2) = mUpdateControlURL & "/allgemein.zip"
						'mDownloadURLListe(3) = mUpdateControlURL & "/verwaltungupdate.txt"
						mDownloadURLListe(3) = mUpdateControlURL & "/start_s2025.php"
						mDownloadURLListe(4) = mUpdateControlURL & "/verwaltung.zip"
						mDownloadURLListe(5) = mUpdateControlURL & "/installupdate.txt"
					End If
					mDownloadDateiListe(0) = "startupdate.txt"
					mDownloadDateiListe(1) = "allgemeinupdate.txt"
					mDownloadDateiListe(2) = "allgemein.zip"
					mDownloadDateiListe(3) = "verwaltungupdate.txt"
					mDownloadDateiListe(4) = "verwaltung.zip"
					mDownloadDateiListe(5) = "installupdate.txt"
					mStartDownload = -1
					mAllgemeinNeu = False
					StartNextDownload()
				Else
					If mFlexibel = True Then
						Einstellungen()	
					End If
					
					mFileName = mInstalVerzeichnisBackSlash & "Programme\PStart\Settings\StartEigen.txt"
					If System.IO.File.Exists(mFileName) = True Then
						mFileName = mInstalVerzeichnisBackSlash & "Programme\PStart\StartEigen.xml"
						If System.IO.File.Exists(mFileName) = True Then
							txt = IO.File.ReadAllText(mFileName)
							mFundstelle = txt.IndexOf("   Eigenes Men&#xFC;") 
							If mFundstelle = -1 Then
								mFundstelle = txt.IndexOf("<title>")
								mTextTeil1 = txt.Substring(0,mFundstelle)
								mTextTeil2 = txt.Substring(mFundstelle,txt.Length - mTextTeil1.Length)
								mFundstelle = mTextTeil2.IndexOf("</panel>")
								mTextTeil2 = mTextTeil2.Substring(mFundstelle,mTextTeil2.Length - mFundstelle)
								txt = mTextTeil1 & "<title>Informatikstick  "  & mStartVersion.trim & "  IP: " & mMeineIP & "   Eigenes Men&#xFC;</title>" & mTextTeil2		
								IO.File.WriteAllText(mFileName,txt)
							End If		
						End If
						
						mStartProzessID = Shell (mInstalVerzeichnisBackSlash & "Programme\PStart\Start.exe StartEigen").ToString
					Else
						mStartProzessID = Shell (mInstalVerzeichnisBackSlash & "Programme\PStart\Start.exe").ToString
					End If
					
					mFileName  =  mInstalVerzeichnisBackSlash & "Programme\PStart\Settings\StartProzessID.txt"
					Dim objWriter As New System.IO.StreamWriter(mFileName)
					objWriter.WriteLine(mStartProzessID.Trim)
					objWriter.Close()
					End
				End If
			End If
		End If
	End Sub
	
	Sub prznofkInfoUpdate()
		nofkInfo = ""
		If mAutoUpdate = False Then
			nofkInfo = nofkInfo & "n"
		End If
		If mOnline = False Then
			nofkInfo = nofkInfo & "o"
		End If
		If mFlexibel = False Then
			nofkInfo = nofkInfo & "f"
		End If
		If mKeineNews = True Then
			nofkInfo = nofkInfo & "k"
		End If
		nofkInfo = nofkInfo & "_"
	End Sub
	
	Public Function Rechts(ByVal sText As String, _
		ByVal nLen As Integer) As String
		
		If nLen > sText.Length Then nLen = sText.Length
		Return (sText.Substring(sText.Length - nLen))
	End Function
	
	Public Function Links(ByVal sText As String, _
		ByVal nLen As Integer) As String
		
		If nLen > sText.Length Then nLen = sText.Length
		Return (sText.Substring(0, nLen))
	End Function
	
	Public Function OpenEmail(ByVal EmailAddress As String, Optional ByVal Subject As String = "",  Optional ByVal Body As String = "")  As Boolean
		Dim bAns As Boolean = True
		Dim sParams As String
		sParams = EmailAddress
		If LCase(Strings.Left(sParams, 7)) <> "mailto:" Then    sParams = "mailto:" & sParams
		If Subject <> "" Then sParams = sParams &   "?subject=" & Subject
		If Body <> "" Then
			sParams = sParams & IIf(Subject = "", "?", "&")
			sParams = sParams & "body=" & Body
		End If
		Try
			System.Diagnostics.Process.Start(sParams)
		Catch
			bAns = False
		End Try
		Return bAns
	End Function
	
	Public Function CorrectMailSyntax(strText As String) As String
		strText = Replace(strText, "%", "%25")
		strText = Replace(strText, vbCr, "%0A")
		strText = Replace(strText, vbLf, "%0A")
		strText = Replace(strText, vbCrLf, "%0A")
		strText = Replace(strText, " ", "%20")
		strText = Replace(strText, "!", "%21")
		strText = Replace(strText, "#", "%23")
		strText = Replace(strText, "*", "%2A")
		strText = Replace(strText, "/", "%2F")
		strText = Replace(strText, "?", "%3F")
		strText = Replace(strText, "Ä", "%C4")
		strText = Replace(strText, "Ö", "%D6")
		strText = Replace(strText, "Ü", "%DC")
		strText = Replace(strText, "ß", "%DF")
		strText = Replace(strText, "ä", "%E4")
		strText = Replace(strText, "ö", "%F6")
		strText = Replace(strText, "ü", "%FC")
		CorrectMailSyntax = strText
	End Function
	
	Public Sub przUSBInfo
		For Each Drive As IO.DriveInfo In IO.DriveInfo.GetDrives
			If Drive.DriveType = IO.DriveType.Removable Then 
				If Drive.Name = mInstalLaufwerk
					GetSerialNumber(Drive.Name)
					mUSBLaufwerksname = "Laufwerksname: " & Drive.VolumeLabel & "  ( "  & Drive.Name & " )"
					mUSBSeriennummer = "SerialID: " + mSerialNumber
					Dim mos As ManagementObjectSearcher = New ManagementObjectSearcher("SELECT * FROM Win32_diskdrive where interfacetype = 'USB'")
					For Each mo As ManagementObject In mos.Get()
							For Each pd1 As PropertyData In mo.Properties
								If pd1.Value IsNot Nothing Then
									PID = Convert.ToString(pd1.Value)
									If Convert.ToString(pd1.Value) = mSerialNumber Then
										For Each pd2 As PropertyData In mo.Properties
											If pd2.Value IsNot Nothing Then
												PID = Convert.ToString(pd2.Value)
												If pd2.Name = "Model"  Then
													mUSBModell = PID
												End If
											End If
										Next
									End If
								End If
							Next
						Next
					End If
				End If
			Next
		End Sub
		
		Public Sub GetSerialNumber(ByVal DriveLetter As String) 
			Dim mWin32LocalDisk, mWin32LDiskPartition, mWin32LDiskDrive As ManagementObject
			Try
				mText = ""
				mWin32LocalDisk = New ManagementObject("Win32_LogicalDisk.DeviceID='" & DriveLetter.TrimEnd("\"c) & "'")
				For Each mWin32LDiskPartition In mWin32LocalDisk.GetRelated("Win32_DiskPartition")
					For Each mWin32LDiskDrive In mWin32LDiskPartition.GetRelated("Win32_DiskDrive")
						Dim wmi As New ManagementClass("Win32_DiskDrive")
						For Each obj As ManagementObject In wmi.GetInstances
							If obj("DeviceID").ToString = mWin32LDiskDrive("DeviceID").ToString Then
								mtext = mWin32LDiskDrive("SerialNumber").ToString
								If mText.Length > 0 Then
									mSerialNumber = mText
								End If
							End If
						Next
					Next
				Next
			Catch ex As Exception
			End Try
		End Sub
		
		Private Sub MYExceptionHandler(ByVal sender As Object, ByVal e As UnhandledExceptionEventArgs)
			Dim EX As Exception = e.ExceptionObject 
			mStacktrace = EX.StackTrace
			mFundstelle = mStacktrace.IndexOf("MainForm.vb:Zeile ") + 18
			mStacktrace = mStacktrace.Substring(mFundstelle, mStacktrace.Length-mFundstelle)
			mFundstelle = mStacktrace.IndexOf(".")
			mFehlerzeile = "Zeile: " & mStacktrace.Substring(0, mFundstelle) & vbCrLf
			mFehlertext = EX.Message & vbCrLf
			przFehlerMeldungUndMail()
		End Sub
		
		Private Sub MYThreadHandler(ByVal sender As Object, ByVal e As Threading.ThreadExceptionEventArgs)
			Dim EX As Exception = e.Exception
			mStacktrace = EX.StackTrace
			mFundstelle = mStacktrace.IndexOf("MainForm.vb:Zeile ") + 18
			mStacktrace = mStacktrace.Substring(mFundstelle, mStacktrace.Length-mFundstelle)
			mFundstelle = mStacktrace.IndexOf(".")
			mFehlerzeile = "Zeile: " & mStacktrace.Substring(0, mFundstelle) & vbCrLf
			mFehlertext = e.Exception.Message & vbCrLf
			przFehlerMeldungUndMail()
		End Sub	
		
		Private Sub przFehlerMeldungUndMail
			mFehlertext = mFehlertext & "Installierte Programme:" & vbCrLf
			Try
				Dim sPath As String
				sPath = mInstalVerzeichnisBackSlash & "Programme\"
				Dim oDir As New System.IO.DirectoryInfo(sPath)
				Dim oDirs As System.IO.DirectoryInfo() = oDir.GetDirectories
				mFehlertextMsgBox = mFehlertext
				For Each oDir In oDirs
					mFehlertext = mFehlertext & ". " & oDir.Name & vbCrLf
					mFehlertextMsgBox = mFehlertextMsgBox & ". " & oDir.Name & " ** "
				Next
			Catch myEx As Exception
				mFehlertext = mFehlertext & "können nicht angezeigt werden" & vbCrLf
				mFehlertextMsgBox = mFehlertextMsgBox & "können nicht angezeigt werden"
			End Try
			mFehlertext = mFehlertext & vbCrLf & "Variablenwerte: " & vbCrLf
			mFehlertextMsgBox = mFehlertextMsgBox & vbCrLf & "Variablenwerte: " & vbCrLf
			mVariableninhalte = "mEigeneDateienVerzeichnisBackSlash: " & mEigeneDateienVerzeichnisBackSlash & vbCrLf
			mVariableninhalte = mVariableninhalte & "mEigeneDateienLaufwerk: " & mEigeneDateienLaufwerk & vbCrLf  
			mVariableninhalte = mVariableninhalte & "mEigeneDateienVerzeichnisSlash: " & mEigeneDateienVerzeichnisSlash & vbCrLf  
			mVariableninhalte = mVariableninhalte & "mEigeneDateienOhneLaufwerksbuchstabeBackSlash : " & mEigeneDateienOhneLaufwerksbuchstabeBackSlash & vbCrLf  
			mVariableninhalte = mVariableninhalte & "mEigeneDateienOhneLaufwerksbuchstabeSlash: " & mEigeneDateienOhneLaufwerksbuchstabeSlash & vbCrLf 
			mVariableninhalte = mVariableninhalte & "mEigeneDateienDoppelBackSlash: " & mEigeneDateienDoppelBackSlash & vbCrLf  
			mVariableninhalte = mVariableninhalte & "mEigeneDateienDoppelSlashOhneLaufwerk: " & mEigeneDateienDoppelSlashOhneLaufwerk & vbCrLf 
			mVariableninhalte = mVariableninhalte & "mInstalVerzeichnisBackSlash: " & mInstalVerzeichnisBackSlash & vbCrLf 
			mVariableninhalte = mVariableninhalte & "mInstalLaufwerk: " & mInstalLaufwerk & vbCrLf  
			mVariableninhalte = mVariableninhalte & "mInstalVerzeichnisSlash: " & mInstalVerzeichnisSlash & vbCrLf
			mVariableninhalte = mVariableninhalte & "mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash: " & mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash & vbCrLf  
			mVariableninhalte = mVariableninhalte & "mInstalVerzeichnisOhneLaufwerksbuchstabeSlash: " & mInstalVerzeichnisOhneLaufwerksbuchstabeSlash & vbCrLf  
			mVariableninhalte = mVariableninhalte & "mInstalVerzeichnisDoppelBackSlash: " & mInstalVerzeichnisDoppelBackSlash & vbCrLf 
			mVariableninhalte = mVariableninhalte & "mInstallVerzeichnisDoppelBackSlashOhneLaufwerk: " & mInstallVerzeichnisDoppelBackSlashOhneLaufwerk & vbCrLf  
			mVariableninhalte = mVariableninhalte & "mDateiname: " & mDateiname & vbCrLf  
			mVariableninhalte = mVariableninhalte & "mMeineIP: " & mMeineIP & vbCrLf  
			mVariableninhalte = mVariableninhalte & "mAppPath: " & mAppPath & vbCrLf
			mVariableninhalte = mVariableninhalte & "mFileName: " & mFileName & vbCrLf  
			mVariableninhalte = mVariableninhalte & "mMeinZaehler: " & mMeinZaehler & vbCrLf  
			mVariableninhalte = mVariableninhalte & "mStartVersion: " & mStartVersion & vbCrLf 
			For Me.mMeinZaehler  = 0 To 50
				If mDateiliste(Me.mMeinZaehler) IsNot vbNullString Then
					mVariableninhalte = mVariableninhalte & "mDateiliste" & Me.mMeinZaehler &": " & mDateiliste(Me.mMeinZaehler) & vbCrLf 
				End If
			Next
			mVariableninhalte = mVariableninhalte & "mStartProzessID: " & mStartProzessID & vbCrLf
			For Me.mMeinZaehler  = 0 To 99
				If mDownloadURLListe(Me.mMeinZaehler) IsNot vbNullString Then
					mVariableninhalte = mVariableninhalte & "mDownloadURLListe" & Me.mMeinZaehler &": " & mDownloadURLListe(Me.mMeinZaehler) & vbCrLf 
				End If
			Next
			For Me.mMeinZaehler  = 0 To 99
				If mDownloadDateiListe(Me.mMeinZaehler) IsNot vbNullString Then
					mVariableninhalte = mVariableninhalte & "mDownloadDateiListe" & Me.mMeinZaehler &": " & mDownloadDateiListe(Me.mMeinZaehler) & vbCrLf 
				End If
			Next
			mVariableninhalte = mVariableninhalte & "mAktualisierungInstallierbareProgramme: " & mAktualisierungInstallierbareProgramme & vbCrLf
			mVariableninhalte = mVariableninhalte & "mMessagetext: " & mMessagetext & vbCrLf
			mVariableninhalte = mVariableninhalte & "mVerwaltungsUpdate: " & mVerwaltungsUpdate & vbCrLf		
			mVariableninhalte = mVariableninhalte & "mVerwaltungVersion: " & mVerwaltungVersion & vbCrLf
			mVariableninhalte = mVariableninhalte & "mStartDownload: " & mStartDownload & vbCrLf
			mVariableninhalte = mVariableninhalte & "mNeueVerwaltungEXE: " & mNeueVerwaltungEXE & vbCrLf
			mVariableninhalte = mVariableninhalte & "mLetzteAkualisierungInstallierbareProgramme: " & mLetzteAkualisierungInstallierbareProgramme & vbCrLf
			mVariableninhalte = mVariableninhalte & "mInstallUpdate: " & mInstallUpdate & vbCrLf
			mVariableninhalte = mVariableninhalte & "mMenueLaenge: " & mMenueLaenge & vbCrLf
			mVariableninhalte = mVariableninhalte & "mAllgemeinUpdate: " & mAllgemeinUpdate & vbCrLf
			mVariableninhalte = mVariableninhalte & "mAllgemeinVersion: " & mAllgemeinVersion & vbCrLf
			mVariableninhalte = mVariableninhalte & "mAllgemeinNeu: " & mAllgemeinNeu & vbCrLf
			mVariableninhalte = mVariableninhalte & "appData: " & appData & vbCrLf
			mVariableninhalte = mVariableninhalte & "mFundstelle: " & mFundstelle & vbCrLf
			mVariableninhalte = mVariableninhalte & "mDoppelpunktStelle: " & mDoppelpunktStelle & vbCrLf
			mVariableninhalte = mVariableninhalte & "mStellenZaehler: " & mStellenZaehler & vbCrLf
			mVariableninhalte = mVariableninhalte & "txt: " & txt & vbCrLf  
			mVariableninhalte = mVariableninhalte & "mAutoUpdate: " & mAutoUpdate & vbCrLf  
			mVariableninhalte = mVariableninhalte & "nofkInfo: " & nofkInfo & vbCrLf  
			mVariableninhalte = mVariableninhalte & "mStartUpdate: " & mStartUpdate & vbCrLf
			mVariableninhalte = mVariableninhalte & "mEreignisanzeigeProzessID: " & mEreignisanzeigeProzessID & vbCrLf
			przUSBInfo()
			mVariableninhalte = mVariableninhalte & "mUSBLaufwerksname: " & mUSBLaufwerksname & vbCrLf
			mVariableninhalte = mVariableninhalte & "mUSBSeriennummer: " & mUSBSeriennummer & vbCrLf
			mVariableninhalte = mVariableninhalte & "mUSBModell: " & mUSBModell & vbCrLf
			mVariableninhalteMsgBox = mVariableninhalte.Replace(vbCrLf, " ** ")
			If mVariableninhalteMsgBox.Length > 10000 Then
				clsTopMostMessageBox.Show("Senden Sie bitte diese Fehlermeldung per eMail an " & vbCrLf & vbCrLf & "support@schultasche-bw.de" & vbCrLf  & vbCrLf & "gerne auch ergänzt durch Ihre eigene Fehlerbeschreibung!"  & vbCrLf & vbCrLf & mFehlerzeile & vbCrLf & mFehlertextMsgBox & mVariableninhalteMsgBox.Substring(0,10000), "Programm START " & mStartVersion & " Abbruch - Fehlermeldung", MessageBoxButtons.OK, MessageBoxIcon.Error)
			Else
				clsTopMostMessageBox.Show("Senden Sie bitte diese Fehlermeldung per eMail an " & vbCrLf & vbCrLf & "support@schultasche-bw.de" & vbCrLf & vbCrLf & "gerne auch ergänzt durch Ihre eigene Fehlerbeschreibung!"  & vbCrLf & vbCrLf & mFehlerzeile & vbCrLf & mFehlertextMsgBox & mVariableninhalteMsgBox, "Programm START " & mStartVersion & " Abbruch - Fehlermeldung", MessageBoxButtons.OK, MessageBoxIcon.Error)
			End If
			OpenEmail("support@schultasche-bw.de", "S2025 Start Version " & mStartVersion & " /  Verwaltung Version " & mVerwaltungVersion, CorrectMailSyntax("Hallo Support-Team," & vbCrLf & "bei mir ist beim Programm START die folgende Fehlermeldung erschienen:" & vbCrLf &  mFehlerzeile & mFehlertext & mVariableninhalte))
			End
		End Sub
		
		Sub Einstellungen()
			mMenueLaenge = 320
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\PStart\START.xml"
			If System.IO.File.Exists(mFileName) = false Then
				Dim writer As New XmlTextWriter(mFileName, System.Text.Encoding.UTF8)
				writer.Close()
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\PStart\START.xml"
			If System.IO.File.Exists(mFileName) = True Then
				Dim objWriter As New System.IO.StreamWriter(mFileName)
				objWriter.WriteLine( "<start>")
				If mStartUpdate.Length > 0 Then
					mMenueLaenge = mMenueLaenge + 30
					objWriter.WriteLine( "    <files>")
					objWriter.WriteLine( "          <file name="""">")
					objWriter.WriteLine( "              <icon>..\..\Icon\leer.ico</icon>")
					objWriter.WriteLine( "             </file>")
					objWriter.WriteLine( "          <file name="""">")
					objWriter.WriteLine( "              <icon>..\..\Icon\leer.ico</icon>")
					objWriter.WriteLine( "             </file>")
					objWriter.WriteLine( "    </files>")
				End If
				objWriter.WriteLine( "    <files>")
				objWriter.WriteLine( "         <file name=""Informatik-Stick Verwaltung"">")
				objWriter.WriteLine( "             <path>..\PStart\Verwaltung.exe</path>")
				objWriter.WriteLine( "              <icon>..\..\Icon\Verwaltung.ico</icon>")
				objWriter.WriteLine( "             <runcount>0</runcount>")
				objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
				objWriter.WriteLine( "             </file>")
				objWriter.WriteLine( "         <file name=""EigeneDateien"">")
				objWriter.WriteLine( "             <path>" & mEigeneDateienVerzeichnisBackSlash & "</path>")
				objWriter.WriteLine( "             <runcount>0</runcount>")
				objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
				objWriter.WriteLine( "         </file>")
				objWriter.WriteLine( "         <file name=""Hilfe_und_Dokumentation"">")
				objWriter.WriteLine( "             <path>..\..\Hilfe_und_Dokumentation</path>")
				objWriter.WriteLine( "             <runcount>0</runcount>")
				objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
				objWriter.WriteLine( "         </file>")
				objWriter.WriteLine( "         <file name=""Datenbanktreiber"">")
				objWriter.WriteLine( "             <path>..\Datenbanktreiber</path>")
				objWriter.WriteLine( "             <runcount>0</runcount>")
				objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
				objWriter.WriteLine( "         </file>")
				
				mMenueLaenge = mMenueLaenge + 90
				objWriter.WriteLine( "         <files name=""Laufzeitkomponenten"">")
				objWriter.WriteLine( "             <autoexpand>True</autoexpand>")
				objWriter.WriteLine( "             <file name=""Microsoft Visual C++ 2015 Redistributable (x86) Setup"">")
				objWriter.WriteLine( "                 <path>..\Laufzeitkomponenten\vc_redist.x86.exe</path>")
				objWriter.WriteLine( "                 <icon>..\..\Icon\vcredist2008_x86.ico</icon>")
				objWriter.WriteLine( "             <runcount>0</runcount>")
				objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
				objWriter.WriteLine( "             </file>")
				objWriter.WriteLine( "             <file name=""Microsoft Visual C++ 2015 Redistributable (x64) Setup"">")
				objWriter.WriteLine( "                 <path>..\Laufzeitkomponenten\vc_redist.x64.exe</path>")
				objWriter.WriteLine( "                 <icon>..\..\Icon\vcredist2008_x86.ico</icon>")
				objWriter.WriteLine( "             <runcount>0</runcount>")
				objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
				objWriter.WriteLine( "             </file>")
				objWriter.WriteLine( "             <file name=""Microsoft .NET Framework 4.5 Setup"">")
				objWriter.WriteLine( "                 <path>..\Laufzeitkomponenten\dotNetFx45_Full_setup.exe</path>")
				objWriter.WriteLine( "                 <icon>..\..\Icon\dotNetFramework.ico</icon>")
				objWriter.WriteLine( "             <runcount>0</runcount>")
				objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
				objWriter.WriteLine( "             </file>")
				objWriter.WriteLine( "         </files>")
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Sharp_4.4.2\installiert.txt"
				If System.IO.File.Exists(mFileName) = True Then
					
					mMenueLaenge = mMenueLaenge + 90
					objWriter.WriteLine( "         <files name=""Visual Basic Programmierung"">")
					objWriter.WriteLine( "             <autoexpand>True</autoexpand>")
					objWriter.WriteLine( "             <file name=""SharpDevelop 4.4.2"">")
					objWriter.WriteLine( "                 <path>..\Sharp_4.4.2\bin\SharpDevelop.exe</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\SharpDevelop.ico</icon>")
					objWriter.WriteLine( "             <runcount>0</runcount>")
					objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
					objWriter.WriteLine( "             <file name=""VB-Projekte kopieren und umbenennen"">")
					objWriter.WriteLine( "                 <path>..\Sharp_4.4.2\VB_Projekte_kopieren_und_umbenennen.exe</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\VBProjektManager.ico</icon>")
					objWriter.WriteLine( "             <runcount>0</runcount>")
					objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
					objWriter.WriteLine( "         </files>")
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\SharpDevelop_5.1.0.5134\installiert.txt"
				If System.IO.File.Exists(mFileName) = True Then
					
					mMenueLaenge = mMenueLaenge + 90
					objWriter.WriteLine( "         <files name=""Visual Basic Programmierung"">")
					objWriter.WriteLine( "             <autoexpand>True</autoexpand>")
					objWriter.WriteLine( "             <file name=""SharpDevelop 5.1.0.5134"">")
					objWriter.WriteLine( "                 <path>..\SharpDevelop_5.1.0.5134\bin\SharpDevelop.exe</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\SharpDevelop.ico</icon>")
					objWriter.WriteLine( "             <runcount>0</runcount>")
					objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
					objWriter.WriteLine( "             <file name=""VB-Projekte kopieren und umbenennen"">")
					objWriter.WriteLine( "                 <path>..\SharpDevelop_5.1.0.5134\VB_Projekte_kopieren_und_umbenennen.exe</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\VBProjektManager.ico</icon>")
					objWriter.WriteLine( "             <runcount>0</runcount>")
					objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
					objWriter.WriteLine( "         </files>")
				End If
				
				If System.IO.File.Exists(mInstalVerzeichnisBackSlash & "Programme\Thonny_3.1.2\installiert.txt") = True Or System.IO.File.Exists(mInstalVerzeichnisBackSlash & "Programme\Thonny_3.2.3\installiert.txt") = True  Or System.IO.File.Exists(mInstalVerzeichnisBackSlash & "Programme\PythonKara\installiert.txt") = True Or System.IO.File.Exists(mInstalVerzeichnisBackSlash & "Programme\JupyterLabPortable_3.1.0\installiert.txt") = True  Or System.IO.File.Exists(mInstalVerzeichnisBackSlash & "Programme\VSCode_1.104.2\installiert.txt") = True Then
					objWriter.WriteLine( "         <files name=""Python Programmierung"">")
					objWriter.WriteLine( "             <autoexpand>True</autoexpand>")
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\Thonny_3.1.2\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						mMenueLaenge = mMenueLaenge + 60
						objWriter.WriteLine( "             <file name=""Thonny 3.1.2"">")
						objWriter.WriteLine( "                 <path>..\Thonny_3.1.2\thonny.exe</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Thonny.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
					End If
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\Thonny_3.2.3\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						mMenueLaenge = mMenueLaenge + 90
						objWriter.WriteLine( "             <file name=""Thonny 3.2.3"">")
						objWriter.WriteLine( "                 <path>..\Thonny_3.2.3\thonny.exe</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Thonny.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
						objWriter.WriteLine( "             <file name=""Qt Designer 5.13.0"">")
						objWriter.WriteLine( "                 <path>..\Thonny_3.2.3\Lib\site-packages\pyqt5_tools\Qt\bin\designer.exe</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Designer.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
					End If
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\Thonny_4.1.7\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						mMenueLaenge = mMenueLaenge + 90
						objWriter.WriteLine( "             <file name=""Thonny 4.1.7"">")
						objWriter.WriteLine( "                 <path>..\Thonny_4.1.7\thonny.exe</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Thonny.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
						objWriter.WriteLine( "             <file name=""Qt Designer 5.15.2"">")
						objWriter.WriteLine( "                 <path>..\Thonny_4.1.7\Lib\site-packages\qt5_applications\Qt\bin\designer.exe</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Designer.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
					End If
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\PythonKara\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						mMenueLaenge = mMenueLaenge + 60
						objWriter.WriteLine( "             <file name=""PythonKara"">")
						objWriter.WriteLine( "                 <path>..\PythonKara\PythonKaraStart.bat</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Kara.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
					End If
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\VSCode_1.104.2\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						mMenueLaenge = mMenueLaenge + 60
						objWriter.WriteLine( "             <file name=""VSCode_1.104.2"">")
						objWriter.WriteLine( "                 <path>..\VSCode_1.104.2\CodeStart.bat</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\VSCode.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
					End If
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\JupyterLabPortable_3.1.0\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						mMenueLaenge = mMenueLaenge + 90
						objWriter.WriteLine( "             <file name=""JupyterLab Server starten"">")
						objWriter.WriteLine( "                 <path>..\JupyterLabPortable_3.1.0\JupiterlabStart1.bat</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Jupyterlab.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
						objWriter.WriteLine( "             <file name=""JupyterLab im Browser starten"">")
						objWriter.WriteLine( "                 <path>..\JupyterLabPortable_3.1.0\JupiterlabStart2.bat</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Jupyterlab.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
						objWriter.WriteLine( "             <file name=""JupyterLab Server stoppen"">")
						objWriter.WriteLine( "                 <path>..\JupyterLabPortable_3.1.0\JupiterlabStop.bat</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Jupyterlab.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
					End If
					objWriter.WriteLine( "         </files>")
				End If
				
				'				mFileName  = mInstalVerzeichnisBackSlash & "Programme\CodeBlocks_20.03\installiert.txt"
				'				If System.IO.File.Exists(mFileName) = True Then
				'					
				'					mMenueLaenge = mMenueLaenge + 90
				'					objWriter.WriteLine( "         <files name=""C++ Programmierung"">")
				'					objWriter.WriteLine( "             <autoexpand>True</autoexpand>")
				'					objWriter.WriteLine( "             <file name=""CodeBlocks 20.03"">")
				'					objWriter.WriteLine( "                 <path>..\CodeBlocks_20.03\CodeBlocks.exe</path>")
				'					objWriter.WriteLine( "                 <icon>..\..\Icon\CodeBlocks.ico</icon>")
				'					objWriter.WriteLine( "             <runcount>0</runcount>")
				'					objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
				'					objWriter.WriteLine( "             </file>")
				'					objWriter.WriteLine( "         </files>")
				'				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\installiert.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mMenueLaenge = mMenueLaenge + 30
					objWriter.WriteLine( "         <files name=""Java Programmierung"">")
					objWriter.WriteLine( "             <autoexpand>True</autoexpand>")
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\BlueJ_4.12\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						mMenueLaenge = mMenueLaenge + 30
						objWriter.WriteLine( "             <file name=""BlueJ 4.12"">")
						objWriter.WriteLine( "                 <path>..\BlueJ_4.12\BlueJStart.bat</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Bluej.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
					End If 
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\BlueJ_5.0.2\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						mMenueLaenge = mMenueLaenge + 30
						objWriter.WriteLine( "             <file name=""BlueJ 5.0.2"">")
						objWriter.WriteLine( "                 <path>..\BlueJ_5.0.2\BlueJ.exe</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Bluej.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
						
					End If 
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\Greenfoot_3.1.0\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						mMenueLaenge = mMenueLaenge + 30
						objWriter.WriteLine( "             <file name=""Greenfoot 3.1.0"">")
						objWriter.WriteLine( "                 <path>..\Greenfoot_3.1.0\GreenfootStart.bat</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Greenfoot.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
					End If 
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\Greenfoot_3.7.0\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						mMenueLaenge = mMenueLaenge + 30
						objWriter.WriteLine( "             <file name=""Greenfoot 3.7.0"">")
						objWriter.WriteLine( "                 <path>..\Greenfoot_3.7.0\Greenfoot.exe</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Greenfoot.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
					End If 
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\JavaEditor_15.24a\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						
						mMenueLaenge = mMenueLaenge + 30
						objWriter.WriteLine( "             <file name=""Java-Editor 15.24a"">")
						objWriter.WriteLine( "                 <path>..\JavaEditor_15.24a\JavaEditor.exe</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\JavaEditor.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
					End If 
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\JavaEditor_19.27\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						
						mMenueLaenge = mMenueLaenge + 30
						objWriter.WriteLine( "             <file name=""Java-Editor 19.27"">")
						objWriter.WriteLine( "                 <path>..\JavaEditor_19.27\JavaEditor.exe</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\JavaEditor.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
					End If 
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\Eclipse_4.6.3\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						mMenueLaenge = mMenueLaenge + 30
						objWriter.WriteLine( "             <file name=""Eclipse 4.6.3 Neon"">")
						objWriter.WriteLine( "                 <path>..\Eclipse_4.6.3\eclipse.bat</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Eclipse.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
					End If 
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\Java_17.0.1\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						mFileName  = mInstalVerzeichnisBackSlash & "Programme\Eclipse_4.21\installiert.txt"
						If System.IO.File.Exists(mFileName) = True Then
							mMenueLaenge = mMenueLaenge + 30
							objWriter.WriteLine( "             <file name=""Eclipse 4.21"">")
							objWriter.WriteLine( "                 <path>..\Eclipse_4.21\eclipse.bat</path>")
							objWriter.WriteLine( "                 <icon>..\..\Icon\Eclipse.ico</icon>")
							objWriter.WriteLine( "             <runcount>0</runcount>")
							objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
							objWriter.WriteLine( "             </file>")
						End If 
					End If
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\Violet_3.0.0\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						mMenueLaenge = mMenueLaenge + 30
						objWriter.WriteLine( "             <file name=""Violet UML 3.0"">")
						objWriter.WriteLine( "                 <path>..\Violet_3.0.0\VioletStart.bat</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Violet.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
					End If 
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\Violet_UML_Editor_2.2.2\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						mMenueLaenge = mMenueLaenge + 30
						objWriter.WriteLine( "             <file name=""Violet UML Editor 2.2.2"">")
						objWriter.WriteLine( "                 <path>..\Violet_UML_Editor_2.2.2\VioletStart.bat</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Violet.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
					End If 
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\Umlet_15.0.0\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						mMenueLaenge = mMenueLaenge + 30
						objWriter.WriteLine( "             <file name=""Umlet 15.0.0"">")
						objWriter.WriteLine( "                 <path>..\Umlet_15.0.0\Umlet.exe</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Umlet.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
					End If 
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\Umlet_15.1\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						mMenueLaenge = mMenueLaenge + 30
						objWriter.WriteLine( "             <file name=""Umlet 15.1"">")
						objWriter.WriteLine( "                 <path>..\Umlet_15.1\Umlet.exe</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Umlet.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
					End If 
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\db4o_5.5.1\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						mMenueLaenge = mMenueLaenge + 30
						objWriter.WriteLine( "             <file name=""db4o 5.5.1Objectmanager"">")
						objWriter.WriteLine( "                 <path>..\db4o_5.5.1\QM\objectmanager.bat</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\db4oObjectmanager.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
					End If 
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\JavaScriptKara\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						mMenueLaenge = mMenueLaenge + 60
						objWriter.WriteLine( "             <file name=""JavaScriptKara"">")
						objWriter.WriteLine( "                 <path>..\JavaScriptKara\JavaScriptKaraStart.bat</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Kara.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
					End If
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\JavaKara\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						mMenueLaenge = mMenueLaenge + 60
						objWriter.WriteLine( "             <file name=""JavaKara"">")
						objWriter.WriteLine( "                 <path>..\JavaKara\JavaKaraStart.bat</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Kara.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
					End If
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\AutomatenKara\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						mMenueLaenge = mMenueLaenge + 60
						objWriter.WriteLine( "             <file name=""AutomatenKara"">")
						objWriter.WriteLine( "                 <path>..\AutomatenKara\AutomatenKaraStart.bat</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Kara.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
					End If
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\SolistKara\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						mMenueLaenge = mMenueLaenge + 60
						objWriter.WriteLine( "             <file name=""SolistKara"">")
						objWriter.WriteLine( "                 <path>..\SolistKara\SolistKaraStart.bat</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Kara.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
						objWriter.WriteLine( "             <files name=""Simulatoren"">")
						objWriter.WriteLine( "             <file name=""Damensimulator 1.0"">")
						objWriter.WriteLine( "                 <path>..\SolistKara\simulatoren\damensimulator-1.0\simulator.jar</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\damensimulator.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
						objWriter.WriteLine( "             <file name=""Froschsimulator 1.0"">")
						objWriter.WriteLine( "                 <path>..\SolistKara\simulatoren\froschsimulator-1.0\simulator.jar</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\froschsimulator.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
						objWriter.WriteLine( "             <file name=""Fr&#xFC;chtesimulator 1.0"">")
						objWriter.WriteLine( "                 <path>..\SolistKara\simulatoren\fruechtesimulator-1.0\simulator.jar</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Fruechtesimulator.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
						objWriter.WriteLine( "             <file name=""GameOfLifesimulator 1.0"">")
						objWriter.WriteLine( "                 <path>..\SolistKara\simulatoren\gameoflifesimulator-1.0\simulator.jar</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Gameoflifesimulator.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
						objWriter.WriteLine( "             <file name=""Geisterstundensimulator 1.0"">")
						objWriter.WriteLine( "                 <path>..\SolistKara\simulatoren\geisterstundesimulator-1.0\simulator.jar</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Geisterstundensimulator.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
						objWriter.WriteLine( "             <file name=""Hamstersimulator light 1.0"">")
						objWriter.WriteLine( "                 <path>..\SolistKara\simulatoren\hamstersimulator-light-1.0\simulator.jar</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Hamstersimulatorlight1.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
						objWriter.WriteLine( "             <file name=""Hamstersimulator light 2.0"">")
						objWriter.WriteLine( "                 <path>..\SolistKara\simulatoren\hamstersimulator-light-2.0\simulator.jar</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Hamstersimulatorlight2.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
						objWriter.WriteLine( "             <file name=""Hamstersimulator Scratch 1.0"">")
						objWriter.WriteLine( "                 <path>..\SolistKara\simulatoren\hamstersimulator-scratch-1.0\simulator.jar</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Hamstersimulatorscratch1.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
						objWriter.WriteLine( "             <file name=""Hamstersimulator Scratch 1.1"">")
						objWriter.WriteLine( "                 <path>..\SolistKara\simulatoren\hamstersimulator-scratch-1.1\simulator.jar</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Hamstersimulatorscratch11.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
						objWriter.WriteLine( "             <file name=""Hanoisimulator 1.0"">")
						objWriter.WriteLine( "                 <path>..\SolistKara\simulatoren\hanoisimulator-1.0\simulator.jar</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Hanoisimulator.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
						objWriter.WriteLine( "             <file name=""Karasimulator Scratch 1.0"">")
						objWriter.WriteLine( "                 <path>..\SolistKara\simulatoren\karasimulator-scratch-1.0\simulator.jar</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Karasimulatorscratch1.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
						objWriter.WriteLine( "             <file name=""Karasimulator Scratch 1.1"">")
						objWriter.WriteLine( "                 <path>..\SolistKara\simulatoren\karasimulator-scratch-1.1\simulator.jar</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Karasimulatorscratch11.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
						objWriter.WriteLine( "             <file name=""Karasolistsimulator 1.0"">")
						objWriter.WriteLine( "                 <path>..\SolistKara\simulatoren\karasolistsimulator-1.0\simulator.jar</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Karasolistsimulator1.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
						objWriter.WriteLine( "             <file name=""Karasolistsimulator 2.0"">")
						objWriter.WriteLine( "                 <path>..\SolistKara\simulatoren\karasolistsimulator-2.0\simulator.jar</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Karasolistsimulator2.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
						objWriter.WriteLine( "             <file name=""Springersimulator 1.0"">")
						objWriter.WriteLine( "                 <path>..\SolistKara\simulatoren\springersimulator-1.0\simulator.jar</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Springersimulator.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
						objWriter.WriteLine( "             <file name=""Sudokusimulator 1.0"">")
						objWriter.WriteLine( "                 <path>..\SolistKara\simulatoren\sudokusimulator-1.0\simulator.jar</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Sudokusimulator.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
						objWriter.WriteLine( "             <file name=""Terminalsimulator 1.0"">")
						objWriter.WriteLine( "                 <path>..\SolistKara\simulatoren\terminalsimulator-1.0\simulator.jar</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Terminalsimulator.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
						objWriter.WriteLine( "             <file name=""TicTactoesimulator 1.0"">")
						objWriter.WriteLine( "                 <path>..\SolistKara\simulatoren\tictactoesimulator-1.0\simulator.jar</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Tictactoesimulator.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
						objWriter.WriteLine( "             <file name=""Turtlesimulator 1.0"">")
						objWriter.WriteLine( "                 <path>..\SolistKara\simulatoren\turtlesimulator-1.0\simulator.jar</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Turtlesimulator.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
						objWriter.WriteLine( "             </files>")
					End If
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\Hamstersimulator_2.9.6\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						mMenueLaenge = mMenueLaenge + 60
						objWriter.WriteLine( "             <file name=""Hamstersimulator 2.9.6"">")
						objWriter.WriteLine( "                 <path>..\Hamstersimulator_2.9.6\HamstersimulatorStart.bat</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Hamstersimulator.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
					End If
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\HamsterStruktorgrammeditor_08.4\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						mMenueLaenge = mMenueLaenge + 60
						objWriter.WriteLine( "             <file name=""HamsterStruktorgrammeditor_08.4"">")
						objWriter.WriteLine( "                 <path>..\HamsterStruktorgrammeditor_08.4\HamsterStruktorgrammeditorStart.bat</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\HamsterStruktogrammeditor.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
					End If
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\KarelTheRobot\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						mMenueLaenge = mMenueLaenge + 60
						objWriter.WriteLine( "             <file name=""Karel the Robot"">")
						objWriter.WriteLine( "                 <path>..\KarelTheRobot\KarelStart.bat</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Karel.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
					End If
					objWriter.WriteLine( "         </files>")	
				Else
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\Java_17.0.1\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						mMenueLaenge = mMenueLaenge + 30
						objWriter.WriteLine( "         <files name=""Java Programmierung"">")
						objWriter.WriteLine( "             <autoexpand>True</autoexpand>")
						
						mFileName  = mInstalVerzeichnisBackSlash & "Programme\BlueJ_5.0.2\installiert.txt"
						If System.IO.File.Exists(mFileName) = True Then
							mMenueLaenge = mMenueLaenge + 30
							objWriter.WriteLine( "             <file name=""BlueJ 5.0.2"">")
							objWriter.WriteLine( "                 <path>..\BlueJ_5.0.2\BlueJ.exe</path>")
							objWriter.WriteLine( "                 <icon>..\..\Icon\Bluej.ico</icon>")
							objWriter.WriteLine( "             <runcount>0</runcount>")
							objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
							objWriter.WriteLine( "             </file>")
							'objWriter.WriteLine( "         </files>")
						End If 
						mFileName  = mInstalVerzeichnisBackSlash & "Programme\Greenfoot_3.7.0\installiert.txt"
						If System.IO.File.Exists(mFileName) = True Then
							mMenueLaenge = mMenueLaenge + 30
							objWriter.WriteLine( "             <file name=""Greenfoot 3.7.0"">")
							objWriter.WriteLine( "                 <path>..\Greenfoot_3.7.0\Greenfoot.exe</path>")
							objWriter.WriteLine( "                 <icon>..\..\Icon\Greenfoot.ico</icon>")
							objWriter.WriteLine( "             <runcount>0</runcount>")
							objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
							objWriter.WriteLine( "             </file>")
						End If 
						
						
						
						mFileName  = mInstalVerzeichnisBackSlash & "Programme\Eclipse_4.21\installiert.txt"
						If System.IO.File.Exists(mFileName) = True Then
							mMenueLaenge = mMenueLaenge + 30
							objWriter.WriteLine( "             <file name=""Eclipse 4.21"">")
							objWriter.WriteLine( "                 <path>..\Eclipse_4.21\eclipse.bat</path>")
							objWriter.WriteLine( "                 <icon>..\..\Icon\Eclipse.ico</icon>")
							objWriter.WriteLine( "             <runcount>0</runcount>")
							objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
							objWriter.WriteLine( "             </file>")
						End If
						objWriter.WriteLine( "         </files>")
					End If
				End If 
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\installiert.txt"
				If System.IO.File.Exists(mFileName) = False Then
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\Java_17.0.1\installiert.txt"
					If System.IO.File.Exists(mFileName) = False Then
						
						If System.IO.File.Exists(mInstalVerzeichnisBackSlash & "Programme\BlueJ_5.0.2\installiert.txt") = True Or System.IO.File.Exists(mInstalVerzeichnisBackSlash & "Programme\Greenfoot_3.7.0\installiert.txt") = True Then	
							mMenueLaenge = mMenueLaenge + 30
							objWriter.WriteLine( "         <files name=""Java Programmierung"">")
							objWriter.WriteLine( "             <autoexpand>True</autoexpand>")
						End If
						
						mFileName  = mInstalVerzeichnisBackSlash & "Programme\BlueJ_5.0.2\installiert.txt"
						If System.IO.File.Exists(mFileName) = True Then
							mMenueLaenge = mMenueLaenge + 30
							objWriter.WriteLine( "             <file name=""BlueJ 5.0.2"">")
							objWriter.WriteLine( "                 <path>..\BlueJ_5.0.2\BlueJ.exe</path>")
							objWriter.WriteLine( "                 <icon>..\..\Icon\Bluej.ico</icon>")
							objWriter.WriteLine( "             <runcount>0</runcount>")
							objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
							objWriter.WriteLine( "             </file>")
						End If 
						mFileName  = mInstalVerzeichnisBackSlash & "Programme\Greenfoot_3.7.0\installiert.txt"
						If System.IO.File.Exists(mFileName) = True Then
							mMenueLaenge = mMenueLaenge + 30
							objWriter.WriteLine( "             <file name=""Greenfoot 3.7.0"">")
							objWriter.WriteLine( "                 <path>..\Greenfoot_3.7.0\Greenfoot.exe</path>")
							objWriter.WriteLine( "                 <icon>..\..\Icon\Greenfoot.ico</icon>")
							objWriter.WriteLine( "             <runcount>0</runcount>")
							objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
							objWriter.WriteLine( "             </file>")
						End If 
						If System.IO.File.Exists(mInstalVerzeichnisBackSlash & "Programme\BlueJ_5.0.2\installiert.txt") = True Or System.IO.File.Exists(mInstalVerzeichnisBackSlash & "Programme\Greenfoot_3.7.0\installiert.txt") = True Then	
							objWriter.WriteLine( "         </files>")
						End If
						
					End If
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Xampp\installiert.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
					Else
						mMenueLaenge = mMenueLaenge + 180
						objWriter.WriteLine( "         <files name=""Webserver"">")
						objWriter.WriteLine( "             <autoexpand>True</autoexpand>")
						objWriter.WriteLine( "             <file name=""Apache 2.4.28 starten ( PHP 7.1.10 )"">")
						objWriter.WriteLine( "                 <path>..\Xampp\apache_start.bat</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\WebserverStart.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
						objWriter.WriteLine( "             <file name=""Apache stoppen"">")
						objWriter.WriteLine( "                 <path>..\Xampp\apache_stop.bat</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\WebserverStop.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
						objWriter.WriteLine( "             <file name=""Tomcat 7.0.56 starten"">")
						objWriter.WriteLine( "                 <path>..\Xampp\tomcat\tomcat_start.bat</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\tomcat.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
						objWriter.WriteLine( "             <file name=""Tomcat stoppen"">")
						objWriter.WriteLine( "                 <path>..\Xampp\tomcat\tomcat_stop.bat</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\tomcatstop.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
						objWriter.WriteLine( "            <file name=""Xampp Control"">")
						objWriter.WriteLine( "                 <path>..\Xampp\Xampp-control.exe</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Xampp-control.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
						mFileName  = mInstalVerzeichnisBackSlash & "Programme\LocalTunnel\installiert.txt"
						If System.IO.File.Exists(mFileName) = True Then
							mMenueLaenge = mMenueLaenge + 30
							objWriter.WriteLine( "            <file name=""Local Tunnel Manager"">")
							objWriter.WriteLine( "                 <path>..\LocalTunnel\LocalTunnel.exe</path>")
							objWriter.WriteLine( "                 <icon>..\..\Icon\LocalTunnel.ico</icon>")
							objWriter.WriteLine( "             <runcount>0</runcount>")
							objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
							objWriter.WriteLine( "             </file>")
						End If 
						mFileName  = mInstalVerzeichnisBackSlash & "Programme\OperaPortable_62.0\installiert.txt"
						If System.IO.File.Exists(mFileName) = True Then
							mMenueLaenge = mMenueLaenge + 30
							objWriter.WriteLine( "            <file name=""Opera Browser 62.0"">")
							objWriter.WriteLine( "                 <path>..\OperaPortable_62.0\start.bat</path>")
							objWriter.WriteLine( "                 <icon>..\..\Icon\Opera.ico</icon>")
							objWriter.WriteLine( "             <runcount>0</runcount>")
							objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
							objWriter.WriteLine( "             </file>")
						End If 
						mFileName  = mInstalVerzeichnisBackSlash & "Programme\Wordpress\installiert.txt"
						If System.IO.File.Exists(mFileName) = True Then
							mMenueLaenge = mMenueLaenge + 60
							objWriter.WriteLine( "            <file name=""WordPress 4.9.1"">")
							objWriter.WriteLine( "                 <path>..\Xampp\wordpress_start.bat</path>")
							objWriter.WriteLine( "                 <icon>..\..\Icon\WordPress.ico</icon>")
							objWriter.WriteLine( "             <runcount>0</runcount>")
							objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
							objWriter.WriteLine( "             </file>")
							objWriter.WriteLine( "            <file name=""WordPress 4.9.1 Projekte verwalten"">")
							objWriter.WriteLine( "                 <path>..\Wordpress\WordpressProjekteVerwalten.exe</path>")
							objWriter.WriteLine( "                 <icon>..\..\Icon\WordPressManager.ico</icon>")
							objWriter.WriteLine( "             <runcount>0</runcount>")
							objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
							objWriter.WriteLine( "             </file>")
						End If 
						objWriter.WriteLine( "         </files>")
						mMenueLaenge = mMenueLaenge + 150
						objWriter.WriteLine( "         <files name=""Datenbank MariaDB 10.1.28"">")
						objWriter.WriteLine( "             <autoexpand>True</autoexpand>")
						objWriter.WriteLine( "            <file name=""Xampp 7.1.10 - Setup"">")
						objWriter.WriteLine( "                 <path>..\Xampp\setup_Xampp.bat</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Xamppsetup.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
						objWriter.WriteLine( "             <file name=""MySQL starten"">")
						objWriter.WriteLine( "                 <path>..\Xampp\mysql_start.bat</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\mySQLStart.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
						objWriter.WriteLine( "             <file name=""MySQL stoppen"">")
						objWriter.WriteLine( "                 <path>..\Xampp\mysql_stop.bat</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\mySQLStop.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
						objWriter.WriteLine( "             <file name=""MySQLDatensicherung"">")
						objWriter.WriteLine( "                 <path>..\Xampp\mysql\bin\mySQLDatensicherungStart.bat</path>")
						objWriter.WriteLine( "                <icon>..\..\Icon\mySQLDump.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
						mFileName  = mInstalVerzeichnisBackSlash & "Programme\Xampp\mysql\bin\mySQLUpgrade.bat"
						If System.IO.File.Exists(mFileName) = True Then
							mMenueLaenge = mMenueLaenge + 30
							objWriter.WriteLine( "             <file name=""MySQLUpgrade"">")
							objWriter.WriteLine( "                 <path>..\Xampp\mysql\bin\mySQLUpgrade.bat</path>")
							objWriter.WriteLine( "                <icon>..\..\Icon\mySQLUpgrade.ico</icon>")
							objWriter.WriteLine( "             <runcount>0</runcount>")
							objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
							objWriter.WriteLine( "             </file>")
						End If
						mFileName  = mInstalVerzeichnisBackSlash & "Programme\MySQLTools_1.2.17\installiert.txt"
						If System.IO.File.Exists(mFileName) = True Then
							mMenueLaenge = mMenueLaenge + 30
							objWriter.WriteLine( "             <file name="" MySQL Query Browser 1.2.17"">")
							objWriter.WriteLine( "                 <path>..\MySQLTools_1.2.17\MySQLQueryBrowser.exe</path>")
							objWriter.WriteLine( "                 <icon>..\..\Icon\MySQLQueryBrowser.ico</icon>")
							objWriter.WriteLine( "             <runcount>0</runcount>")
							objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
							objWriter.WriteLine( "             </file>")
						End If 
						mFileName  = mInstalVerzeichnisBackSlash & "Programme\MySQL Workbench_6.3.7\installiert.txt"
						If System.IO.File.Exists(mFileName) = True Then
							mMenueLaenge = mMenueLaenge + 30
							objWriter.WriteLine( "            <file name=""MySQL Workbench 6.3.7"">")
							objWriter.WriteLine( "                 <path>..\MySQL Workbench_6.3.7\MySQLWorkbench.exe</path>")
							objWriter.WriteLine( "                 <icon>..\..\Icon\MySQLWorkbench.ico</icon>")
							objWriter.WriteLine( "             <runcount>0</runcount>")
							objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
							objWriter.WriteLine( "             </file>")
						End If 
						mFileName  = mInstalVerzeichnisBackSlash & "Programme\MySQL Workbench_6.3.10\installiert.txt"
						If System.IO.File.Exists(mFileName) = True Then
							mMenueLaenge = mMenueLaenge + 30
							objWriter.WriteLine( "             <file name=""MySQL Workbench 6.3.10"">")
							objWriter.WriteLine( "                 <path>..\MySQL Workbench_6.3.10\MySQLWorkbench.exe</path>")
							objWriter.WriteLine( "                 <icon>..\..\Icon\MySQLWorkbench.ico</icon>")
							objWriter.WriteLine( "             <runcount>0</runcount>")
							objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
							objWriter.WriteLine( "             </file>")
						End If 
						objWriter.WriteLine( "         </files>")
					End If
				End If
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\installiert.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mMenueLaenge = mMenueLaenge + 180
					objWriter.WriteLine( "         <files name=""Webserver"">")
					objWriter.WriteLine( "             <autoexpand>True</autoexpand>")
					objWriter.WriteLine( "             <file name=""Apache 2.4.43 starten ( PHP 7.4.7 )"">")
					objWriter.WriteLine( "                 <path>..\Xampp_7.4.7\apache_start.bat</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\WebserverStart.ico</icon>")
					objWriter.WriteLine( "             <runcount>0</runcount>")
					objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
					objWriter.WriteLine( "             <file name=""Apache stoppen"">")
					objWriter.WriteLine( "                 <path>..\Xampp_7.4.7\apache_stop.bat</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\WebserverStop.ico</icon>")
					objWriter.WriteLine( "             <runcount>0</runcount>")
					objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
					objWriter.WriteLine( "             <file name=""Tomcat 7.0.104 starten"">")
					objWriter.WriteLine( "                 <path>..\Xampp_7.4.7\tomcat\tomcat_start.bat</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\tomcat.ico</icon>")
					objWriter.WriteLine( "             <runcount>0</runcount>")
					objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
					objWriter.WriteLine( "             <file name=""Tomcat stoppen"">")
					objWriter.WriteLine( "                 <path>..\Xampp_7.4.7\tomcat\tomcat_stop.bat</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\tomcatstop.ico</icon>")
					objWriter.WriteLine( "             <runcount>0</runcount>")
					objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
					objWriter.WriteLine( "            <file name=""Xampp Control 3.2.4"">")
					objWriter.WriteLine( "                 <path>..\Xampp_7.4.7\Xampp-control.exe</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\Xampp-control.ico</icon>")
					objWriter.WriteLine( "             <runcount>0</runcount>")
					objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\LocalTunnel\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						mMenueLaenge = mMenueLaenge + 30
						objWriter.WriteLine( "            <file name=""Local Tunnel Manager"">")
						objWriter.WriteLine( "                 <path>..\LocalTunnel\LocalTunnel.exe</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\LocalTunnel.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
					End If 
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\OperaPortable_62.0\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						mMenueLaenge = mMenueLaenge + 30
						objWriter.WriteLine( "            <file name=""Opera Browser 62.0"">")
						objWriter.WriteLine( "                 <path>..\OperaPortable_62.0\start.bat</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\Opera.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
					End If 
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\Wordpress_5.4.2\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						mMenueLaenge = mMenueLaenge + 60
						objWriter.WriteLine( "            <file name=""WordPress 5.4.2"">")
						objWriter.WriteLine( "                 <path>..\Xampp_7.4.7\wordpress_start.bat</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\WordPress.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
						objWriter.WriteLine( "            <file name=""WordPress 5.4.2 Projekte verwalten"">")
						objWriter.WriteLine( "                 <path>..\Wordpress_5.4.2\WordpressProjekteVerwalten.exe</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\WordPressManager.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
					End If 
					objWriter.WriteLine( "         </files>")
					mMenueLaenge = mMenueLaenge + 150
					objWriter.WriteLine( "         <files name=""Datenbank MariaDB 10.4.11"">")
					objWriter.WriteLine( "             <autoexpand>True</autoexpand>")
					objWriter.WriteLine( "            <file name=""Xampp 7.4.7 - Setup"">")
					objWriter.WriteLine( "                 <path>..\Xampp_7.4.7\setup_Xampp.bat</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\Xamppsetup.ico</icon>")
					objWriter.WriteLine( "             <runcount>0</runcount>")
					objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
					objWriter.WriteLine( "             <file name=""MySQL starten"">")
					objWriter.WriteLine( "                 <path>..\Xampp_7.4.7\mysql_start.bat</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\mySQLStart.ico</icon>")
					objWriter.WriteLine( "             <runcount>0</runcount>")
					objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
					objWriter.WriteLine( "             <file name=""MySQL stoppen"">")
					objWriter.WriteLine( "                 <path>..\Xampp_7.4.7\mysql_stop.bat</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\mySQLStop.ico</icon>")
					objWriter.WriteLine( "             <runcount>0</runcount>")
					objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
					objWriter.WriteLine( "             <file name=""MySQLDatensicherung"">")
					objWriter.WriteLine( "                 <path>..\Xampp_7.4.7\mysql\bin\mySQLDatensicherungStart.bat</path>")
					objWriter.WriteLine( "                <icon>..\..\Icon\mySQLDump.ico</icon>")
					objWriter.WriteLine( "             <runcount>0</runcount>")
					objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\mysql\bin\mySQLUpgrade.bat"
					If System.IO.File.Exists(mFileName) = True Then
						mMenueLaenge = mMenueLaenge + 30
						objWriter.WriteLine( "             <file name=""MySQLUpgrade"">")
						objWriter.WriteLine( "                 <path>..\Xampp_7.4.7\mysql\bin\mySQLUpgrade.bat</path>")
						objWriter.WriteLine( "                <icon>..\..\Icon\mySQLUpgrade.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
					End If
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\MySQLTools_1.2.17\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						mMenueLaenge = mMenueLaenge + 30
						objWriter.WriteLine( "             <file name="" MySQL Query Browser 1.2.17"">")
						objWriter.WriteLine( "                 <path>..\MySQLTools_1.2.17\MySQLQueryBrowser.exe</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\MySQLQueryBrowser.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
					End If 
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\MySQL Workbench_6.3.7\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						mMenueLaenge = mMenueLaenge + 30
						objWriter.WriteLine( "            <file name=""MySQL Workbench 6.3.7"">")
						objWriter.WriteLine( "                 <path>..\MySQL Workbench_6.3.7\MySQLWorkbench.exe</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\MySQLWorkbench.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
					End If 
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\MySQL Workbench_6.3.10\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						mMenueLaenge = mMenueLaenge + 30
						objWriter.WriteLine( "             <file name=""MySQL Workbench 6.3.10"">")
						objWriter.WriteLine( "                 <path>..\MySQL Workbench_6.3.10\MySQLWorkbench.exe</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\MySQLWorkbench.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
					End If 
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\MySQL Workbench_8.0.21\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						mMenueLaenge = mMenueLaenge + 30
						objWriter.WriteLine( "             <file name=""MySQL Workbench 8.0.21"">")
						objWriter.WriteLine( "                 <path>..\MySQL Workbench_8.0.21\MySQLWorkbench.exe</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\MySQLWorkbench.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
					End If 
					objWriter.WriteLine( "         </files>")
				End If
				
				objWriter.WriteLine( "         <files name=""Tools"">")
				objWriter.WriteLine( "             <autoexpand>True</autoexpand>")
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Xampp\installiert.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
					Else	
						mMenueLaenge = mMenueLaenge + 60
						objWriter.WriteLine( "             <file name=""FileZillaServer 0.9.41 starten"">")
						objWriter.WriteLine( "                 <path>..\Xampp\FileZillaFTP\filezilla_start.bat</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\FileZilla.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
						objWriter.WriteLine( "             <file name=""FileZillaServer stoppen"">")
						objWriter.WriteLine( "                 <path>..\\Xampp\FileZillaFTP\filezilla_stop.bat</path>")
						objWriter.WriteLine( "                 <icon>..\..\Icon\FileZillaStop.ico</icon>")
						objWriter.WriteLine( "             <runcount>0</runcount>")
						objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
						objWriter.WriteLine( "             </file>")
					End If
				End If
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\installiert.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mMenueLaenge = mMenueLaenge + 60
					objWriter.WriteLine( "             <file name=""FileZillaServer 0.9.41 starten"">")
					objWriter.WriteLine( "                 <path>..\Xampp_7.4.7\FileZillaFTP\filezilla_start.bat</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\FileZilla.ico</icon>")
					objWriter.WriteLine( "             <runcount>0</runcount>")
					objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
					objWriter.WriteLine( "             <file name=""FileZillaServer stoppen"">")
					objWriter.WriteLine( "                 <path>..\\Xampp_7.4.7\FileZillaFTP\filezilla_stop.bat</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\FileZillaStop.ico</icon>")
					objWriter.WriteLine( "             <runcount>0</runcount>")
					objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
				End If
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\WinSCP_5.11.2\installiert.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mMenueLaenge = mMenueLaenge + 30
					objWriter.WriteLine( "             <file name=""WinSCP 5.11.2"">")
					objWriter.WriteLine( "                 <path>..\WinSCP_5.11.2\WinSCP.exe</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\WinSCP.ico</icon>")
					objWriter.WriteLine( "             <runcount>0</runcount>")
					objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
				End If
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Struktogrammer_97.05\installiert.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mMenueLaenge = mMenueLaenge + 30
					objWriter.WriteLine( "             <file name=""Struktogrammer 97.05  (*.stg)"">")
					objWriter.WriteLine( "                 <path>..\Struktogrammer_97.05\stgr32.exe</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\Struktogrammer.ico</icon>")
					objWriter.WriteLine( "             <runcount>0</runcount>")
					objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
				End If
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Struktogrammer_0.9.1\installiert.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mMenueLaenge = mMenueLaenge + 30
					objWriter.WriteLine( "             <file name=""Struktogrammer 0.9.1 (*.stg, *.stgr, *.stgp)"">")
					objWriter.WriteLine( "                 <path>..\Struktogrammer_0.9.1\Struktogrammerstart.bat</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\Struktogrammer.ico</icon>")
					objWriter.WriteLine( "             <runcount>0</runcount>")
					objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
				End If
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Struktogrammer_0.9.3\installiert.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mMenueLaenge = mMenueLaenge + 30
					objWriter.WriteLine( "             <file name=""Struktogrammer 0.9.3 (*.stg, *.stgr, *.stgp)"">")
					objWriter.WriteLine( "                 <path>..\Struktogrammer_0.9.3\Struktogrammerstart.bat</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\Struktogrammer.ico</icon>")
					objWriter.WriteLine( "             <runcount>0</runcount>")
					objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
				End If
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Struktogrammer_1.1a\installiert.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mMenueLaenge = mMenueLaenge + 30
					objWriter.WriteLine( "             <file name=""Struktogrammer 1.1a (*.stg, *.stgr, *.stgp)"">")
					objWriter.WriteLine( "                 <path>..\Struktogrammer_1.1a\Struktogrammerstart.bat</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\Struktogrammer.ico</icon>")
					objWriter.WriteLine( "             <runcount>0</runcount>")
					objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
				End If
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\PSPad_4.6.1\installiert.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mMenueLaenge = mMenueLaenge + 30
					objWriter.WriteLine( "             <file name=""PsPad 4.6.1"">")
					objWriter.WriteLine( "                 <path>..\PSPad_4.6.1\PSPad.exe</path>")
					objWriter.WriteLine( "                <icon>..\..\Icon\PSPad.ico</icon>")
					objWriter.WriteLine( "             <runcount>0</runcount>")
					objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
				End If
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Notepad++_7.5.1\installiert.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mMenueLaenge = mMenueLaenge + 30
					objWriter.WriteLine( "             <file name=""Notepad++  7.5.1"">")
					objWriter.WriteLine( "                 <path>..\Notepad++_7.5.1\notepad++.exe</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\Notepad++.ico</icon>")
					objWriter.WriteLine( "             <runcount>0</runcount>")
					objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
				End If
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Notepad++_8.2\installiert.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mMenueLaenge = mMenueLaenge + 30
					objWriter.WriteLine( "             <file name=""Notepad++  8.2"">")
					objWriter.WriteLine( "                 <path>..\Notepad++_8.2\notepad++.exe</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\Notepad++.ico</icon>")
					objWriter.WriteLine( "             <runcount>0</runcount>")
					objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
				End If
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Filius_1.7.2\installiert.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mMenueLaenge = mMenueLaenge + 30
					objWriter.WriteLine( "             <file name=""Filius  1.7.2"">")
					objWriter.WriteLine( "                 <path>..\Filius_1.7.2\FiliusStart.bat</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\Filius.ico</icon>")
					objWriter.WriteLine( "             <runcount>0</runcount>")
					objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
				End If
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Filius_1.13.1\installiert.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mMenueLaenge = mMenueLaenge + 30
					objWriter.WriteLine( "             <file name=""Filius  1.13.1"">")
					objWriter.WriteLine( "                 <path>..\Filius_1.13.1\FiliusStart.bat</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\Filius.ico</icon>")
					objWriter.WriteLine( "             <runcount>0</runcount>")
					objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
				End If
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Filius_2.2.0\installiert.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mMenueLaenge = mMenueLaenge + 30
					objWriter.WriteLine( "             <file name=""Filius  2.2.0"">")
					objWriter.WriteLine( "                 <path>..\Filius_2.2.0\FiliusStart.bat</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\Filius.ico</icon>")
					objWriter.WriteLine( "             <runcount>0</runcount>")
					objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
				End If
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Filius_2.7.1\installiert.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mMenueLaenge = mMenueLaenge + 30
					objWriter.WriteLine( "             <file name=""Filius  2.7.1"">")
					objWriter.WriteLine( "                 <path>..\Filius_2.7.1\FiliusStart.bat</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\Filius.ico</icon>")
					objWriter.WriteLine( "             <runcount>0</runcount>")
					objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
				End If
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\XVI_2.55\installiert.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mMenueLaenge = mMenueLaenge + 30
					objWriter.WriteLine( "             <file name=""Hex Editor XVI32 2.55"">")
					objWriter.WriteLine( "                 <path>..\XVI_2.55\XVI32.exe</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\XVI32.ico</icon>")
					objWriter.WriteLine( "             <runcount>0</runcount>")
					objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
				End If
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\VLC_2.2.2\installiert.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mMenueLaenge = mMenueLaenge + 30
					objWriter.WriteLine( "             <file name=""VLC Media Player Portable 2.2.2"">")
					objWriter.WriteLine( "                 <path>..\VLC_2.2.2\VLCPortable.exe</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\VLCPortable.ico</icon>")
					objWriter.WriteLine( "             <runcount>0</runcount>")
					objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
				End If
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\VLC_3.0.16\installiert.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mMenueLaenge = mMenueLaenge + 30
					objWriter.WriteLine( "             <file name=""VLC Media Player Portable 3.0.16"">")
					objWriter.WriteLine( "                 <path>..\VLC_3.0.16\VLCPortable.exe</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\VLCPortable.ico</icon>")
					objWriter.WriteLine( "             <runcount>0</runcount>")
					objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
				End If
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Dia_0.97.2\installiert.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mMenueLaenge = mMenueLaenge + 30
					objWriter.WriteLine( "             <file name=""Dia 0.97.2"">")
					objWriter.WriteLine( "                 <path>..\Dia_0.97.2\bin\diaw.exe</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\Dia.ico</icon>")
					objWriter.WriteLine( "                 <runcount>0</runcount>")
					objWriter.WriteLine( "                 <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
				End If
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\DiagramDesigner_1.29.5\installiert.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mMenueLaenge = mMenueLaenge + 30
					objWriter.WriteLine( "             <file name=""DiagramDesigner 1.29.5"">")
					objWriter.WriteLine( "                 <path>..\DiagramDesigner_1.29.5\DiagramDesigner.exe</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\DiagramDesigner.ico</icon>")
					objWriter.WriteLine( "                 <runcount>0</runcount>")
					objWriter.WriteLine( "                 <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
				End If
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\DrawioPortable_14.5.1\installiert.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mMenueLaenge = mMenueLaenge + 30
					objWriter.WriteLine( "             <file name=""Drawio Portable 14.5.1"">")
					objWriter.WriteLine( "                 <path>..\DrawioPortable_14.5.1\drawio-portable.exe</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\Drawio.ico</icon>")
					objWriter.WriteLine( "                 <runcount>0</runcount>")
					objWriter.WriteLine( "                 <rundate>2021/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
				End If
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\eXeLearning_2.5\installiert.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mMenueLaenge = mMenueLaenge + 30
					objWriter.WriteLine( "             <file name=""eXeLearning 2.5"">")
					objWriter.WriteLine( "                 <path>..\eXeLearning_2.5\exeLearning.exe</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\exeLearning.ico</icon>")
					objWriter.WriteLine( "                 <runcount>0</runcount>")
					objWriter.WriteLine( "                 <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
				End If
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\LogicSim_2.4\installiert.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mMenueLaenge = mMenueLaenge + 30
					objWriter.WriteLine( "             <file name=""LogicSim 2.4"">")
					objWriter.WriteLine( "                 <path>..\LogicSim_2.4\LogicSimStart.bat</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\LogicSim.ico</icon>")
					objWriter.WriteLine( "                 <runcount>0</runcount>")
					objWriter.WriteLine( "                 <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\LogicSim_3.4\installiert.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mMenueLaenge = mMenueLaenge + 30
					objWriter.WriteLine( "             <file name=""LogicSim 3.4"">")
					objWriter.WriteLine( "                 <path>..\LogicSim_3.4\LogicSimStart.bat</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\LogicSim.ico</icon>")
					objWriter.WriteLine( "                 <runcount>0</runcount>")
					objWriter.WriteLine( "                 <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Processing_3.5.4\installiert.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mMenueLaenge = mMenueLaenge + 30
					objWriter.WriteLine( "             <file name=""Processing 3.5.4"">")
					objWriter.WriteLine( "                 <path>..\Processing_3.5.4\processing.exe</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\Processing.ico</icon>")
					objWriter.WriteLine( "                 <runcount>0</runcount>")
					objWriter.WriteLine( "                 <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
				End If	
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\LibreOfficePortable_5.4.3.2\installiert.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mMenueLaenge = mMenueLaenge + 30
					objWriter.WriteLine( "             <file name=""Libre Office 5.4.3.2"">")
					objWriter.WriteLine( "                 <path>..\LibreOfficePortable_5.4.3.2\LibreOfficePortable.exe</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\LibreOffice.ico</icon>")
					objWriter.WriteLine( "             <runcount>0</runcount>")
					objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\LibreOfficePortable_7.2.4\installiert.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mMenueLaenge = mMenueLaenge + 30
					objWriter.WriteLine( "             <file name=""Libre Office 7.2.4"">")
					objWriter.WriteLine( "                 <path>..\LibreOfficePortable_7.2.4\LibreOfficePortable.exe</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\LibreOffice.ico</icon>")
					objWriter.WriteLine( "             <runcount>0</runcount>")
					objWriter.WriteLine( "             <rundate>2020/01/01 12:00:00</rundate>")
					objWriter.WriteLine( "             </file>")
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\FSCapture_5.3\installiert.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mMenueLaenge = mMenueLaenge + 30
					objWriter.WriteLine( "             <file name=""FSCapture 5.3"">")
					objWriter.WriteLine( "                 <path>..\FSCapture_5.3\FSCapture.exe</path>")
					objWriter.WriteLine( "                 <icon>..\..\Icon\FSCapture.ico</icon>")
					objWriter.WriteLine( "             <runcount>0</runcount>")
					objWriter.WriteLine( "             <rundate>2019/01/31 21:46:00</rundate>")
					objWriter.WriteLine( "             </file>")
				End If
				
				objWriter.WriteLine( "         </files>")
				objWriter.WriteLine( "    </files>")
				objWriter.WriteLine( "    <notes>")
				objWriter.WriteLine( "         <note name=""Hotline per eMail:"">")
				objWriter.WriteLine( "             <text>support@schultasche-bw.de</text>")
				objWriter.WriteLine( "             <color>0C0CF7h</color>")
				objWriter.WriteLine( "         </note>")
				objWriter.WriteLine( "    </notes>")
				objWriter.WriteLine( "    <colors>")
				objWriter.WriteLine( "         <color name=""0"">")
				objWriter.WriteLine( "             <value>A0A0FFh</value>")
				objWriter.WriteLine( "         </color>")
				objWriter.WriteLine( "         <color name=""1"">")
				objWriter.WriteLine( "             <value>A0C0FFh</value>")
				objWriter.WriteLine( "         </color>")
				objWriter.WriteLine( "         <color name=""2"">")
				objWriter.WriteLine( "             <value>A0FFFFh</value>")
				objWriter.WriteLine( "         </color>")
				objWriter.WriteLine( "         <color name=""3"">")
				objWriter.WriteLine( "             <value>A0FFA0h</value>")
				objWriter.WriteLine( "         </color>")
				objWriter.WriteLine( "         <color name=""4"">")
				objWriter.WriteLine( "             <value>FFA0A0h</value>")
				objWriter.WriteLine( "         </color>")
				objWriter.WriteLine( "    </colors>")
				objWriter.WriteLine( "    <configurationfile>")
				objWriter.WriteLine( "         <backupmode>pbmNone</backupmode>")
				objWriter.WriteLine( "    </configurationfile>")
				objWriter.WriteLine( "    <execution>")
				objWriter.WriteLine( "         <count>709</count>")
				objWriter.WriteLine( "         <overalltime>1514:55:25.269</overalltime>")
				objWriter.WriteLine( "    </execution>")
				objWriter.WriteLine( "    <general>")
				objWriter.WriteLine( "         <executionaction>0</executionaction>")
				objWriter.WriteLine( "         <language>german</language>")
				objWriter.WriteLine( "         <singleclick>False</singleclick>")
				objWriter.WriteLine( "    </general>")
				objWriter.WriteLine( "    <history>")
				objWriter.WriteLine( "         <usernames>")
				objWriter.WriteLine( "         </usernames>")
				objWriter.WriteLine( "    </history>")
				objWriter.WriteLine( "    <info>")
				objWriter.WriteLine( "         <visible>False</visible>")
				objWriter.WriteLine( "    </info>")
				objWriter.WriteLine( "    <menu>")
				objWriter.WriteLine( "         <hotkeysvisible>True</hotkeysvisible>")
				objWriter.WriteLine( "    </menu>")
				objWriter.WriteLine( "    <mouse>")
				objWriter.WriteLine( "         <sensors>")
				objWriter.WriteLine( "             <bottom>")
				objWriter.WriteLine( "                 <leftaction>0</leftaction>")
				objWriter.WriteLine( "                 <rightaction>0</rightaction>")
				objWriter.WriteLine( "             </bottom>")
				objWriter.WriteLine( "             <bottomleft>")
				objWriter.WriteLine( "                 <leftaction>0</leftaction>")
				objWriter.WriteLine( "                 <rightaction>0</rightaction>")
				objWriter.WriteLine( "             </bottomleft>")
				objWriter.WriteLine( "             <bottomright>")
				objWriter.WriteLine( "                 <leftaction>0</leftaction>")
				objWriter.WriteLine( "                 <rightaction>0</rightaction>")
				objWriter.WriteLine( "             </bottomright>")
				objWriter.WriteLine( "             <cornersize>20</cornersize>")
				objWriter.WriteLine( "             <left>")
				objWriter.WriteLine( "                 <leftaction>0</leftaction>")
				objWriter.WriteLine( "                 <rightaction>0</rightaction>")
				objWriter.WriteLine( "             </left>")
				objWriter.WriteLine( "             <monitor>1</monitor>")
				objWriter.WriteLine( "             <right>")
				objWriter.WriteLine( "                 <leftaction>0</leftaction>")
				objWriter.WriteLine( "                 <rightaction>0</rightaction>")
				objWriter.WriteLine( "             </right>")
				objWriter.WriteLine( "             <top>")
				objWriter.WriteLine( "                 <leftaction>0</leftaction>")
				objWriter.WriteLine( "                 <rightaction>0</rightaction>")
				objWriter.WriteLine( "             </top>")
				objWriter.WriteLine( "             <topleft>")
				objWriter.WriteLine( "                 <leftaction>0</leftaction>")
				objWriter.WriteLine( "                 <rightaction>0</rightaction>")
				objWriter.WriteLine( "             </topleft>")
				objWriter.WriteLine( "             <topright>")
				objWriter.WriteLine( "                 <leftaction>0</leftaction>")
				objWriter.WriteLine( "                 <rightaction>0</rightaction>")
				objWriter.WriteLine( "             </topright>")
				objWriter.WriteLine( "         </sensors>")
				objWriter.WriteLine( "    </mouse>")
				objWriter.WriteLine( "    <note>")
				objWriter.WriteLine( "         <alarm>")
				objWriter.WriteLine( "             <notify>")
				objWriter.WriteLine( "                 <autoclose>False</autoclose>")
				objWriter.WriteLine( "                 <duration>10</duration>")
				objWriter.WriteLine( "                 <sound></sound>")
				objWriter.WriteLine( "             </notify>")
				objWriter.WriteLine( "             <recenttime>2007/10/09 10:10:52</recenttime>")
				objWriter.WriteLine( "         </alarm>")
				objWriter.WriteLine( "         <defaultcolor>A0FFFFh</defaultcolor>")
				objWriter.WriteLine( "         <style>0</style>")
				objWriter.WriteLine( "         <visible>True</visible>")
				objWriter.WriteLine( "         <wordbreak>1</wordbreak>")
				objWriter.WriteLine( "    </note>")
				objWriter.WriteLine( "    <panel>")
				objWriter.WriteLine( "         <closemode>2</closemode>")
				objWriter.WriteLine( "         <hotkey>True</hotkey>")
				objWriter.WriteLine( "         <hotkeyclose>True</hotkeyclose>")
				objWriter.WriteLine( "         <hotkeycode>15</hotkeycode>")
				objWriter.WriteLine( "         <hotkeymodifier>7</hotkeymodifier>")
				objWriter.WriteLine( "         <pageindex>0</pageindex>")
				objWriter.WriteLine( "         <position>1</position>")
				objWriter.WriteLine( "         <showonstartup>True</showonstartup>")
				objWriter.WriteLine( "         <staticsize>False</staticsize>")
				objWriter.WriteLine( "         <title>Informatikstick  "  & mStartVersion & "  " & nofkInfoTitle & "  IP: " & mMeineIP & "</title>")
				objWriter.WriteLine( "    </panel>")
				objWriter.WriteLine( "    <search>")
				objWriter.WriteLine( "         <allusersstartmenu>True</allusersstartmenu>")
				objWriter.WriteLine( "         <colorize>True</colorize>")
				objWriter.WriteLine( "         <colors>")
				objWriter.WriteLine( "             <allusersstartmenu>0080FFh</allusersstartmenu>")
				objWriter.WriteLine( "             <currentuserstartmenu>40A000h</currentuserstartmenu>")
				objWriter.WriteLine( "             <pstart>FF4040h</pstart>")
				objWriter.WriteLine( "         </colors>")
				objWriter.WriteLine( "         <currentuserstartmenu>True</currentuserstartmenu>")
				objWriter.WriteLine( "         <includemode>0</includemode>")
				objWriter.WriteLine( "         <pstart>True</pstart>")
				objWriter.WriteLine( "         <sort>0</sort>")
				objWriter.WriteLine( "    </search>")
				objWriter.WriteLine( "    <style>")
				objWriter.WriteLine( "         <additionaltextcolor>000000h</additionaltextcolor>")
				If mStartUpdate.Length > 0 Then
					objWriter.WriteLine( "         <backgroundimage>..\..\Icon\LBS_StartUpdate.png</backgroundimage>")
				Else
					objWriter.WriteLine( "         <backgroundimage>..\..\Icon\LBS.png</backgroundimage>")
				End If
				
				objWriter.WriteLine( "         <captioncolor>000000h</captioncolor>")
				objWriter.WriteLine( "         <iconsize>0</iconsize>")
				objWriter.WriteLine( "         <iteminfomode>0</iteminfomode>")
				objWriter.WriteLine( "    </style>")
				objWriter.WriteLine( "    <tray>")
				objWriter.WriteLine( "         <doubleclick>1</doubleclick>")
				objWriter.WriteLine( "         <hotkey>False</hotkey>")
				objWriter.WriteLine( "         <hotkeycode>12</hotkeycode>")
				objWriter.WriteLine( "         <hotkeymodifier>7</hotkeymodifier>")
				objWriter.WriteLine( "         <hover>0</hover>")
				objWriter.WriteLine( "         <iconimage>4</iconimage>")
				objWriter.WriteLine( "         <iconvisibility>0</iconvisibility>")
				objWriter.WriteLine( "         <leftclick>2</leftclick>")
				objWriter.WriteLine( "    </tray>")
				objWriter.WriteLine( "    <window>")
				objWriter.WriteLine( "         <main>")
				objWriter.WriteLine( "             <position>")
				objWriter.WriteLine( "                 <x>707</x>")
				objWriter.WriteLine( "                 <y>170</y>")
				objWriter.WriteLine( "             </position>")
				objWriter.WriteLine( "             <size>")
				objWriter.WriteLine( "                 <x>400</x>")
				If mMenueLaenge < 870 Then
					objWriter.WriteLine( "                 <y>" & mMenueLaenge & "</y>")
				Else
					objWriter.WriteLine( "                 <y>870</y>")	
				End If
				objWriter.WriteLine( "             </size>")
				objWriter.WriteLine( "         </main>")
				objWriter.WriteLine( "    </window>")
				objWriter.WriteLine( "</start>")
				objWriter.Close()
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\Xampp\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				Shell (mInstalVerzeichnisBackSlash & "Programme\Xampp\setup_xampp_zwang.bat")
				mDateiliste(0) = mInstalVerzeichnisBackSlash & "Programme\Xampp\FileZillaFTP\FileZilla Server.xml"
				mDateiliste(1) = mInstalVerzeichnisBackSlash & "Programme\Xampp\properties.ini"
				mDateiliste(2) = mInstalVerzeichnisBackSlash & "Programme\Xampp\apacheEclipse_start.bat"
				For Me.mMeinZaehler  = 0 To 2
					mFileName  = mDateiliste(mMeinZaehler)
					If System.IO.File.Exists(mFileName) = True Then
						txt = IO.File.ReadAllText(mFileName)
						mFundstelle = 1
						While mFundstelle > 0
							mFundstelle = txt.IndexOf("\Programme\")
							If mFundstelle > 0 then
								mStellenZaehler = mFundstelle
								While txt.Substring(mStellenZaehler,1) <> ":"
									mStellenZaehler = mStellenZaehler - 1
									If mStellenZaehler < 0 Then
										mFundstelle = -1
										Exit While 
									End If
								End While
								If mStellenZaehler > -1 Then
									mDoppelpunktStelle = mStellenZaehler
									txt = txt.Substring(0,mDoppelpunktStelle-1) & "ProgrammePfad" & txt.Substring(mFundstelle + 10,txt.Length - mFundstelle - 10)
								End If
							End If
						End While
						mFundstelle = 1
						While mFundstelle > 0
							mFundstelle = txt.IndexOf("\EigeneDateien\")
							If mFundstelle > 0 then
								mStellenZaehler = mFundstelle
								While txt.Substring(mStellenZaehler,1) <> ":"
									mStellenZaehler = mStellenZaehler - 1
									If mStellenZaehler < 0 Then
										mFundstelle = -1
										Exit While 
									End If
								End While
								If mStellenZaehler > -1 Then
									mDoppelpunktStelle = mStellenZaehler
									txt = txt.Substring(0,mDoppelpunktStelle-1) & "EigeneDateienPfad" & txt.Substring(mFundstelle + 14,txt.Length - mFundstelle - 14)
								End If
							End If
						End While
						txt = txt.Replace("ProgrammePfad", mInstalVerzeichnisBackSlash & "Programme")
						txt = txt.Replace("EigeneDateienPfad", mEigeneDateienVerzeichnisBackSlash)
						IO.File.WriteAllText(mFileName,txt)
					End If
				Next mMeinZaehler
				mDateiliste(0) = mInstalVerzeichnisBackSlash & "Programme\Xampp\apache\conf\extra\httpd-ssl.conf"
				mDateiliste(1) = mInstalVerzeichnisBackSlash & "Programme\Xampp\apache\conf\extra\httpd-xampp.conf"
				mDateiliste(2) = mInstalVerzeichnisBackSlash & "Programme\Xampp\apache\conf\extra\httpd-vhosts.conf"
				mDateiliste(3) = mInstalVerzeichnisBackSlash & "Programme\Xampp\apache\conf\extra\httpd-multilang-errordoc.conf"
				mDateiliste(4) = mInstalVerzeichnisBackSlash & "Programme\Xampp\apache\conf\extra\httpd-manual.conf"
				mDateiliste(5) = mInstalVerzeichnisBackSlash & "Programme\Xampp\apache\conf\extra\httpd-dav.conf"
				mDateiliste(6) = mInstalVerzeichnisBackSlash & "Programme\Xampp\apache\conf\extra\httpd-autoindex.conf"
				For Me.mMeinZaehler  = 0 To 6
					mFileName  = mDateiliste(mMeinZaehler)
					If System.IO.File.Exists(mFileName) = True Then
						txt = IO.File.ReadAllText(mFileName)
						mFundstelle = 1
						While mFundstelle > 0
							mFundstelle = txt.IndexOf("/Programme/")
							If mFundstelle > 0 then
								mStellenZaehler = mFundstelle
								While txt.Substring(mStellenZaehler,2) <> ":/" 
									If txt.Substring(mStellenZaehler,2) = Chr(34) & "/" Then
										Exit While 
									End If
									mStellenZaehler = mStellenZaehler - 1
								End While
								mDoppelpunktStelle = mStellenZaehler
								txt = txt.Substring(0,mDoppelpunktStelle+1) & "ProgrammePfad" & txt.Substring(mFundstelle + 10,txt.Length - mFundstelle - 10)
							End If
						End While
						txt = txt.Replace("ProgrammePfad", mInstalVerzeichnisOhneLaufwerksbuchstabeSlash & "Programme")			
						IO.File.WriteAllText(mFileName,txt)
					End If
				Next mMeinZaehler
				mDateiliste(0) = mInstalVerzeichnisBackSlash & "Programme\Xampp\php\php.ini"
				mDateiliste(1) = mInstalVerzeichnisBackSlash & "Programme\Xampp\cgi-bin\perltest.cgi"
				mDateiliste(2) = mInstalVerzeichnisBackSlash & "Programme\Xampp\cgi-bin\cgi.cgi"
				mDateiliste(3) = mInstalVerzeichnisBackSlash & "Programme\Xampp\php\phpunit.bat"
				mDateiliste(4) = mInstalVerzeichnisBackSlash & "Programme\Xampp\php\pecl.bat"
				mDateiliste(5) = mInstalVerzeichnisBackSlash & "Programme\Xampp\php\peardev.bat"
				mDateiliste(6) = mInstalVerzeichnisBackSlash & "Programme\Xampp\php\pear.bat"
				mDateiliste(7) = mInstalVerzeichnisBackSlash & "Programme\Xampp\php\pciconf.bat"
				mDateiliste(8) = mInstalVerzeichnisBackSlash & "Programme\Xampp\php\pci.bat"
				mDateiliste(9) = mInstalVerzeichnisBackSlash & "Programme\Xampp\php\phpunit"
				mDateiliste(10) = mInstalVerzeichnisBackSlash & "Programme\Xampp\php\pci"
				mDateiliste(11) = mInstalVerzeichnisBackSlash & "Programme\Xampp\php\pciconf"
				mDateiliste(12) = mInstalVerzeichnisBackSlash & "Programme\Xampp\php\pear\pearcmd.php"
				mDateiliste(13) = mInstalVerzeichnisBackSlash & "Programme\Xampp\php\pear\peclcmd.php"
				mDateiliste(14) = mInstalVerzeichnisBackSlash & "Programme\Xampp\php\pear\PHPUnit\Util\PHP.php"
				For Me.mMeinZaehler  = 0 To 14
					mFileName  = mDateiliste(mMeinZaehler)
					If System.IO.File.Exists(mFileName) = True Then
						txt = IO.File.ReadAllText(mFileName)
						mFundstelle = 1
						While mFundstelle > 0
							mFundstelle = txt.IndexOf("\Programme\")
							If mFundstelle > 0 then
								mStellenZaehler = mFundstelle
								While txt.Substring(mStellenZaehler,2) <> "=\" 
									If txt.Substring(mStellenZaehler,2) = Chr(34) & "\" Then
										Exit While 
									End If
									If txt.Substring(mStellenZaehler,2) = " \" Then
										Exit While 
									End If
									If txt.Substring(mStellenZaehler,2) = chr(10) & "\" Then
										Exit While 
									End If
									If txt.Substring(mStellenZaehler,2) = "l\" Then
										Exit While 
									End If
									If txt.Substring(mStellenZaehler,2) = "!\" Then
										Exit While 
									End If
									If txt.Substring(mStellenZaehler,2) = "'\" Then
										Exit While 
									End If
									If txt.Substring(mStellenZaehler,2) = "r\" Then
										Exit While 
									End If
									mStellenZaehler = mStellenZaehler - 1
								End While
								mDoppelpunktStelle = mStellenZaehler
								txt = txt.Substring(0,mDoppelpunktStelle+1) & "ProgrammePfad" & txt.Substring(mFundstelle + 10,txt.Length - mFundstelle - 10)
							End If
						End While
						txt = txt.Replace("ProgrammePfad", mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash & "Programme")	
						IO.File.WriteAllText(mFileName,txt)
					End If
				Next mMeinZaehler
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Xampp\apache\conf\httpd.conf"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter(mFileName)
					objWriter.WriteLine("ServerRoot """ & mInstalVerzeichnisSlash & "Programme/Xampp/apache""")
					objWriter.WriteLine("Listen 80")
					objWriter.WriteLine("LoadModule access_compat_module modules/mod_access_compat.so")
					objWriter.WriteLine("LoadModule actions_module modules/mod_actions.so")
					objWriter.WriteLine("LoadModule alias_module modules/mod_alias.so")
					objWriter.WriteLine("LoadModule allowmethods_module modules/mod_allowmethods.so")
					objWriter.WriteLine("LoadModule asis_module modules/mod_asis.so")
					objWriter.WriteLine("LoadModule auth_basic_module modules/mod_auth_basic.so")
					objWriter.WriteLine("LoadModule authn_core_module modules/mod_authn_core.so")
					objWriter.WriteLine("LoadModule authn_file_module modules/mod_authn_file.so")
					objWriter.WriteLine("LoadModule authz_core_module modules/mod_authz_core.so")
					objWriter.WriteLine("LoadModule authz_groupfile_module modules/mod_authz_groupfile.so")
					objWriter.WriteLine("LoadModule authz_host_module modules/mod_authz_host.so")
					objWriter.WriteLine("LoadModule authz_user_module modules/mod_authz_user.so")
					objWriter.WriteLine("LoadModule autoindex_module modules/mod_autoindex.so")
					objWriter.WriteLine("LoadModule cgi_module modules/mod_cgi.so")
					objWriter.WriteLine("LoadModule dav_lock_module modules/mod_dav_lock.so")
					objWriter.WriteLine("LoadModule dir_module modules/mod_dir.so")
					objWriter.WriteLine("LoadModule env_module modules/mod_env.so")
					objWriter.WriteLine("LoadModule headers_module modules/mod_headers.so")
					objWriter.WriteLine("LoadModule include_module modules/mod_include.so")
					objWriter.WriteLine("LoadModule info_module modules/mod_info.so")
					objWriter.WriteLine("LoadModule isapi_module modules/mod_isapi.so")
					objWriter.WriteLine("LoadModule log_config_module modules/mod_log_config.so")
					objWriter.WriteLine("LoadModule cache_disk_module modules/mod_cache_disk.so")
					objWriter.WriteLine("LoadModule mime_module modules/mod_mime.so")
					objWriter.WriteLine("LoadModule negotiation_module modules/mod_negotiation.so")
					objWriter.WriteLine("LoadModule proxy_module modules/mod_proxy.so")
					objWriter.WriteLine("LoadModule proxy_ajp_module modules/mod_proxy_ajp.so")
					objWriter.WriteLine("LoadModule rewrite_module modules/mod_rewrite.so")
					objWriter.WriteLine("LoadModule setenvif_module modules/mod_setenvif.so")
					objWriter.WriteLine("LoadModule socache_shmcb_module modules/mod_socache_shmcb.so")
					objWriter.WriteLine("LoadModule ssl_module modules/mod_ssl.so")
					objWriter.WriteLine("LoadModule status_module modules/mod_status.so")
					objWriter.WriteLine("LoadModule version_module modules/mod_version.so")
					objWriter.WriteLine("<IfModule unixd_module>")
					objWriter.WriteLine("User daemon")
					objWriter.WriteLine("Group daemon")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("ServerAdmin postmaster@localhost")
					objWriter.WriteLine("ServerName localhost:80")
					objWriter.WriteLine("<Directory />")
					objWriter.WriteLine("AllowOverride none")
					objWriter.WriteLine("Require all denied")
					objWriter.WriteLine("</Directory>")
					objWriter.WriteLine("DocumentRoot """ & mEigeneDateienVerzeichnisSlash & "/myPHP""")
					objWriter.WriteLine("<Directory """ & mEigeneDateienVerzeichnisSlash & "/myPHP"">")
					objWriter.WriteLine("Options Indexes FollowSymLinks Includes ExecCGI")
					objWriter.WriteLine("AllowOverride All")
					objWriter.WriteLine("Require all granted")
					objWriter.WriteLine("</Directory>")
					objWriter.WriteLine("<IfModule dir_module>")
					objWriter.WriteLine("DirectoryIndex index.php index.pl index.cgi index.asp index.shtml index.html index.htm \")
					objWriter.WriteLine("default.php default.pl default.cgi default.asp default.shtml default.html default.htm \")
					objWriter.WriteLine("home.php home.pl home.cgi home.asp home.shtml home.html home.htm")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("<Files """  & ".ht*" & """>")
					objWriter.WriteLine("Require all denied")
					objWriter.WriteLine("</Files>")
					objWriter.WriteLine("ErrorLog """ & "logs/error.log" & """ ")
					objWriter.WriteLine("LogLevel warn")
					objWriter.WriteLine("<IfModule log_config_module>")
					objWriter.WriteLine("LogFormat """ &  "%h %l %u %t \""" & "%r\"  & " %>s %b \""%{Referer}i\"" \""%{User-Agent}i\"""" combined")
					objWriter.WriteLine("LogFormat """ &  "%h %l %u %t \""" & "%r\"  & " %>s %b"" common")
					objWriter.WriteLine("<IfModule logio_module>")
					objWriter.WriteLine("LogFormat """ &  "%h %l %u %t \""" & "%r\"  & " %>s %b \""%{Referer}i\"" \""%{User-Agent}i\"" %I %O combinedio")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("CustomLog """ & "logs/access.log"" combined")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("<IfModule alias_module>")
					objWriter.WriteLine("ScriptAlias /cgi-bin/  """ & mInstalVerzeichnisSlash & "Programme/Xampp/cgi-bin/""")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("<IfModule cgid_module>")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("<Directory """ & mInstalVerzeichnisSlash & "Programme/Xampp/cgi-bin"">")
					objWriter.WriteLine("AllowOverride All")
					objWriter.WriteLine("Options None")
					objWriter.WriteLine("Require all granted")
					objWriter.WriteLine("</Directory>")
					objWriter.WriteLine("<IfModule headers_module>")
					objWriter.WriteLine("RequestHeader unset Proxy early")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("<IfModule mime_module>")
					objWriter.WriteLine("TypesConfig conf/mime.types")
					objWriter.WriteLine("AddType application/x-compress .Z")
					objWriter.WriteLine("AddType application/x-gzip .gz .tgz")
					objWriter.WriteLine("AddHandler cgi-script .cgi .pl .asp")
					objWriter.WriteLine("AddType text/html .shtml")
					objWriter.WriteLine("AddOutputFilter INCLUDES .shtml")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("<IfModule mime_magic_module>")
					objWriter.WriteLine("MIMEMagicFile """ & "conf/magic""")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("Include conf/extra/httpd-mpm.conf")
					objWriter.WriteLine("Include conf/extra/httpd-multilang-errordoc.conf")
					objWriter.WriteLine("Include conf/extra/httpd-autoindex.conf")
					objWriter.WriteLine("Include conf/extra/httpd-languages.conf")
					objWriter.WriteLine("Include conf/extra/httpd-userdir.conf")
					objWriter.WriteLine("Include conf/extra/httpd-info.conf")
					objWriter.WriteLine("Include conf/extra/httpd-vhosts.conf")
					objWriter.WriteLine("Include """ & "conf/extra/httpd-proxy.conf""")
					objWriter.WriteLine("Include """ & "conf/extra/httpd-default.conf""")
					objWriter.WriteLine("Include """ & "conf/extra/httpd-Xampp.conf""")
					objWriter.WriteLine("<IfModule proxy_html_module>")
					objWriter.WriteLine("Include conf/extra/proxy-html.conf")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("Include conf/extra/httpd-ssl.conf")
					objWriter.WriteLine("<IfModule ssl_module>")
					objWriter.WriteLine("SSLRandomSeed startup builtin")
					objWriter.WriteLine("SSLRandomSeed connect builtin")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("AcceptFilter http none")
					objWriter.WriteLine("AcceptFilter https none")
					objWriter.WriteLine("<IfModule mod_proxy.c>")
					objWriter.WriteLine("<IfModule mod_proxy_ajp.c>")
					objWriter.WriteLine("Include """ & "conf/extra/httpd-ajp.conf""")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("</IfModule>")
					objWriter.Close()
				End If
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Xampp\apache\conf\httpdeclipse.conf"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter(mFileName)
					objWriter.WriteLine("ServerRoot """ & mInstalVerzeichnisBackSlash & "Programme/Xampp/apache""")
					objWriter.WriteLine("Listen 80")
					objWriter.WriteLine("LoadModule access_compat_module modules/mod_access_compat.so")
					objWriter.WriteLine("LoadModule actions_module modules/mod_actions.so")
					objWriter.WriteLine("LoadModule alias_module modules/mod_alias.so")
					objWriter.WriteLine("LoadModule allowmethods_module modules/mod_allowmethods.so")
					objWriter.WriteLine("LoadModule asis_module modules/mod_asis.so")
					objWriter.WriteLine("LoadModule auth_basic_module modules/mod_auth_basic.so")
					objWriter.WriteLine("LoadModule authn_core_module modules/mod_authn_core.so")
					objWriter.WriteLine("LoadModule authn_file_module modules/mod_authn_file.so")
					objWriter.WriteLine("LoadModule authz_core_module modules/mod_authz_core.so")
					objWriter.WriteLine("LoadModule authz_groupfile_module modules/mod_authz_groupfile.so")
					objWriter.WriteLine("LoadModule authz_host_module modules/mod_authz_host.so")
					objWriter.WriteLine("LoadModule authz_user_module modules/mod_authz_user.so")
					objWriter.WriteLine("LoadModule autoindex_module modules/mod_autoindex.so")
					objWriter.WriteLine("LoadModule cgi_module modules/mod_cgi.so")
					objWriter.WriteLine("LoadModule dav_lock_module modules/mod_dav_lock.so")
					objWriter.WriteLine("LoadModule dir_module modules/mod_dir.so")
					objWriter.WriteLine("LoadModule env_module modules/mod_env.so")
					objWriter.WriteLine("LoadModule headers_module modules/mod_headers.so")
					objWriter.WriteLine("LoadModule include_module modules/mod_include.so")
					objWriter.WriteLine("LoadModule info_module modules/mod_info.so")
					objWriter.WriteLine("LoadModule isapi_module modules/mod_isapi.so")
					objWriter.WriteLine("LoadModule log_config_module modules/mod_log_config.so")
					objWriter.WriteLine("LoadModule cache_disk_module modules/mod_cache_disk.so")
					objWriter.WriteLine("LoadModule mime_module modules/mod_mime.so")
					objWriter.WriteLine("LoadModule negotiation_module modules/mod_negotiation.so")
					objWriter.WriteLine("LoadModule proxy_module modules/mod_proxy.so")
					objWriter.WriteLine("LoadModule proxy_ajp_module modules/mod_proxy_ajp.so")
					objWriter.WriteLine("LoadModule rewrite_module modules/mod_rewrite.so")
					objWriter.WriteLine("LoadModule setenvif_module modules/mod_setenvif.so")
					objWriter.WriteLine("LoadModule socache_shmcb_module modules/mod_socache_shmcb.so")
					objWriter.WriteLine("LoadModule ssl_module modules/mod_ssl.so")
					objWriter.WriteLine("LoadModule status_module modules/mod_status.so")
					objWriter.WriteLine("LoadModule version_module modules/mod_version.so")
					objWriter.WriteLine("<IfModule unixd_module>")
					objWriter.WriteLine("User daemon")
					objWriter.WriteLine("Group daemon")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("ServerAdmin postmaster@localhost")
					objWriter.WriteLine("ServerName localhost:80")
					objWriter.WriteLine("<Directory />")
					objWriter.WriteLine("AllowOverride none")
					objWriter.WriteLine("Require all denied")
					objWriter.WriteLine("</Directory>")
					objWriter.WriteLine("DocumentRoot """ & mEigeneDateienVerzeichnisSlash & "/myEclipseWorkspace""")
					objWriter.WriteLine("<Directory """ & mEigeneDateienVerzeichnisSlash & "/myEclipseWorkspace"">")
					objWriter.WriteLine("Options Indexes FollowSymLinks Includes ExecCGI")
					objWriter.WriteLine("AllowOverride All")
					objWriter.WriteLine("Require all granted")
					objWriter.WriteLine("</Directory>")
					objWriter.WriteLine("<IfModule dir_module>")
					objWriter.WriteLine("DirectoryIndex index.php index.pl index.cgi index.asp index.shtml index.html index.htm \")
					objWriter.WriteLine("default.php default.pl default.cgi default.asp default.shtml default.html default.htm \")
					objWriter.WriteLine("home.php home.pl home.cgi home.asp home.shtml home.html home.htm")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("<Files """  & ".ht*" & """>")
					objWriter.WriteLine("Require all denied")
					objWriter.WriteLine("</Files>")
					objWriter.WriteLine("ErrorLog """ & "logs/error.log" & """ ")
					objWriter.WriteLine("LogLevel warn")
					objWriter.WriteLine("<IfModule log_config_module>")
					objWriter.WriteLine("LogFormat """ &  "%h %l %u %t \""" & "%r\"  & " %>s %b \""%{Referer}i\"" \""%{User-Agent}i\"""" combined")
					objWriter.WriteLine("LogFormat """ &  "%h %l %u %t \""" & "%r\"  & " %>s %b"" common")
					objWriter.WriteLine("<IfModule logio_module>")
					objWriter.WriteLine("LogFormat """ &  "%h %l %u %t \""" & "%r\"  & " %>s %b \""%{Referer}i\"" \""%{User-Agent}i\"" %I %O combinedio")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("CustomLog """ & "logs/access.log"" combined")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("<IfModule alias_module>")
					objWriter.WriteLine("ScriptAlias /cgi-bin/  """ & mInstalVerzeichnisBackSlash & "/Programme/Xampp/cgi-bin/""")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("<IfModule cgid_module>")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("<Directory """ & mInstalVerzeichnisBackSlash & "/Programme/Xampp/cgi-bin"">")
					objWriter.WriteLine("AllowOverride All")
					objWriter.WriteLine("Options None")
					objWriter.WriteLine("Require all granted")
					objWriter.WriteLine("</Directory>")
					objWriter.WriteLine("<IfModule headers_module>")
					objWriter.WriteLine("RequestHeader unset Proxy early")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("<IfModule mime_module>")
					objWriter.WriteLine("TypesConfig conf/mime.types")
					objWriter.WriteLine("AddType application/x-compress .Z")
					objWriter.WriteLine("AddType application/x-gzip .gz .tgz")
					objWriter.WriteLine("AddHandler cgi-script .cgi .pl .asp")
					objWriter.WriteLine("AddType text/html .shtml")
					objWriter.WriteLine("AddOutputFilter INCLUDES .shtml")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("<IfModule mime_magic_module>")
					objWriter.WriteLine("MIMEMagicFile """ & "conf/magic""")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("Include conf/extra/httpd-mpm.conf")
					objWriter.WriteLine("Include conf/extra/httpd-multilang-errordoc.conf")
					objWriter.WriteLine("Include conf/extra/httpd-autoindex.conf")
					objWriter.WriteLine("Include conf/extra/httpd-languages.conf")
					objWriter.WriteLine("Include conf/extra/httpd-userdir.conf")
					objWriter.WriteLine("Include conf/extra/httpd-info.conf")
					objWriter.WriteLine("Include conf/extra/httpd-vhosts.conf")
					objWriter.WriteLine("Include """ & "conf/extra/httpd-proxy.conf""")
					objWriter.WriteLine("Include """ & "conf/extra/httpd-default.conf""")
					objWriter.WriteLine("Include """ & "conf/extra/httpd-Xampp.conf""")
					objWriter.WriteLine("<IfModule proxy_html_module>")
					objWriter.WriteLine("Include conf/extra/proxy-html.conf")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("Include conf/extra/httpd-ssl.conf")
					objWriter.WriteLine("<IfModule ssl_module>")
					objWriter.WriteLine("SSLRandomSeed startup builtin")
					objWriter.WriteLine("SSLRandomSeed connect builtin")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("AcceptFilter http none")
					objWriter.WriteLine("AcceptFilter https none")
					objWriter.WriteLine("<IfModule mod_proxy.c>")
					objWriter.WriteLine("<IfModule mod_proxy_ajp.c>")
					objWriter.WriteLine("Include """ & "conf/extra/httpd-ajp.conf""")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("</IfModule>")
					objWriter.Close()
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Xampp\mysql\bin\my.ini"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter(mFileName)
					objWriter.WriteLine("[client]")
					objWriter.WriteLine("port = 3306")
					objWriter.WriteLine("socket = """ & mInstalVerzeichnisSlash & "Programme/Xampp/mysql/mysql.sock""")
					objWriter.WriteLine("")
					objWriter.WriteLine("[mysqld]")
					objWriter.WriteLine("port= 3306")
					objWriter.WriteLine("socket = """ & mInstalVerzeichnisSlash & "Programme/Xampp/mysql/mysql.sock""")
					objWriter.WriteLine("basedir = """ & mInstalVerzeichnisSlash & "Programme/Xampp/mysql""")
					objWriter.WriteLine("tmpdir = """ & mInstalVerzeichnisSlash & "Programme/Xampp/tmp""")
					objWriter.WriteLine("datadir = """ & mEigeneDateienVerzeichnisSlash &"/mySQLdata""")
					objWriter.WriteLine("pid_file = """ & "mysql.pid""")
					objWriter.WriteLine("")
					objWriter.WriteLine("key_buffer_size = 16M")
					objWriter.WriteLine("max_allowed_packet = 1M")
					objWriter.WriteLine("sort_buffer_size = 512K")
					objWriter.WriteLine("net_buffer_length = 8K")
					objWriter.WriteLine("read_buffer_size = 256K")
					objWriter.WriteLine("read_rnd_buffer_size = 512K")
					objWriter.WriteLine("myisam_sort_buffer_size = 8M")
					objWriter.WriteLine("log_error = """ & "mysql_error.log""")
					objWriter.WriteLine("plugin_dir = """ & mInstalVerzeichnisSlash & "Programme/Xampp/mysql/lib/plugin/""")
					objWriter.WriteLine("server-id = 1")
					objWriter.WriteLine("innodb_data_home_dir = """ & mEigeneDateienVerzeichnisSlash & "/mySQLdata""")
					objWriter.WriteLine("innodb_data_file_path = ibdata1:12M:autoextend")
					objWriter.WriteLine("innodb_log_group_home_dir = """ & mEigeneDateienVerzeichnisSlash & "/mySQLdata""")
					objWriter.WriteLine("innodb_buffer_pool_size = 16M")
					objWriter.WriteLine("innodb_log_file_size = 5M")
					objWriter.WriteLine("innodb_log_buffer_size = 8M")
					objWriter.WriteLine("innodb_flush_log_at_trx_commit = 1")
					objWriter.WriteLine("innodb_lock_wait_timeout = 50")
					objWriter.WriteLine("")
					objWriter.WriteLine("")
					objWriter.WriteLine("init-connect='SET NAMES utf8'")
					objWriter.WriteLine("collation_server=utf8_unicode_ci")
					objWriter.WriteLine("character_set_server=utf8")
					objWriter.WriteLine("skip-character-set-client-handshake")
					objWriter.WriteLine("character_sets-dir=""" & mInstalVerzeichnisSlash & "Programme/Xampp/mysql/share/charsets""")
					objWriter.WriteLine("")
					objWriter.WriteLine("[mysqldump]")
					objWriter.WriteLine("quick")
					objWriter.WriteLine("max_allowed_packet = 16M")
					objWriter.WriteLine("")
					objWriter.WriteLine("[mysql]")
					objWriter.WriteLine("no-auto-rehash")
					objWriter.WriteLine("default-character-set = utf8")
					objWriter.WriteLine("")
					objWriter.WriteLine("[isamchk]")
					objWriter.WriteLine("key_buffer_size = 20M")
					objWriter.WriteLine("sort_buffer_size = 20M")
					objWriter.WriteLine("read_buffer_size = 2M")
					objWriter.WriteLine("write_buffer_size = 2M")
					objWriter.WriteLine("")
					objWriter.WriteLine("[myisamchk]")
					objWriter.WriteLine("key_buffer_size = 20M")
					objWriter.WriteLine("sort_buffer_size = 20M")
					objWriter.WriteLine("read_buffer_size = 2M")
					objWriter.WriteLine("write_buffer_size = 2M")
					objWriter.WriteLine("")
					objWriter.WriteLine("[mysqlhotcopy]")
					objWriter.WriteLine("interactive-timeout")
					objWriter.WriteLine("")
					objWriter.WriteLine("[mysqlimport]")
					objWriter.WriteLine("default-character-set = utf8")
					objWriter.Close()
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Xampp\wordpress_start.bat"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter(mFileName)
					objWriter.WriteLine("@echo off")
					objWriter.WriteLine("start xampp-control.exe")
					objWriter.WriteLine("start mysql_start.bat")
					objWriter.WriteLine("cd /D %~dp0")
					objWriter.WriteLine("echo Diese Eingabeforderung nicht waehrend des Running beenden")
					objWriter.WriteLine("echo Bitte erst bei einem gewollten Shutdown schliessen")
					objWriter.WriteLine("echo.")
					objWriter.WriteLine("echo Apache started ...")
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\OperaPortable_62.0\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						objWriter.WriteLine("start " & mInstalVerzeichnisBackSlash & "Programme\OperaPortable_62.0\launcher.exe --disable-update  --proxy-server=localhost:80  ""localhost/mywordpress_projekte/""")
					Else
						objWriter.WriteLine("start http://localhost/mywordpress_projekte/")
					End If
					objWriter.WriteLine("apache\bin\httpd.exe")
					objWriter.WriteLine("if errorlevel 255 goto finish")
					objWriter.WriteLine("if errorlevel 1 goto error")
					objWriter.WriteLine("goto finish")
					objWriter.WriteLine(":error")
					objWriter.WriteLine("echo.")
					objWriter.WriteLine("echo Apache konnte nicht gestartet werden")
					objWriter.WriteLine("pause")
					objWriter.WriteLine(":finish")
					objWriter.Close()
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Xampp\apache_start.bat"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter(mFileName)
					objWriter.WriteLine("@echo off")
					objWriter.WriteLine("cd /D %~dp0")
					objWriter.WriteLine("echo Diese Eingabeforderung nicht waehrend des Running beenden")
					objWriter.WriteLine("echo Bitte erst bei einem gewollten Shutdown schliessen")
					objWriter.WriteLine("echo.")
					objWriter.WriteLine("echo Apache started ...")
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\OperaPortable_62.0\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						objWriter.WriteLine("start " & mInstalVerzeichnisBackSlash & "Programme\OperaPortable_62.0\launcher.exe --disable-update --proxy-server=localhost:80  ""localhost/apachefunktioniert.php""")
					Else
						objWriter.WriteLine("start http://localhost/apachefunktioniert.php")
					End If
					objWriter.WriteLine("apache\bin\httpd.exe")
					objWriter.Close()
				End If
				
				mFileName  = mEigeneDateienVerzeichnisBackSlash & "\myJSP\TomcatTest\tomcatfunktioniert.jsp"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter(mFileName)
					objWriter.WriteLine( "<html>")
					objWriter.WriteLine( "<head>")
					objWriter.WriteLine( "<title>Tomcat - Server funktioniert</title>")
					objWriter.WriteLine( "</head>")
					objWriter.WriteLine( "<body>")
					objWriter.WriteLine( "<div align=center>")
					objWriter.WriteLine( "<h1>Wenn Sie hier das Alphabet sehen, funktioniert der Tomcat - Server</h1>")
					objWriter.WriteLine( "<h2>")
					objWriter.WriteLine( "<font color=#FF0000>")
					objWriter.WriteLine( "<%")
					objWriter.WriteLine( "for (int mZaehler = 65; mZaehler < 91; mZaehler++)")
					objWriter.WriteLine( "{")
					objWriter.WriteLine( "out.println((char)mZaehler);")
					objWriter.WriteLine( "}")
					objWriter.WriteLine( "%>")
					objWriter.WriteLine( "<font color=#0000FF><h5>")
					objWriter.WriteLine( "Tomcat Version : <%= application.getServerInfo() %><br>")    
					objWriter.WriteLine( "Servlet Specification Version :") 
					objWriter.WriteLine( "<%= application.getMajorVersion() %>.<%= application.getMinorVersion() %> <br>")    
					objWriter.WriteLine( "JSP version :")
					objWriter.WriteLine( "<%=JspFactory.getDefaultFactory().getEngineInfo().getSpecificationVersion() %><br>")
					objWriter.WriteLine( "</h5>")
					objWriter.WriteLine( "<font color=#000000>")
					objWriter.WriteLine( "</h2>")
					objWriter.WriteLine( "<h2>Legen Sie Ihren Projektordner ab in: </h2>")
					objWriter.WriteLine( "<h2>" & mEigeneDateienVerzeichnisBackSlash & "\myJSP</h2>")
					objWriter.WriteLine( "</div>")
					objWriter.WriteLine( "</body>")
					objWriter.WriteLine( "</html>")
					objWriter.Close()
				End If
				
				mFileName  = mEigeneDateienVerzeichnisBackSlash & "\myPHP\apachefunktioniert.php"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine("<html>")
					objWriter.WriteLine("<head>")
					objWriter.WriteLine("<title>Apache - Server funktioniert</title>")
					objWriter.WriteLine("</head>")
					objWriter.WriteLine("<body>")
					objWriter.WriteLine("<div align=center>")
					objWriter.WriteLine("<h1>Wenn Sie hier das Alphabet sehen, funktioniert der Apache - Server</h1>")
					objWriter.WriteLine("<h2>")
					objWriter.WriteLine("<font color=#FF0000>")
					objWriter.WriteLine("<?php")
					objWriter.WriteLine("for ($mZaehler = 65; $mZaehler < 91; $mZaehler++)")
					objWriter.WriteLine("{")
					objWriter.WriteLine("echo(chr($mZaehler));")
					objWriter.WriteLine("}")
					objWriter.WriteLine("echo('<font color=#0000FF><h5>Version ' . apache_get_version() . '</h5>');")
					objWriter.WriteLine("?>")
					objWriter.WriteLine("<font color=#000000>")
					objWriter.WriteLine("</h2>")
					objWriter.WriteLine("<h2>Legen Sie Ihre Dateien ab in: </h2>")
					objWriter.WriteLine("<h2>" & mEigeneDateienVerzeichnisBackSlash & "\myPHP</h2>")
					objWriter.WriteLine("</div>")
					objWriter.WriteLine("</body>")
					objWriter.WriteLine("</html>")
					objWriter.Close()
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Xampp\tomcat\tomcat_start.bat"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine("SET JRE_HOME=" & mInstalVerzeichnisBackSlash & "Programme\\Java_1.8.0\\jre")
					objWriter.WriteLine("SET JAVA_HOME=" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\jre")
					objWriter.WriteLine("call """ & mInstalVerzeichnisBackSlash & "Programme\Xampp\tomcat\bin\startup.bat""")
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\OperaPortable_62.0\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						objWriter.WriteLine("start " & mInstalVerzeichnisBackSlash & "Programme\OperaPortable_62.0\launcher.exe --disable-update --proxy-server=localhost:8080   ""http://localhost:8080/TomcatTest/tomcatfunktioniert.jsp""")
					Else
						objWriter.WriteLine("start http://localhost:8080/TomcatTest/tomcatfunktioniert.jsp")
					End If
					objWriter.WriteLine("exit")
					objWriter.Close()
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Xampp\tomcat\tomcat_stop.bat"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					
					
					objWriter.WriteLine("SET JRE_HOME=" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\jre")
					objWriter.WriteLine("SET JAVA_HOME=" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\jre")
					objWriter.WriteLine("call """ & mInstalVerzeichnisBackSlash & "Programme\Xampp\tomcat\bin\shutdown.bat""")
					objWriter.WriteLine("exit")
					objWriter.Close()
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Xampp\mysql\bin\mySQLDatensicherungStart.bat"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine(mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\java.exe -jar " & mInstalVerzeichnisBackSlash & "Programme\Xampp\mysql\bin\mySQLDatensicherung.jar")
					objWriter.Close()
				End If
			End If	
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				Shell (mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\setup_xampp_zwang.bat")
				mDateiliste(0) = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\FileZillaFTP\FileZilla Server.xml"
				mDateiliste(1) = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\properties.ini"
				mDateiliste(2) = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\apacheEclipse_start.bat"
				For Me.mMeinZaehler  = 0 To 2
					mFileName  = mDateiliste(mMeinZaehler)
					If System.IO.File.Exists(mFileName) = True Then
						txt = IO.File.ReadAllText(mFileName)
						mFundstelle = 1
						While mFundstelle > 0
							mFundstelle = txt.IndexOf("\Programme\")
							If mFundstelle > 0 then
								mStellenZaehler = mFundstelle
								While txt.Substring(mStellenZaehler,1) <> ":"
									mStellenZaehler = mStellenZaehler - 1
									If mStellenZaehler < 0 Then
										mFundstelle = -1
										Exit While 
									End If
								End While
								If mStellenZaehler > -1 Then
									mDoppelpunktStelle = mStellenZaehler
									txt = txt.Substring(0,mDoppelpunktStelle-1) & "ProgrammePfad" & txt.Substring(mFundstelle + 10,txt.Length - mFundstelle - 10)
								End If
							End If
						End While
						mFundstelle = 1
						While mFundstelle > 0
							mFundstelle = txt.IndexOf("\EigeneDateien\")
							If mFundstelle > 0 then
								mStellenZaehler = mFundstelle
								While txt.Substring(mStellenZaehler,1) <> ":"
									mStellenZaehler = mStellenZaehler - 1
									If mStellenZaehler < 0 Then
										mFundstelle = -1
										Exit While 
									End If
								End While
								If mStellenZaehler > -1 Then
									mDoppelpunktStelle = mStellenZaehler
									txt = txt.Substring(0,mDoppelpunktStelle-1) & "EigeneDateienPfad" & txt.Substring(mFundstelle + 14,txt.Length - mFundstelle - 14)
								End If 
							End If
						End While
						txt = txt.Replace("ProgrammePfad", mInstalVerzeichnisBackSlash & "Programme")
						txt = txt.Replace("EigeneDateienPfad", mEigeneDateienVerzeichnisBackSlash)
						IO.File.WriteAllText(mFileName,txt)
					End If
				Next mMeinZaehler
				mDateiliste(0) = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\apache\conf\extra\httpd-ssl.conf"
				mDateiliste(1) = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\apache\conf\extra\httpd-xampp.conf"
				mDateiliste(2) = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\apache\conf\extra\httpd-vhosts.conf"
				mDateiliste(3) = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\apache\conf\extra\httpd-multilang-errordoc.conf"
				mDateiliste(4) = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\apache\conf\extra\httpd-manual.conf"
				mDateiliste(5) = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\apache\conf\extra\httpd-dav.conf"
				mDateiliste(6) = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\apache\conf\extra\httpd-autoindex.conf"
				For Me.mMeinZaehler  = 0 To 6
					mFileName  = mDateiliste(mMeinZaehler)
					If System.IO.File.Exists(mFileName) = True Then
						txt = IO.File.ReadAllText(mFileName)
						mFundstelle = 1
						While mFundstelle > 0
							mFundstelle = txt.IndexOf("/Programme/")
							If mFundstelle > 0 then
								mStellenZaehler = mFundstelle
								While txt.Substring(mStellenZaehler,2) <> ":/" 
									If txt.Substring(mStellenZaehler,2) = Chr(34) & "/" Then
										Exit While 
									End If
									mStellenZaehler = mStellenZaehler - 1
								End While
								mDoppelpunktStelle = mStellenZaehler
								txt = txt.Substring(0,mDoppelpunktStelle+1) & "ProgrammePfad" & txt.Substring(mFundstelle + 10,txt.Length - mFundstelle - 10)
							End If
						End While
						txt = txt.Replace("ProgrammePfad", mInstalVerzeichnisOhneLaufwerksbuchstabeSlash & "Programme")			
						IO.File.WriteAllText(mFileName,txt)
					End If
				Next mMeinZaehler
				mDateiliste(0) = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\php\php.ini"
				mDateiliste(1) = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\cgi-bin\perltest.cgi"
				mDateiliste(2) = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\cgi-bin\cgi.cgi"
				mDateiliste(3) = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\php\phpunit.bat"
				mDateiliste(4) = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\php\pecl.bat"
				mDateiliste(5) = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\php\peardev.bat"
				mDateiliste(6) = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\php\pear.bat"
				mDateiliste(7) = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\php\pciconf.bat"
				mDateiliste(8) = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\php\pci.bat"
				mDateiliste(9) = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\php\phpunit"
				mDateiliste(10) = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\php\pci"
				mDateiliste(11) = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\php\pciconf"
				mDateiliste(12) = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\php\pear\pearcmd.php"
				mDateiliste(13) = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\php\pear\peclcmd.php"
				mDateiliste(14) = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\php\pear\PHPUnit\Util\PHP.php"
				For Me.mMeinZaehler  = 0 To 14
					mFileName  = mDateiliste(mMeinZaehler)
					If System.IO.File.Exists(mFileName) = True Then
						txt = IO.File.ReadAllText(mFileName)
						mFundstelle = 1
						While mFundstelle > 0
							mFundstelle = txt.IndexOf("\Programme\")
							If mFundstelle > 0 then
								mStellenZaehler = mFundstelle
								While txt.Substring(mStellenZaehler,2) <> "=\" 
									If txt.Substring(mStellenZaehler,2) = Chr(34) & "\" Then
										Exit While 
									End If
									If txt.Substring(mStellenZaehler,2) = " \" Then
										Exit While 
									End If
									If txt.Substring(mStellenZaehler,2) = chr(10) & "\" Then
										Exit While 
									End If
									If txt.Substring(mStellenZaehler,2) = "l\" Then
										Exit While 
									End If
									If txt.Substring(mStellenZaehler,2) = "!\" Then
										Exit While 
									End If
									If txt.Substring(mStellenZaehler,2) = "'\" Then
										Exit While 
									End If
									If txt.Substring(mStellenZaehler,2) = "r\" Then
										Exit While 
									End If
									mStellenZaehler = mStellenZaehler - 1
									If mStellenZaehler = 0 Then
										Exit While 
									End If
								End While
								mDoppelpunktStelle = mStellenZaehler
								txt = txt.Substring(0,mDoppelpunktStelle+1) & "ProgrammePfad" & txt.Substring(mFundstelle + 10,txt.Length - mFundstelle - 10)
							End If
						End While
						txt = txt.Replace("ProgrammePfad", mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash & "Programme")	
						IO.File.WriteAllText(mFileName,txt)
					End If
				Next mMeinZaehler
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\apache\conf\httpd.conf"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter(mFileName)
					objWriter.WriteLine("ServerRoot """ & mInstalVerzeichnisSlash & "Programme/Xampp_7.4.7/apache""")
					objWriter.WriteLine("Listen 80")
					objWriter.WriteLine("LoadModule access_compat_module modules/mod_access_compat.so")
					objWriter.WriteLine("LoadModule actions_module modules/mod_actions.so")
					objWriter.WriteLine("LoadModule alias_module modules/mod_alias.so")
					objWriter.WriteLine("LoadModule allowmethods_module modules/mod_allowmethods.so")
					objWriter.WriteLine("LoadModule asis_module modules/mod_asis.so")
					objWriter.WriteLine("LoadModule auth_basic_module modules/mod_auth_basic.so")
					objWriter.WriteLine("LoadModule authn_core_module modules/mod_authn_core.so")
					objWriter.WriteLine("LoadModule authn_file_module modules/mod_authn_file.so")
					objWriter.WriteLine("LoadModule authz_core_module modules/mod_authz_core.so")
					objWriter.WriteLine("LoadModule authz_groupfile_module modules/mod_authz_groupfile.so")
					objWriter.WriteLine("LoadModule authz_host_module modules/mod_authz_host.so")
					objWriter.WriteLine("LoadModule authz_user_module modules/mod_authz_user.so")
					objWriter.WriteLine("LoadModule autoindex_module modules/mod_autoindex.so")
					objWriter.WriteLine("LoadModule cgi_module modules/mod_cgi.so")
					objWriter.WriteLine("LoadModule dav_lock_module modules/mod_dav_lock.so")
					objWriter.WriteLine("LoadModule dir_module modules/mod_dir.so")
					objWriter.WriteLine("LoadModule env_module modules/mod_env.so")
					objWriter.WriteLine("LoadModule headers_module modules/mod_headers.so")
					objWriter.WriteLine("LoadModule include_module modules/mod_include.so")
					objWriter.WriteLine("LoadModule info_module modules/mod_info.so")
					objWriter.WriteLine("LoadModule isapi_module modules/mod_isapi.so")
					objWriter.WriteLine("LoadModule log_config_module modules/mod_log_config.so")
					objWriter.WriteLine("LoadModule cache_disk_module modules/mod_cache_disk.so")
					objWriter.WriteLine("LoadModule mime_module modules/mod_mime.so")
					objWriter.WriteLine("LoadModule negotiation_module modules/mod_negotiation.so")
					objWriter.WriteLine("LoadModule proxy_module modules/mod_proxy.so")
					objWriter.WriteLine("LoadModule proxy_ajp_module modules/mod_proxy_ajp.so")
					objWriter.WriteLine("LoadModule rewrite_module modules/mod_rewrite.so")
					objWriter.WriteLine("LoadModule setenvif_module modules/mod_setenvif.so")
					objWriter.WriteLine("LoadModule socache_shmcb_module modules/mod_socache_shmcb.so")
					objWriter.WriteLine("LoadModule ssl_module modules/mod_ssl.so")
					objWriter.WriteLine("LoadModule status_module modules/mod_status.so")
					objWriter.WriteLine("LoadModule version_module modules/mod_version.so")
					objWriter.WriteLine("<IfModule unixd_module>")
					objWriter.WriteLine("User daemon")
					objWriter.WriteLine("Group daemon")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("ServerAdmin postmaster@localhost")
					objWriter.WriteLine("ServerName localhost:80")
					objWriter.WriteLine("<Directory />")
					objWriter.WriteLine("AllowOverride none")
					objWriter.WriteLine("Require all denied")
					objWriter.WriteLine("</Directory>")
					objWriter.WriteLine("DocumentRoot """ & mEigeneDateienVerzeichnisSlash & "/myPHP""")
					objWriter.WriteLine("<Directory """ & mEigeneDateienVerzeichnisSlash & "/myPHP"">")
					objWriter.WriteLine("Options Indexes FollowSymLinks Includes ExecCGI")
					objWriter.WriteLine("AllowOverride All")
					objWriter.WriteLine("Require all granted")
					objWriter.WriteLine("</Directory>")
					objWriter.WriteLine("<IfModule dir_module>")
					objWriter.WriteLine("DirectoryIndex index.php index.pl index.cgi index.asp index.shtml index.html index.htm \")
					objWriter.WriteLine("default.php default.pl default.cgi default.asp default.shtml default.html default.htm \")
					objWriter.WriteLine("home.php home.pl home.cgi home.asp home.shtml home.html home.htm")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("<Files """  & ".ht*" & """>")
					objWriter.WriteLine("Require all denied")
					objWriter.WriteLine("</Files>")
					objWriter.WriteLine("ErrorLog """ & "logs/error.log" & """ ")
					objWriter.WriteLine("LogLevel warn")
					objWriter.WriteLine("<IfModule log_config_module>")
					objWriter.WriteLine("LogFormat """ &  "%h %l %u %t \""" & "%r\"  & " %>s %b \""%{Referer}i\"" \""%{User-Agent}i\"""" combined")
					objWriter.WriteLine("LogFormat """ &  "%h %l %u %t \""" & "%r\"  & " %>s %b"" common")
					objWriter.WriteLine("<IfModule logio_module>")
					objWriter.WriteLine("LogFormat """ &  "%h %l %u %t \""" & "%r\"  & " %>s %b \""%{Referer}i\"" \""%{User-Agent}i\"" %I %O combinedio")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("CustomLog """ & "logs/access.log"" combined")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("<IfModule alias_module>")
					objWriter.WriteLine("ScriptAlias /cgi-bin/  """ & mInstalVerzeichnisSlash & "Programme/Xampp_7.4.7/cgi-bin/""")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("<IfModule cgid_module>")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("<Directory """ & mInstalVerzeichnisSlash & "Programme/Xampp_7.4.7/cgi-bin"">")
					objWriter.WriteLine("AllowOverride All")
					objWriter.WriteLine("Options None")
					objWriter.WriteLine("Require all granted")
					objWriter.WriteLine("</Directory>")
					objWriter.WriteLine("<IfModule headers_module>")
					objWriter.WriteLine("RequestHeader unset Proxy early")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("<IfModule mime_module>")
					objWriter.WriteLine("TypesConfig conf/mime.types")
					objWriter.WriteLine("AddType application/x-compress .Z")
					objWriter.WriteLine("AddType application/x-gzip .gz .tgz")
					objWriter.WriteLine("AddHandler cgi-script .cgi .pl .asp")
					objWriter.WriteLine("AddType text/html .shtml")
					objWriter.WriteLine("AddOutputFilter INCLUDES .shtml")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("<IfModule mime_magic_module>")
					objWriter.WriteLine("MIMEMagicFile """ & "conf/magic""")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("Include conf/extra/httpd-mpm.conf")
					objWriter.WriteLine("Include conf/extra/httpd-multilang-errordoc.conf")
					objWriter.WriteLine("Include conf/extra/httpd-autoindex.conf")
					objWriter.WriteLine("Include conf/extra/httpd-languages.conf")
					objWriter.WriteLine("Include conf/extra/httpd-userdir.conf")
					objWriter.WriteLine("Include conf/extra/httpd-info.conf")
					objWriter.WriteLine("Include conf/extra/httpd-vhosts.conf")
					objWriter.WriteLine("Include """ & "conf/extra/httpd-proxy.conf""")
					objWriter.WriteLine("Include """ & "conf/extra/httpd-default.conf""")
					objWriter.WriteLine("Include """ & "conf/extra/httpd-Xampp.conf""")
					objWriter.WriteLine("<IfModule proxy_html_module>")
					objWriter.WriteLine("Include conf/extra/proxy-html.conf")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("Include conf/extra/httpd-ssl.conf")
					objWriter.WriteLine("<IfModule ssl_module>")
					objWriter.WriteLine("SSLRandomSeed startup builtin")
					objWriter.WriteLine("SSLRandomSeed connect builtin")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("AcceptFilter http none")
					objWriter.WriteLine("AcceptFilter https none")
					objWriter.WriteLine("<IfModule mod_proxy.c>")
					objWriter.WriteLine("<IfModule mod_proxy_ajp.c>")
					objWriter.WriteLine("Include """ & "conf/extra/httpd-ajp.conf""")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("</IfModule>")
					objWriter.Close()
				End If
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\apache\conf\httpdeclipse.conf"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter(mFileName)
					objWriter.WriteLine("ServerRoot """ & mInstalVerzeichnisBackSlash & "Programme/Xampp_7.4.7/apache""")
					objWriter.WriteLine("Listen 80")
					objWriter.WriteLine("LoadModule access_compat_module modules/mod_access_compat.so")
					objWriter.WriteLine("LoadModule actions_module modules/mod_actions.so")
					objWriter.WriteLine("LoadModule alias_module modules/mod_alias.so")
					objWriter.WriteLine("LoadModule allowmethods_module modules/mod_allowmethods.so")
					objWriter.WriteLine("LoadModule asis_module modules/mod_asis.so")
					objWriter.WriteLine("LoadModule auth_basic_module modules/mod_auth_basic.so")
					objWriter.WriteLine("LoadModule authn_core_module modules/mod_authn_core.so")
					objWriter.WriteLine("LoadModule authn_file_module modules/mod_authn_file.so")
					objWriter.WriteLine("LoadModule authz_core_module modules/mod_authz_core.so")
					objWriter.WriteLine("LoadModule authz_groupfile_module modules/mod_authz_groupfile.so")
					objWriter.WriteLine("LoadModule authz_host_module modules/mod_authz_host.so")
					objWriter.WriteLine("LoadModule authz_user_module modules/mod_authz_user.so")
					objWriter.WriteLine("LoadModule autoindex_module modules/mod_autoindex.so")
					objWriter.WriteLine("LoadModule cgi_module modules/mod_cgi.so")
					objWriter.WriteLine("LoadModule dav_lock_module modules/mod_dav_lock.so")
					objWriter.WriteLine("LoadModule dir_module modules/mod_dir.so")
					objWriter.WriteLine("LoadModule env_module modules/mod_env.so")
					objWriter.WriteLine("LoadModule headers_module modules/mod_headers.so")
					objWriter.WriteLine("LoadModule include_module modules/mod_include.so")
					objWriter.WriteLine("LoadModule info_module modules/mod_info.so")
					objWriter.WriteLine("LoadModule isapi_module modules/mod_isapi.so")
					objWriter.WriteLine("LoadModule log_config_module modules/mod_log_config.so")
					objWriter.WriteLine("LoadModule cache_disk_module modules/mod_cache_disk.so")
					objWriter.WriteLine("LoadModule mime_module modules/mod_mime.so")
					objWriter.WriteLine("LoadModule negotiation_module modules/mod_negotiation.so")
					objWriter.WriteLine("LoadModule proxy_module modules/mod_proxy.so")
					objWriter.WriteLine("LoadModule proxy_ajp_module modules/mod_proxy_ajp.so")
					objWriter.WriteLine("LoadModule rewrite_module modules/mod_rewrite.so")
					objWriter.WriteLine("LoadModule setenvif_module modules/mod_setenvif.so")
					objWriter.WriteLine("LoadModule socache_shmcb_module modules/mod_socache_shmcb.so")
					objWriter.WriteLine("LoadModule ssl_module modules/mod_ssl.so")
					objWriter.WriteLine("LoadModule status_module modules/mod_status.so")
					objWriter.WriteLine("LoadModule version_module modules/mod_version.so")
					objWriter.WriteLine("<IfModule unixd_module>")
					objWriter.WriteLine("User daemon")
					objWriter.WriteLine("Group daemon")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("ServerAdmin postmaster@localhost")
					objWriter.WriteLine("ServerName localhost:80")
					objWriter.WriteLine("<Directory />")
					objWriter.WriteLine("AllowOverride none")
					objWriter.WriteLine("Require all denied")
					objWriter.WriteLine("</Directory>")
					objWriter.WriteLine("DocumentRoot """ & mEigeneDateienVerzeichnisSlash & "/myEclipseWorkspace""")
					objWriter.WriteLine("<Directory """ & mEigeneDateienVerzeichnisSlash & "/myEclipseWorkspace"">")
					objWriter.WriteLine("Options Indexes FollowSymLinks Includes ExecCGI")
					objWriter.WriteLine("AllowOverride All")
					objWriter.WriteLine("Require all granted")
					objWriter.WriteLine("</Directory>")
					objWriter.WriteLine("<IfModule dir_module>")
					objWriter.WriteLine("DirectoryIndex index.php index.pl index.cgi index.asp index.shtml index.html index.htm \")
					objWriter.WriteLine("default.php default.pl default.cgi default.asp default.shtml default.html default.htm \")
					objWriter.WriteLine("home.php home.pl home.cgi home.asp home.shtml home.html home.htm")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("<Files """  & ".ht*" & """>")
					objWriter.WriteLine("Require all denied")
					objWriter.WriteLine("</Files>")
					objWriter.WriteLine("ErrorLog """ & "logs/error.log" & """ ")
					objWriter.WriteLine("LogLevel warn")
					objWriter.WriteLine("<IfModule log_config_module>")
					objWriter.WriteLine("LogFormat """ &  "%h %l %u %t \""" & "%r\"  & " %>s %b \""%{Referer}i\"" \""%{User-Agent}i\"""" combined")
					objWriter.WriteLine("LogFormat """ &  "%h %l %u %t \""" & "%r\"  & " %>s %b"" common")
					objWriter.WriteLine("<IfModule logio_module>")
					objWriter.WriteLine("LogFormat """ &  "%h %l %u %t \""" & "%r\"  & " %>s %b \""%{Referer}i\"" \""%{User-Agent}i\"" %I %O combinedio")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("CustomLog """ & "logs/access.log"" combined")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("<IfModule alias_module>")
					objWriter.WriteLine("ScriptAlias /cgi-bin/  """ & mInstalVerzeichnisBackSlash & "/Programme/Xampp_7.4.7/cgi-bin/""")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("<IfModule cgid_module>")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("<Directory """ & mInstalVerzeichnisBackSlash & "/Programme/Xampp_7.4.7/cgi-bin"">")
					objWriter.WriteLine("AllowOverride All")
					objWriter.WriteLine("Options None")
					objWriter.WriteLine("Require all granted")
					objWriter.WriteLine("</Directory>")
					objWriter.WriteLine("<IfModule headers_module>")
					objWriter.WriteLine("RequestHeader unset Proxy early")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("<IfModule mime_module>")
					objWriter.WriteLine("TypesConfig conf/mime.types")
					objWriter.WriteLine("AddType application/x-compress .Z")
					objWriter.WriteLine("AddType application/x-gzip .gz .tgz")
					objWriter.WriteLine("AddHandler cgi-script .cgi .pl .asp")
					objWriter.WriteLine("AddType text/html .shtml")
					objWriter.WriteLine("AddOutputFilter INCLUDES .shtml")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("<IfModule mime_magic_module>")
					objWriter.WriteLine("MIMEMagicFile """ & "conf/magic""")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("Include conf/extra/httpd-mpm.conf")
					objWriter.WriteLine("Include conf/extra/httpd-multilang-errordoc.conf")
					objWriter.WriteLine("Include conf/extra/httpd-autoindex.conf")
					objWriter.WriteLine("Include conf/extra/httpd-languages.conf")
					objWriter.WriteLine("Include conf/extra/httpd-userdir.conf")
					objWriter.WriteLine("Include conf/extra/httpd-info.conf")
					objWriter.WriteLine("Include conf/extra/httpd-vhosts.conf")
					objWriter.WriteLine("Include """ & "conf/extra/httpd-proxy.conf""")
					objWriter.WriteLine("Include """ & "conf/extra/httpd-default.conf""")
					objWriter.WriteLine("Include """ & "conf/extra/httpd-Xampp.conf""")
					objWriter.WriteLine("<IfModule proxy_html_module>")
					objWriter.WriteLine("Include conf/extra/proxy-html.conf")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("Include conf/extra/httpd-ssl.conf")
					objWriter.WriteLine("<IfModule ssl_module>")
					objWriter.WriteLine("SSLRandomSeed startup builtin")
					objWriter.WriteLine("SSLRandomSeed connect builtin")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("AcceptFilter http none")
					objWriter.WriteLine("AcceptFilter https none")
					objWriter.WriteLine("<IfModule mod_proxy.c>")
					objWriter.WriteLine("<IfModule mod_proxy_ajp.c>")
					objWriter.WriteLine("Include """ & "conf/extra/httpd-ajp.conf""")
					objWriter.WriteLine("</IfModule>")
					objWriter.WriteLine("</IfModule>")
					objWriter.Close()
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\mysql\bin\my.ini"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter(mFileName)
					objWriter.WriteLine("[client]")
					objWriter.WriteLine("port = 3306")
					objWriter.WriteLine("socket = """ & mInstalVerzeichnisSlash & "Programme/Xampp_7.4.7/mysql/mysql.sock""")
					objWriter.WriteLine("")
					objWriter.WriteLine("[mysqld]")
					objWriter.WriteLine("port= 3306")
					objWriter.WriteLine("socket = """ & mInstalVerzeichnisSlash & "Programme/Xampp_7.4.7/mysql/mysql.sock""")
					objWriter.WriteLine("basedir = """ & mInstalVerzeichnisSlash & "Programme/Xampp_7.4.7/mysql""")
					objWriter.WriteLine("tmpdir = """ & mInstalVerzeichnisSlash & "Programme/Xampp_7.4.7/tmp""")
					objWriter.WriteLine("datadir = """ & mEigeneDateienVerzeichnisSlash &"/mySQLdata""")
					objWriter.WriteLine("pid_file = """ & "mysql.pid""")
					objWriter.WriteLine("")
					objWriter.WriteLine("key_buffer_size = 16M")
					objWriter.WriteLine("max_allowed_packet = 1M")
					objWriter.WriteLine("sort_buffer_size = 512K")
					objWriter.WriteLine("net_buffer_length = 8K")
					objWriter.WriteLine("read_buffer_size = 256K")
					objWriter.WriteLine("read_rnd_buffer_size = 512K")
					objWriter.WriteLine("myisam_sort_buffer_size = 8M")
					objWriter.WriteLine("log_error = """ & "mysql_error.log""")
					objWriter.WriteLine("plugin_dir = """ & mInstalVerzeichnisSlash & "Programme/Xampp_7.4.7/mysql/lib/plugin/""")
					objWriter.WriteLine("server-id = 1")
					objWriter.WriteLine("innodb_data_home_dir = """ & mEigeneDateienVerzeichnisSlash & "/mySQLdata""")
					objWriter.WriteLine("innodb_data_file_path = ibdata1:12M:autoextend")
					objWriter.WriteLine("innodb_log_group_home_dir = """ & mEigeneDateienVerzeichnisSlash & "/mySQLdata""")
					objWriter.WriteLine("innodb_buffer_pool_size = 16M")
					objWriter.WriteLine("innodb_log_file_size = 5M")
					objWriter.WriteLine("innodb_log_buffer_size = 8M")
					objWriter.WriteLine("innodb_flush_log_at_trx_commit = 1")
					objWriter.WriteLine("innodb_lock_wait_timeout = 50")
					objWriter.WriteLine("")
					objWriter.WriteLine("")
					objWriter.WriteLine("init-connect='SET NAMES utf8'")
					objWriter.WriteLine("collation_server=utf8_unicode_ci")
					objWriter.WriteLine("character_set_server=utf8")
					objWriter.WriteLine("skip-character-set-client-handshake")
					objWriter.WriteLine("character_sets-dir=""" & mInstalVerzeichnisSlash & "Programme/Xampp_7.4.7/mysql/share/charsets""")
					objWriter.WriteLine("")
					objWriter.WriteLine("[mysqldump]")
					objWriter.WriteLine("quick")
					objWriter.WriteLine("max_allowed_packet = 16M")
					objWriter.WriteLine("")
					objWriter.WriteLine("[mysql]")
					objWriter.WriteLine("no-auto-rehash")
					objWriter.WriteLine("default-character-set = utf8")
					objWriter.WriteLine("")
					objWriter.WriteLine("[isamchk]")
					objWriter.WriteLine("key_buffer_size = 20M")
					objWriter.WriteLine("sort_buffer_size = 20M")
					objWriter.WriteLine("read_buffer_size = 2M")
					objWriter.WriteLine("write_buffer_size = 2M")
					objWriter.WriteLine("")
					objWriter.WriteLine("[myisamchk]")
					objWriter.WriteLine("key_buffer_size = 20M")
					objWriter.WriteLine("sort_buffer_size = 20M")
					objWriter.WriteLine("read_buffer_size = 2M")
					objWriter.WriteLine("write_buffer_size = 2M")
					objWriter.WriteLine("")
					objWriter.WriteLine("[mysqlhotcopy]")
					objWriter.WriteLine("interactive-timeout")
					objWriter.WriteLine("")
					objWriter.WriteLine("[mysqlimport]")
					objWriter.WriteLine("default-character-set = utf8")
					objWriter.Close()
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\wordpress_start.bat"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter(mFileName)
					objWriter.WriteLine("@echo off")
					objWriter.WriteLine("start xampp-control.exe")
					objWriter.WriteLine("start mysql_start.bat")
					objWriter.WriteLine("cd /D %~dp0")
					objWriter.WriteLine("echo Diese Eingabeforderung nicht waehrend des Running beenden")
					objWriter.WriteLine("echo Bitte erst bei einem gewollten Shutdown schliessen")
					objWriter.WriteLine("echo.")
					objWriter.WriteLine("echo Apache started ...")
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\OperaPortable_62.0\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						objWriter.WriteLine("start " & mInstalVerzeichnisBackSlash & "Programme\OperaPortable_62.0\launcher.exe --disable-update  --proxy-server=localhost:80  ""localhost/mywordpress_projekte/""")
					Else
						objWriter.WriteLine("start http://localhost/mywordpress_projekte/")
					End If
					objWriter.WriteLine("apache\bin\httpd.exe")
					objWriter.WriteLine("if errorlevel 255 goto finish")
					objWriter.WriteLine("if errorlevel 1 goto error")
					objWriter.WriteLine("goto finish")
					objWriter.WriteLine(":error")
					objWriter.WriteLine("echo.")
					objWriter.WriteLine("echo Apache konnte nicht gestartet werden")
					objWriter.WriteLine("pause")
					objWriter.WriteLine(":finish")
					objWriter.Close()
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\apache_start.bat"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter(mFileName)
					objWriter.WriteLine("@echo off")
					objWriter.WriteLine("cd /D %~dp0")
					objWriter.WriteLine("echo Diese Eingabeforderung nicht waehrend des Running beenden")
					objWriter.WriteLine("echo Bitte erst bei einem gewollten Shutdown schliessen")
					objWriter.WriteLine("echo.")
					objWriter.WriteLine("echo Apache started ...")
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\OperaPortable_62.0\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						objWriter.WriteLine("start " & mInstalVerzeichnisBackSlash & "Programme\OperaPortable_62.0\launcher.exe --disable-update --proxy-server=localhost:80  ""localhost/apachefunktioniert.php""")
					Else
						objWriter.WriteLine("start http://localhost/apachefunktioniert.php")
					End If
					objWriter.WriteLine("apache\bin\httpd.exe")
					objWriter.Close()
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\apache_stop.bat"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter(mFileName)
					objWriter.WriteLine("@echo off")
					objWriter.WriteLine("cd /D %~dp0")
					objWriter.WriteLine("cmd.exe /C start """" /MIN call """ & mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\killprocess.bat"" " &  """httpd.exe""")
					objWriter.WriteLine("cmd.exe /C start """" /MIN call """ & mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\killprocess.bat"" " &  """httpd.exe""")
					objWriter.WriteLine("if not exist apache\logs\httpd.pid GOTO exit")
					objWriter.WriteLine("del apache\logs\httpd.pid")
					objWriter.WriteLine(":exit")
					objWriter.Close()
				End If
				
				mFileName  = mEigeneDateienVerzeichnisBackSlash & "\myJSP\TomcatTest\tomcatfunktioniert.jsp"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter(mFileName)
					objWriter.WriteLine( "<html>")
					objWriter.WriteLine( "<head>")
					objWriter.WriteLine( "<title>Tomcat - Server funktioniert</title>")
					objWriter.WriteLine( "</head>")
					objWriter.WriteLine( "<body>")
					objWriter.WriteLine( "<div align=center>")
					objWriter.WriteLine( "<h1>Wenn Sie hier das Alphabet sehen, funktioniert der Tomcat - Server</h1>")
					objWriter.WriteLine( "<h2>")
					objWriter.WriteLine( "<font color=#FF0000>")
					objWriter.WriteLine( "<%")
					objWriter.WriteLine( "for (int mZaehler = 65; mZaehler < 91; mZaehler++)")
					objWriter.WriteLine( "{")
					objWriter.WriteLine( "out.println((char)mZaehler);")
					objWriter.WriteLine( "}")
					objWriter.WriteLine( "%>")
					objWriter.WriteLine( "<font color=#0000FF><h5>")
					objWriter.WriteLine( "Tomcat Version : <%= application.getServerInfo() %><br>")    
					objWriter.WriteLine( "Servlet Specification Version :") 
					objWriter.WriteLine( "<%= application.getMajorVersion() %>.<%= application.getMinorVersion() %> <br>")    
					objWriter.WriteLine( "JSP version :")
					objWriter.WriteLine( "<%=JspFactory.getDefaultFactory().getEngineInfo().getSpecificationVersion() %><br>")
					objWriter.WriteLine( "</h5>")
					objWriter.WriteLine( "<font color=#000000>")
					objWriter.WriteLine( "</h2>")
					objWriter.WriteLine( "<h2>Legen Sie Ihren Projektordner ab in: </h2>")
					objWriter.WriteLine( "<h2>" & mEigeneDateienVerzeichnisBackSlash & "\myJSP</h2>")
					objWriter.WriteLine( "</div>")
					objWriter.WriteLine( "</body>")
					objWriter.WriteLine( "</html>")
					objWriter.Close()
				End If
				
				mFileName  = mEigeneDateienVerzeichnisBackSlash & "\myPHP\apachefunktioniert.php"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine("<html>")
					objWriter.WriteLine("<head>")
					objWriter.WriteLine("<title>Apache - Server funktioniert</title>")
					objWriter.WriteLine("</head>")
					objWriter.WriteLine("<body>")
					objWriter.WriteLine("<div align=center>")
					objWriter.WriteLine("<h1>Wenn Sie hier das Alphabet sehen, funktioniert der Apache - Server</h1>")
					objWriter.WriteLine("<h2>")
					objWriter.WriteLine("<font color=#FF0000>")
					objWriter.WriteLine("<?php")
					objWriter.WriteLine("for ($mZaehler = 65; $mZaehler < 91; $mZaehler++)")
					objWriter.WriteLine("{")
					objWriter.WriteLine("echo(chr($mZaehler));")
					objWriter.WriteLine("}")
					objWriter.WriteLine("echo('<font color=#0000FF><h5>Version ' . apache_get_version() . '</h5>');")
					objWriter.WriteLine("?>")
					objWriter.WriteLine("<font color=#000000>")
					objWriter.WriteLine("</h2>")
					objWriter.WriteLine("<h2>Legen Sie Ihre Dateien ab in: </h2>")
					objWriter.WriteLine("<h2>" & mEigeneDateienVerzeichnisBackSlash & "\myPHP</h2>")
					objWriter.WriteLine("</div>")
					objWriter.WriteLine("</body>")
					objWriter.WriteLine("</html>")
					objWriter.Close()
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\tomcat\tomcat_start.bat"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine("SET JRE_HOME=" & mInstalVerzeichnisBackSlash & "Programme\\Java_1.8.0\\jre")
					objWriter.WriteLine("SET JAVA_HOME=" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\jre")
					objWriter.WriteLine("call """ & mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\tomcat\bin\startup.bat""")
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\OperaPortable_62.0\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						objWriter.WriteLine("start " & mInstalVerzeichnisBackSlash & "Programme\OperaPortable_62.0\launcher.exe --disable-update --proxy-server=localhost:8080   ""http://localhost:8080/TomcatTest/tomcatfunktioniert.jsp""")
					Else
						objWriter.WriteLine("start http://localhost:8080/TomcatTest/tomcatfunktioniert.jsp")
					End If
					objWriter.WriteLine("exit")
					objWriter.Close()
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\tomcat\tomcat_stop.bat"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine("SET JRE_HOME=" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\jre")
					objWriter.WriteLine("SET JAVA_HOME=" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\jre")
					objWriter.WriteLine("call """ & mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\tomcat\bin\shutdown.bat""")
					objWriter.WriteLine("exit")
					objWriter.Close()
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\mysql\bin\mySQLDatensicherungStart.bat"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine(mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\java.exe -jar " & mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\mysql\bin\mySQLDatensicherung.jar")
					objWriter.Close()
				End If
			End If	
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\Eclipse_4.6.3\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mDateiliste(0) = mEigeneDateienVerzeichnisBackSlash & "\myEclipseWorkspace\.metadata\.plugins\org.eclipse.pde.core\SavedExternalPluginList.txt"
				mDateiliste(1) = mEigeneDateienVerzeichnisBackSlash & "\myEclipseWorkspace\.metadata\.plugins\org.eclipse.wst.xml.core\system_catalog.xml"
				For Me.mMeinZaehler  = 0 To 1
					mFileName  = mDateiliste(mMeinZaehler)
					If System.IO.File.Exists(mFileName) = True Then
						txt = IO.File.ReadAllText(mDateiliste(mMeinZaehler))
						mFundstelle = 1
						While mFundstelle > 0
							mFundstelle = txt.IndexOf("/Programme/")
							If mFundstelle > 0 then
								mStellenZaehler = mFundstelle
								While txt.Substring(mStellenZaehler,6) <> "file:/" 
									mStellenZaehler = mStellenZaehler - 1
								End While
								mDoppelpunktStelle = mStellenZaehler
								txt = txt.Substring(0,mDoppelpunktStelle+6) & "ProgrammePfad" & txt.Substring(mFundstelle + 10,txt.Length - mFundstelle - 10)
							End If
						End While
						txt = txt.Replace("ProgrammePfad", Replace(mInstalVerzeichnisBackSlash, "\", "/") & "/Programme")
						IO.File.WriteAllText(mDateiliste(mMeinZaehler),txt)
					End If
				Next mMeinZaehler
				
				mDateiliste(0) = mEigeneDateienVerzeichnisBackSlash & "\myEclipseWorkspace\.metadata\.plugins\org.eclipse.debug.core\.launches\Tomcat v7.0 Server at localhost.launch"
				mDateiliste(1) = mEigeneDateienVerzeichnisBackSlash & "\myEclipseWorkspace\.metadata\.plugins\org.eclipse.jdt.core\savedIndexNames.txt"
				mDateiliste(2) = mEigeneDateienVerzeichnisBackSlash & "\myEclipseWorkspace\.metadata\.plugins\org.eclipse.ui.ide\dialog_settings.xml"
				mDateiliste(3) = mEigeneDateienVerzeichnisBackSlash & "\myEclipseWorkspace\.metadata\.plugins\org.eclipse.wst.jsdt.core\indexes\savedIndexNames.txt"
				mDateiliste(4) = mEigeneDateienVerzeichnisBackSlash & "\myEclipseWorkspace\.metadata\.plugins\org.eclipse.wst.server.core\tmp0\conf\server.xml"
				For Me.mMeinZaehler  = 0 To 4
					mFileName  = mDateiliste(mMeinZaehler)
					If System.IO.File.Exists(mFileName) = True Then
						txt = IO.File.ReadAllText(mFileName)
						mFundstelle = 1
						While mFundstelle > 0
							mFundstelle = txt.IndexOf("\Programme\")
							If mFundstelle > 0 then
								mStellenZaehler = mFundstelle
								While txt.Substring(mStellenZaehler,1) <> ";" 
									mStellenZaehler = mStellenZaehler - 1
									If mStellenZaehler < 0 Then
										mFundstelle = -1
										Exit While 
									End If
								End While
								If mStellenZaehler > -1 Then
									mDoppelpunktStelle = mStellenZaehler
									txt = txt.Substring(0,mDoppelpunktStelle+1) & "ProgrammePfad" & txt.Substring(mFundstelle + 10,txt.Length - mFundstelle - 10)
								End If 
							End If
						End While
						mFundstelle = 1
						While mFundstelle > 0
							mFundstelle = txt.IndexOf("\EigeneDateien\")
							If mFundstelle > 0 then
								mStellenZaehler = mFundstelle
								While txt.Substring(mStellenZaehler,1) <> ";"
									If txt.Substring(mStellenZaehler,1) = "+" Then
										Exit While 
									End If
									If txt.Substring(mStellenZaehler,1) = Chr(34) Then
										Exit While 
									End If
									mStellenZaehler = mStellenZaehler - 1
								End While
								mDoppelpunktStelle = mStellenZaehler
								txt = txt.Substring(0,mDoppelpunktStelle+1) & "EigeneDateienPfad" & txt.Substring(mFundstelle + 10,txt.Length - mFundstelle - 10)
							End If
						End While
						txt = txt.Replace("ProgrammePfad", mInstalVerzeichnisBackSlash & "\Programme")
						txt = txt.Replace("EigeneDateienPfad", mEigeneDateienOhneLaufwerksbuchstabeBackSlash )
						IO.File.WriteAllText(mFileName,txt)
					End If
				Next mMeinZaehler
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Eclipse_4.6.3\p2\pools.info"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine(mInstalVerzeichnisBackSlash & "Programme\Eclipse_4.6.3")
					objWriter.Close()
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Eclipse_4.6.3\eclipse.bat"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine("""" & mInstalVerzeichnisBackSlash & "Programme\Eclipse_4.6.3\eclipse.exe" & """" & " -vm " & """" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin" & """")
					objWriter.Close()
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Eclipse_4.6.3\configuration\.settings\org.eclipse.ui.ide.prefs"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine("MAX_RECENT_WORKSPACES=5")
					objWriter.WriteLine("RECENT_WORKSPACES=" & mEigeneDateienDoppelBackSlash & "\\myEclipseWorkspace")
					objWriter.WriteLine("RECENT_WORKSPACES_PROTOCOL=3")
					objWriter.WriteLine("SHOW_WORKSPACE_SELECTION_DIALOG=true")
					objWriter.WriteLine("eclipse.preferences.version=1")
					objWriter.Close()
				End If
				
				mFileName  =mEigeneDateienVerzeichnisBackSlash & "\myEclipseWorkspace\.metadata\.plugins\org.eclipse.core.runtime\.settings\org.eclipse.wst.server.core.prefs"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine("eclipse.preferences.version=1")
					objWriter.WriteLine("module-start-timeout=300000")
					objWriter.WriteLine("runtimes=<?xml version\=" & """" & "1.0" & """" & " encoding\=" & """" & "UTF-8" & """" & " standalone\=" & """" & "no" & """" & "?>\r\n<runtimes>\r\n  <runtime id\=" & """" & "Apache Tomcat v7.0" & """" & " location\=" & """" & Links(mInstalLaufwerk, 1) & "\:" & mInstalVerzeichnisOhneLaufwerksbuchstabeSlash & "Programme/Xampp_7.4.7/tomcat" & """" & " name\=" & """" & "Apache Tomcat v7.0" & """" & " runtime-type-id\=" & """" & "org.eclipse.jst.server.tomcat.runtime.70" & """" & " timestamp\=" & """" & "0" & """"  & "/>\r\n</runtimes>\r\n")
					objWriter.Close()
				End If
				
				mFileName  = mEigeneDateienVerzeichnisBackSlash & "\myEclipseWorkspace\.metadata\.plugins\org.eclipse.core.runtime\.settings\org.eclipse.jst.server.tomcat.core.prefs"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine("eclipse.preferences.mVersion=1")
					objWriter.WriteLine("locationorg.eclipse.jst.server.tomcat.runtime.70=" & Links(mInstalLaufwerk, 1) & "\:" & mInstalVerzeichnisOhneLaufwerksbuchstabeSlash & "Programme/Xampp_7.4.7/tomcat")
					objWriter.Close()
				End If
				
				mFileName  = mEigeneDateienVerzeichnisBackSlash & "\myEclipseWorkspace\.metadata\.plugins\org.eclipse.core.runtime\.settings\org.eclipse.jdt.launching.prefs"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine("eclipse.preferences.mVersion=1")
					objWriter.WriteLine("org.eclipse.jdt.launching.PREF_DEFAULT_ENVIRONMENTS_XML=")
					objWriter.WriteLine("org.eclipse.jdt.launching.PREF_VM_XML=<?xml mVersion\=" & """" & "1.0" & """" & " encoding\=" & """" & "UTF-8" & """" & " standalone\=" & """" & "no" & """" & "?>\r\n<vmSettings defaultVM\=" & """" & "57,org.eclipse.jdt.internal.debug.ui.launcher.StandardVMType13,1365613625406" & """" & " defaultVMConnector\=" & """" & """" & ">\r\n<vmType id\=" & """" & "org.eclipse.jdt.internal.debug.ui.launcher.StandardVMType" & """" & ">\r\n<vm id\=" & """" & "1365613625406" & """" & " name\=" & """" & "jdk1.7.0_13" & """" & " path\=" & """" & mInstalVerzeichnisDoppelBackSlash & "Programme\\jdk1.7.0_13" & """" & "/>\r\n</vmType>\r\n</vmSettings>\r\n")
					objWriter.Close()
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Eclipse_4.6.3\p2\org.eclipse.equinox.p2.engine\profileRegistry\epp.package.jee.profile\.data\.settings\org.eclipse.equinox.p2.artifact.repository.prefs"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine("eclipse.preferences.mVersion=1")
					objWriter.WriteLine("repositories/file\:_" & Links(mInstalLaufwerk, 1) & "\:" & Replace(mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash, "\", "_") & "Programme_Eclipse_p2_org.eclipse.equinox.p2.core_cache/description=")
					objWriter.WriteLine("repositories/file\:_" & Links(mInstalLaufwerk, 1) & "\:" & Replace(mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash, "\", "_") & "Programme_Eclipse_p2_org.eclipse.equinox.p2.core_cache/enabled=true")
					objWriter.WriteLine("repositories/file\:_" & Links(mInstalLaufwerk, 1) & "\:" & Replace(mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash, "\", "_") & "Programme_Eclipse_p2_org.eclipse.equinox.p2.core_cache/isSystem=true")
					objWriter.WriteLine("repositories/file\:_" & Links(mInstalLaufwerk, 1) & "\:" & Replace(mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash, "\", "_") & "Programme_Eclipse_p2_org.eclipse.equinox.p2.core_cache/name=download cache")
					objWriter.WriteLine("repositories/file\:_" & Links(mInstalLaufwerk, 1) & "\:" & Replace(mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash, "\", "_") & "Programme_Eclipse_p2_org.eclipse.equinox.p2.core_cache/provider=")
					objWriter.WriteLine("repositories/file\:_" & Links(mInstalLaufwerk, 1) & "\:" & Replace(mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash, "\", "_") & "Programme_Eclipse_p2_org.eclipse.equinox.p2.core_cache/suffix=artifacts.xml")
					objWriter.WriteLine("repositories/file\:_" & Links(mInstalLaufwerk, 1) & "\:" & Replace(mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash, "\", "_") & "Programme_Eclipse_p2_org.eclipse.equinox.p2.core_cache/type=org.eclipse.equinox.p2.artifact.repository.simpleRepository")
					objWriter.WriteLine("repositories/file\:_" & Links(mInstalLaufwerk, 1) & "\:" & Replace(mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash, "\", "_") & "Programme_Eclipse_p2_org.eclipse.equinox.p2.core_cache/uri=file\:/" & mInstalLaufwerk & "\:" & mInstalVerzeichnisOhneLaufwerksbuchstabeSlash & "Programme/Eclipse_4.6.3/p2/org.eclipse.equinox.p2.core/cache/")
					objWriter.WriteLine("repositories/file\:_" & Links(mInstalLaufwerk, 1) & "\:" & Replace(mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash, "\", "_") & "Programme_Eclipse_p2_org.eclipse.equinox.p2.core_cache/mVersion=1.0.0")
					objWriter.Close()
				End If
				
				mFileName  = mEigeneDateienVerzeichnisBackSlash & "\myEclipseWorkspace\.metadata\.plugins\org.eclipse.debug.core\.launches\Tomcat v7.0 Server at localhost.launch"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine( "<?xml mVersion=" & """" & "1.0" & """" & " encoding=" & """" & "UTF-8" & """"  & " standalone=" & """" & "no" & """" & "?>")
					objWriter.WriteLine( "<launchConfiguration type=" & """" & "org.eclipse.jst.server.tomcat.core.launchConfigurationType" & """" & ">")
					objWriter.WriteLine( "<listAttribute key=" & """" & "org.eclipse.jdt.launching.CLASSPATH" & """" & ">")
					objWriter.WriteLine( "<listEntry value=" & """" & "&lt;?xml mVersion=&quot;1.0&quot; encoding=&quot;UTF-8&quot; standalone=&quot;no&quot;?&gt;&#13;&#10;&lt;runtimeClasspathEntry containerPath=&quot;org.eclipse.jdt.launching.JRE_CONTAINER/org.eclipse.jdt.internal.debug.ui.launcher.StandardVMType/jdk1.7.0_13&quot; path=&quot;2&quot; type=&quot;4&quot;/&gt;&#13;&#10;" & """" & "/>")
					objWriter.WriteLine( "<listEntry value=" & """" & "&lt;?xml mVersion=&quot;1.0&quot; encoding=&quot;UTF-8&quot; standalone=&quot;no&quot;?&gt;&#13;&#10;&lt;runtimeClasspathEntry externalArchive=&quot;" & mInstalVerzeichnisBackSlash & "Programme/jdk1.7.0_13/lib/tools.jar&quot; path=&quot;3&quot; type=&quot;2&quot;/&gt;&#13;&#10;" & """" & "/>")
					objWriter.WriteLine( "<listEntry value=" & """" & "&lt;?xml mVersion=&quot;1.0&quot; encoding=&quot;UTF-8&quot; standalone=&quot;no&quot;?&gt;&#13;&#10;&lt;runtimeClasspathEntry externalArchive=&quot;" & mInstalVerzeichnisBackSlash & "Programme/Xampp_7.4.7/tomcat/bin/bootstrap.jar&quot; path=&quot;3&quot; type=&quot;2&quot;/&gt;&#13;&#10;" & """" & "/>")
					objWriter.WriteLine( "<listEntry value=" & """" & "&lt;?xml mVersion=&quot;1.0&quot; encoding=&quot;UTF-8&quot; standalone=&quot;no&quot;?&gt;&#13;&#10;&lt;runtimeClasspathEntry externalArchive=&quot;" & mInstalVerzeichnisBackSlash & "Programme/Xampp_7.4.7/tomcat/bin/tomcat-juli.jar&quot; path=&quot;3&quot; type=&quot;2&quot;/&gt;&#13;&#10;" & """" & "/>")
					objWriter.WriteLine( "</listAttribute>")
					objWriter.WriteLine( "<booleanAttribute key=" & """" & "org.eclipse.jdt.launching.DEFAULT_CLASSPATH" & """" & " value=" & """" & "false" & """" & "/>")
					objWriter.WriteLine( "<stringAttribute key=" & """" & "org.eclipse.jdt.launching.JRE_CONTAINER" & """" & " value=" & """" & "org.eclipse.jdt.launching.JRE_CONTAINER/org.eclipse.jdt.internal.debug.ui.launcher.StandardVMType/jdk1.7.0_13" & """" & "/>")
					objWriter.WriteLine( "<stringAttribute key=" & """" & "org.eclipse.jdt.launching.PROGRAM_ARGUMENTS" & """" & " value=" & """" & "start" & """" & "/>")
					objWriter.WriteLine( "<stringAttribute key=" & """" & "org.eclipse.jdt.launching.VM_ARGUMENTS" & """" & " value=" & """" & "-Dcatalina.base=&quot;" & mEigeneDateienVerzeichnisBackSlash & "\myEclipseWorkspace\.metadata\.plugins\org.eclipse.wst.server.core\tmp0&quot; -Dcatalina.home=&quot;" & mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\tomcat&quot; -Dwtp.deploy=&quot;" & mEigeneDateienVerzeichnisBackSlash & "\myEclipseWorkspace\.metadata\.plugins\org.eclipse.wst.server.core\tmp0\wtpwebapps&quot; -Djava.endorsed.dirs=&quot;" & mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\tomcat\endorsed&quot;" & """" & "/>")
					objWriter.WriteLine( "<stringAttribute key=" & """" & "server-id" & """" & " value=" & """" & "Tomcat v7.0 Server at localhost" & """" & "/>")
					objWriter.WriteLine( "</launchConfiguration>")
					objWriter.Close()
				End If
				
				mFileName  = mEigeneDateienVerzeichnisBackSlash & "\myEclipseWorkspace\.metadata\.plugins\org.eclipse.core.runtime\.settings\org.eclipse.jdt.core.prefs"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine("eclipse.preferences.mVersion=1")
					objWriter.WriteLine("org.eclipse.jdt.core.builder.resourceCopyExclusionFilter=*.uad,*.ucd,*.uld,*.upd,*.udd,*.uod,*.usd,*.utd,*.uud,*.odd,*.ead,*.ecd,*.eld,*.epd,*.edd,*.eod,*.esd,*.etd,*.eud,*.urd,*.uml,*.ecore")
					objWriter.WriteLine("org.eclipse.jdt.core.classpathVariable.JRE_LIB=" & Links(mInstalLaufwerk, 1) & "\:" & mInstalVerzeichnisOhneLaufwerksbuchstabeSlash)
					objWriter.WriteLine("org.eclipse.jdt.core.classpathVariable.JRE_SRC=" & Links(mInstalLaufwerk, 1) & "\:" & mInstalVerzeichnisOhneLaufwerksbuchstabeSlash)
					objWriter.WriteLine("org.eclipse.jdt.core.classpathVariable.JRE_SRCROOT=")
					objWriter.WriteLine("org.eclipse.jdt.core.classpathVariable.TOMCAT_HOME=" & Links(mInstalLaufwerk, 1) & "\:" & mInstalVerzeichnisOhneLaufwerksbuchstabeSlash)
					objWriter.WriteLine("org.eclipse.jdt.core.codeComplete.visibilityCheck=enabled")
					objWriter.WriteLine("org.eclipse.jdt.core.compiler.Source=1.7")
					objWriter.WriteLine("org.eclipse.jdt.core.compiler.codegen.inlineJsrBytecode=enabled")
					objWriter.WriteLine("org.eclipse.jdt.core.compiler.codegen.targetPlatform=1.7")
					objWriter.WriteLine("org.eclipse.jdt.core.compiler.compliance=1.7")
					objWriter.WriteLine("org.eclipse.jdt.core.compiler.taskCaseSensitive=Enabled")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.align_type_members_on_columns=false")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_arguments_in_allocation_expression=16")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_arguments_in_annotation=0")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_arguments_in_enum_constant=16")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_arguments_in_explicit_constructor_call=16")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_arguments_in_method_invocation=16")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_arguments_in_qualified_allocation_expression=16")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_assignment=0")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_binary_expression=16")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_compact_if=16")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_conditional_expression=80")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_enum_constants=0")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_expressions_in_array_initializer=16")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_method_declaration=0")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_multiple_fields=16")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_parameters_in_constructor_declaration=16")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_parameters_in_method_declaration=16")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_resources_in_try=80")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_selector_in_method_invocation=16")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_superclass_in_type_declaration=16")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_superinterfaces_in_enum_declaration=16")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_superinterfaces_in_type_declaration=16")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_throws_clause_in_constructor_declaration=16")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_throws_clause_in_method_declaration=16")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_union_type_in_multicatch=16")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.blank_lines_after_imports=1")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.blank_lines_after_package=1")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.blank_lines_before_field=0")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.blank_lines_before_first_class_body_declaration=0")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.blank_lines_before_imports=12")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.blank_lines_before_member_type=1")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.blank_lines_before_method=1")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.blank_lines_before_new_chunk=1")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.blank_lines_before_package=0")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.blank_lines_between_import_groups=1")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.blank_lines_between_type_declarations=1")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.brace_position_for_annotation_type_declaration=next_line")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.brace_position_for_anonymous_type_declaration=next_line")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.brace_position_for_array_initializer=next_line")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.brace_position_for_block=next_line")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.brace_position_for_block_in_case=next_line")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.brace_position_for_constructor_declaration=next_line")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.brace_position_for_enum_constant=next_line")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.brace_position_for_enum_declaration=next_line")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.brace_position_for_method_declaration=next_line")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.brace_position_for_switch=next_line")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.brace_position_for_type_declaration=next_line")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.comment.clear_blank_lines_in_block_comment=false")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.comment.clear_blank_lines_in_javadoc_comment=false")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.comment.format_block_comments=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.comment.format_header=false")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.comment.format_html=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.comment.format_javadoc_comments=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.comment.format_line_comments=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.comment.format_source_code=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.comment.indent_parameter_description=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.comment.indent_root_tags=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.comment.insert_new_line_before_root_tags=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.comment.insert_new_line_for_parameter=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.comment.line_length=80")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.comment.new_lines_at_block_boundaries=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.comment.new_lines_at_javadoc_boundaries=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.comment.preserve_white_space_between_code_and_line_comments=false")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.compact_else_if=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.continuation_indentation=2")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.continuation_indentation_for_array_initializer=2")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.disabling_tag=@formatter\:off")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.enabling_tag=@formatter\:on")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.format_guardian_clause_on_one_line=false")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.format_line_comment_starting_on_first_column=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.indent_body_declarations_compare_to_annotation_declaration_header=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.indent_body_declarations_compare_to_enum_constant_header=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.indent_body_declarations_compare_to_enum_declaration_header=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.indent_body_declarations_compare_to_type_header=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.indent_breaks_compare_to_cases=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.indent_empty_lines=false")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.indent_statements_compare_to_block=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.indent_statements_compare_to_body=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.indent_switchstatements_compare_to_cases=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.indent_switchstatements_compare_to_switch=false")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.indentation.Size=4")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.indentation.size=4")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_after_annotation_on_field=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_after_annotation_on_local_variable=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_after_annotation_on_method=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_after_annotation_on_package=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_after_annotation_on_parameter=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_after_annotation_on_type=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_after_label=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_after_opening_brace_in_array_initializer=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_at_end_of_file_if_missing=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_before_catch_in_try_statement=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_before_closing_brace_in_array_initializer=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_before_else_in_if_statement=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_before_finally_in_try_statement=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_before_while_in_do_statement=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_in_empty_annotation_declaration=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_in_empty_anonymous_type_declaration=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_in_empty_block=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_in_empty_enum_constant=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_in_empty_enum_declaration=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_in_empty_method_body=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_in_empty_type_declaration=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_and_in_type_parameter=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_assignment_operator=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_at_in_annotation=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_at_in_annotation_type_declaration=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_binary_operator=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_closing_angle_bracket_in_type_arguments=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_closing_angle_bracket_in_type_parameters=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_closing_brace_in_block=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_closing_paren_in_cast=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_colon_in_assert=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_colon_in_case=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_colon_in_conditional=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_colon_in_for=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_colon_in_labeled_statement=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_allocation_expression=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_annotation=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_array_initializer=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_constructor_declaration_parameters=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_constructor_declaration_throws=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_enum_constant_arguments=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_enum_declarations=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_explicitconstructorcall_arguments=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_for_increments=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_for_inits=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_method_declaration_parameters=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_method_declaration_throws=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_method_invocation_arguments=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_multiple_field_declarations=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_multiple_local_declarations=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_parameterized_type_reference=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_superinterfaces=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_type_arguments=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_type_parameters=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_ellipsis=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_angle_bracket_in_parameterized_type_reference=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_angle_bracket_in_type_arguments=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_angle_bracket_in_type_parameters=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_brace_in_array_initializer=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_bracket_in_array_allocation_expression=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_bracket_in_array_reference=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_paren_in_annotation=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_paren_in_cast=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_paren_in_catch=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_paren_in_constructor_declaration=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_paren_in_enum_constant=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_paren_in_for=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_paren_in_if=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_paren_in_method_declaration=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_paren_in_method_invocation=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_paren_in_parenthesized_expression=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_paren_in_switch=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_paren_in_synchronized=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_paren_in_try=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_paren_in_while=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_postfix_operator=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_prefix_operator=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_question_in_conditional=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_question_in_wildcard=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_semicolon_in_for=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_semicolon_in_try_resources=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_unary_operator=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_and_in_type_parameter=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_assignment_operator=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_at_in_annotation_type_declaration=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_binary_operator=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_angle_bracket_in_parameterized_type_reference=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_angle_bracket_in_type_arguments=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_angle_bracket_in_type_parameters=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_brace_in_array_initializer=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_bracket_in_array_allocation_expression=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_bracket_in_array_reference=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_paren_in_annotation=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_paren_in_cast=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_paren_in_catch=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_paren_in_constructor_declaration=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_paren_in_enum_constant=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_paren_in_for=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_paren_in_if=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_paren_in_method_declaration=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_paren_in_method_invocation=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_paren_in_parenthesized_expression=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_paren_in_switch=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_paren_in_synchronized=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_paren_in_try=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_paren_in_while=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_colon_in_assert=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_colon_in_case=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_colon_in_conditional=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_colon_in_default=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_colon_in_for=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_colon_in_labeled_statement=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_allocation_expression=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_annotation=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_array_initializer=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_constructor_declaration_parameters=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_constructor_declaration_throws=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_enum_constant_arguments=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_enum_declarations=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_explicitconstructorcall_arguments=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_for_increments=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_for_inits=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_method_declaration_parameters=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_method_declaration_throws=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_method_invocation_arguments=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_multiple_field_declarations=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_multiple_local_declarations=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_parameterized_type_reference=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_superinterfaces=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_type_arguments=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_type_parameters=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_ellipsis=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_angle_bracket_in_parameterized_type_reference=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_angle_bracket_in_type_arguments=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_angle_bracket_in_type_parameters=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_brace_in_annotation_type_declaration=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_brace_in_anonymous_type_declaration=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_brace_in_array_initializer=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_brace_in_block=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_brace_in_constructor_declaration=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_brace_in_enum_constant=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_brace_in_enum_declaration=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_brace_in_method_declaration=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_brace_in_switch=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_brace_in_type_declaration=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_bracket_in_array_allocation_expression=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_bracket_in_array_reference=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_bracket_in_array_type_reference=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_paren_in_annotation=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_paren_in_annotation_type_member_declaration=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_paren_in_catch=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_paren_in_constructor_declaration=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_paren_in_enum_constant=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_paren_in_for=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_paren_in_if=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_paren_in_method_declaration=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_paren_in_method_invocation=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_paren_in_parenthesized_expression=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_paren_in_switch=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_paren_in_synchronized=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_paren_in_try=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_paren_in_while=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_parenthesized_expression_in_return=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_parenthesized_expression_in_throw=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_postfix_operator=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_prefix_operator=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_question_in_conditional=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_question_in_wildcard=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_semicolon=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_semicolon_in_for=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_semicolon_in_try_resources=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_unary_operator=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_between_brackets_in_array_type_reference=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_between_empty_braces_in_array_initializer=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_between_empty_brackets_in_array_allocation_expression=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_between_empty_parens_in_annotation_type_member_declaration=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_between_empty_parens_in_constructor_declaration=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_between_empty_parens_in_enum_constant=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_between_empty_parens_in_method_declaration=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_between_empty_parens_in_method_invocation=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.join_lines_in_comments=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.join_wrapped_lines=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.keep_else_statement_on_same_line=false")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.keep_empty_array_initializer_on_one_line=false")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.keep_imple_if_on_one_line=false")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.keep_then_statement_on_same_line=false")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.lineSplit=80")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.never_indent_block_comments_on_first_column=false")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.never_indent_line_comments_on_first_column=false")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.number_of_blank_lines_at_beginning_of_method_body=0")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.number_of_empty_lines_to_preserve=1")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.put_empty_statement_on_new_line=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.tabulation.Size=4")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.tabulation.char=tab")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.tabulation.size=4")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.use_on_off_tags=false")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.use_tabs_only_for_leading_indentations=false")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.wrap_before_binary_operator=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.wrap_before_or_operator_multicatch=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.wrap_outer_expressions_when_nested=true")
					objWriter.Close()
				End If
				
				mFileName  = mEigeneDateienVerzeichnisBackSlash & "\myEclipseWorkspace\.metadata\.plugins\org.eclipse.core.runtime\.settings\net.sourceforge.phpeclipse.externaltools.prefs"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine("__apache_restart=")
					objWriter.WriteLine("__apache_stop=")
					objWriter.WriteLine("_apache_run_pref=" & Links(mInstalLaufwerk,1) & "\:" &  mInstallVerzeichnisDoppelBackSlashOhneLaufwerk & "Programme\\Xampp_7.4.7\\apacheEclipse_start.bat")
					objWriter.WriteLine("_mysql_run_pref=" & Links(mInstalLaufwerk,1) & "\:" &  mInstallVerzeichnisDoppelBackSlashOhneLaufwerk & "Programme\\Xampp_7.4.7\\mysqlEclipse_start.bat")
					objWriter.WriteLine("_xampp_start_pref=" & Links(mInstalLaufwerk,1) & "\:" &  mInstallVerzeichnisDoppelBackSlashOhneLaufwerk & "Programme\\Xampp_7.4.7\\Xampp_7.4.7-control.exe")
					objWriter.WriteLine("_xampp_stop_pref=")
					objWriter.WriteLine("eclipse.preferences.mVersion=1")
					objWriter.Close()
				End If
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Eclipse_4.6.3\p2\profiles.info"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine("epp.package.jee|Installation|" & mInstalLaufwerk & mInstallVerzeichnisDoppelBackSlashOhneLaufwerk & "\\Programme\\Eclipse|" & mInstalLaufwerk & mInstallVerzeichnisDoppelBackSlashOhneLaufwerk & "Programme\\Eclipse|")
					objWriter.Close()
				End If
			End If
			
			
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\Eclipse_4.21\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mDateiliste(0) = mEigeneDateienVerzeichnisBackSlash & "\myEclipseWorkspace\.metadata\.plugins\org.eclipse.pde.core\SavedExternalPluginList.txt"
				For Me.mMeinZaehler  = 0 To 1
					mFileName  = mDateiliste(mMeinZaehler)
					If System.IO.File.Exists(mFileName) = True Then
						txt = IO.File.ReadAllText(mDateiliste(mMeinZaehler))
						mFundstelle = 1
						While mFundstelle > 0
							mFundstelle = txt.IndexOf("/Programme/")
							If mFundstelle > 0 then
								mStellenZaehler = mFundstelle
								While txt.Substring(mStellenZaehler,6) <> "file:/" 
									mStellenZaehler = mStellenZaehler - 1
								End While
								mDoppelpunktStelle = mStellenZaehler
								txt = txt.Substring(0,mDoppelpunktStelle+6) & "ProgrammePfad" & txt.Substring(mFundstelle + 10,txt.Length - mFundstelle - 10)
							End If
						End While
						txt = txt.Replace("ProgrammePfad", Replace(mInstalVerzeichnisBackSlash, "\", "/") & "/Programme")
						IO.File.WriteAllText(mDateiliste(mMeinZaehler),txt)
					End If
				Next mMeinZaehler
				
				mDateiliste(0) = mEigeneDateienVerzeichnisBackSlash & "\myEclipseWorkspace\.metadata\.plugins\org.eclipse.debug.core\.launches\Tomcat v7.0 Server at localhost.launch"
				mDateiliste(1) = mEigeneDateienVerzeichnisBackSlash & "\myEclipseWorkspace\.metadata\.plugins\org.eclipse.jdt.core\savedIndexNames.txt"
				mDateiliste(2) = mEigeneDateienVerzeichnisBackSlash & "\myEclipseWorkspace\.metadata\.plugins\org.eclipse.ui.ide\dialog_settings.xml"
				mDateiliste(3) = mEigeneDateienVerzeichnisBackSlash & "\myEclipseWorkspace\.metadata\.plugins\org.eclipse.wst.jsdt.core\indexes\savedIndexNames.txt"
				mDateiliste(4) = mEigeneDateienVerzeichnisBackSlash & "\myEclipseWorkspace\.metadata\.plugins\org.eclipse.wst.server.core\tmp0\conf\server.xml"
				For Me.mMeinZaehler  = 0 To 4
					mFileName  = mDateiliste(mMeinZaehler)
					If System.IO.File.Exists(mFileName) = True Then
						txt = IO.File.ReadAllText(mFileName)
						mFundstelle = 1
						While mFundstelle > 0
							mFundstelle = txt.IndexOf("\Programme\")
							If mFundstelle > 0 then
								mStellenZaehler = mFundstelle
								While txt.Substring(mStellenZaehler,1) <> ";" 
									mStellenZaehler = mStellenZaehler - 1
									If mStellenZaehler < 0 Then
										mFundstelle = -1
										Exit While 
									End If
								End While
								If mStellenZaehler > -1 Then
									mDoppelpunktStelle = mStellenZaehler
									txt = txt.Substring(0,mDoppelpunktStelle+1) & "ProgrammePfad" & txt.Substring(mFundstelle + 10,txt.Length - mFundstelle - 10)
								End If 
							End If
						End While
						mFundstelle = 1
						While mFundstelle > 0
							mFundstelle = txt.IndexOf("\EigeneDateien\")
							If mFundstelle > 0 then
								mStellenZaehler = mFundstelle
								While txt.Substring(mStellenZaehler,1) <> ";"
									If txt.Substring(mStellenZaehler,1) = "+" Then
										Exit While 
									End If
									If txt.Substring(mStellenZaehler,1) = Chr(34) Then
										Exit While 
									End If
									mStellenZaehler = mStellenZaehler - 1
								End While
								mDoppelpunktStelle = mStellenZaehler
								txt = txt.Substring(0,mDoppelpunktStelle+1) & "EigeneDateienPfad" & txt.Substring(mFundstelle + 10,txt.Length - mFundstelle - 10)
							End If
						End While
						txt = txt.Replace("ProgrammePfad", mInstalVerzeichnisBackSlash & "\Programme")
						txt = txt.Replace("EigeneDateienPfad", mEigeneDateienOhneLaufwerksbuchstabeBackSlash )
						IO.File.WriteAllText(mFileName,txt)
					End If
				Next mMeinZaehler
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Eclipse_4.21\p2\pools.info"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine(mInstalVerzeichnisBackSlash & "Programme\Eclipse_4.21")
					objWriter.Close()
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Eclipse_4.21\eclipse.bat"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine("""" & mInstalVerzeichnisBackSlash & "Programme\Eclipse_4.21\eclipse.exe" & """" & " -vm " & """" & mInstalVerzeichnisBackSlash & "Programme\Java_17.0.1\bin" & """")
					objWriter.Close()
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Eclipse_4.21\configuration\.settings\org.eclipse.ui.ide.prefs"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine("MAX_RECENT_WORKSPACES=5")
					objWriter.WriteLine("RECENT_WORKSPACES=" & mEigeneDateienDoppelBackSlash & "\\myEclipseWorkspace")
					objWriter.WriteLine("RECENT_WORKSPACES_PROTOCOL=3")
					objWriter.WriteLine("SHOW_WORKSPACE_SELECTION_DIALOG=true")
					objWriter.WriteLine("eclipse.preferences.version=1")
					objWriter.Close()
				End If
				
				mFileName  =mEigeneDateienVerzeichnisBackSlash & "\myEclipseWorkspace\.metadata\.plugins\org.eclipse.core.runtime\.settings\org.eclipse.wst.server.core.prefs"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine("eclipse.preferences.version=1")
					objWriter.WriteLine("module-start-timeout=300000")
					objWriter.WriteLine("runtimes=<?xml version\=" & """" & "1.0" & """" & " encoding\=" & """" & "UTF-8" & """" & " standalone\=" & """" & "no" & """" & "?>\r\n<runtimes>\r\n  <runtime id\=" & """" & "Apache Tomcat v7.0" & """" & " location\=" & """" & Links(mInstalLaufwerk, 1) & "\:" & mInstalVerzeichnisOhneLaufwerksbuchstabeSlash & "Programme/Xampp_7.4.7/tomcat" & """" & " name\=" & """" & "Apache Tomcat v7.0" & """" & " runtime-type-id\=" & """" & "org.eclipse.jst.server.tomcat.runtime.70" & """" & " timestamp\=" & """" & "0" & """"  & "/>\r\n</runtimes>\r\n")
					objWriter.Close()
				End If
				
				mFileName  = mEigeneDateienVerzeichnisBackSlash & "\myEclipseWorkspace\.metadata\.plugins\org.eclipse.core.runtime\.settings\org.eclipse.jst.server.tomcat.core.prefs"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine("eclipse.preferences.mVersion=1")
					objWriter.WriteLine("locationorg.eclipse.jst.server.tomcat.runtime.70=" & Links(mInstalLaufwerk, 1) & "\:" & mInstalVerzeichnisOhneLaufwerksbuchstabeSlash & "Programme/Xampp_7.4.7/tomcat")
					objWriter.Close()
				End If
				
				mFileName  = mEigeneDateienVerzeichnisBackSlash & "\myEclipseWorkspace\.metadata\.plugins\org.eclipse.core.runtime\.settings\org.eclipse.jdt.launching.prefs"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine("eclipse.preferences.mVersion=1")
					objWriter.WriteLine("org.eclipse.jdt.launching.PREF_DEFAULT_ENVIRONMENTS_XML=")
					objWriter.WriteLine("org.eclipse.jdt.launching.PREF_VM_XML=<?xml mVersion\=" & """" & "1.0" & """" & " encoding\=" & """" & "UTF-8" & """" & " standalone\=" & """" & "no" & """" & "?>\r\n<vmSettings defaultVM\=" & """" & "57,org.eclipse.jdt.internal.debug.ui.launcher.StandardVMType13,1635520089934" & """" & " defaultVMConnector\=" & """" & """" & ">\r\n<vmType id\=" & """" & "org.eclipse.jdt.internal.debug.ui.launcher.StandardVMType" & """" & ">\r\n<vm id\=" & """" & "1635520089934" & """" & " name\=" & """" & "Java_17.0.1" & """" & " path\=" & """" & mInstalVerzeichnisDoppelBackSlash & "Programme\\Java_17.0.1" & """" & "/>\r\n</vmType>\r\n</vmSettings>\r\n")
					objWriter.Close()
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Eclipse_4.21\p2\org.eclipse.equinox.p2.engine\profileRegistry\epp.package.jee.profile\.data\.settings\org.eclipse.equinox.p2.artifact.repository.prefs"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine("eclipse.preferences.mVersion=1")
					objWriter.WriteLine("repositories/file\:_" & Links(mInstalLaufwerk, 1) & "\:" & Replace(mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash, "\", "_") & "Programme_Eclipse_p2_org.eclipse.equinox.p2.core_cache/description=")
					objWriter.WriteLine("repositories/file\:_" & Links(mInstalLaufwerk, 1) & "\:" & Replace(mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash, "\", "_") & "Programme_Eclipse_p2_org.eclipse.equinox.p2.core_cache/enabled=true")
					objWriter.WriteLine("repositories/file\:_" & Links(mInstalLaufwerk, 1) & "\:" & Replace(mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash, "\", "_") & "Programme_Eclipse_p2_org.eclipse.equinox.p2.core_cache/isSystem=true")
					objWriter.WriteLine("repositories/file\:_" & Links(mInstalLaufwerk, 1) & "\:" & Replace(mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash, "\", "_") & "Programme_Eclipse_p2_org.eclipse.equinox.p2.core_cache/name=download cache")
					objWriter.WriteLine("repositories/file\:_" & Links(mInstalLaufwerk, 1) & "\:" & Replace(mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash, "\", "_") & "Programme_Eclipse_p2_org.eclipse.equinox.p2.core_cache/provider=")
					objWriter.WriteLine("repositories/file\:_" & Links(mInstalLaufwerk, 1) & "\:" & Replace(mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash, "\", "_") & "Programme_Eclipse_p2_org.eclipse.equinox.p2.core_cache/suffix=artifacts.xml")
					objWriter.WriteLine("repositories/file\:_" & Links(mInstalLaufwerk, 1) & "\:" & Replace(mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash, "\", "_") & "Programme_Eclipse_p2_org.eclipse.equinox.p2.core_cache/type=org.eclipse.equinox.p2.artifact.repository.simpleRepository")
					objWriter.WriteLine("repositories/file\:_" & Links(mInstalLaufwerk, 1) & "\:" & Replace(mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash, "\", "_") & "Programme_Eclipse_p2_org.eclipse.equinox.p2.core_cache/uri=file\:/" & mInstalLaufwerk & "\:" & mInstalVerzeichnisOhneLaufwerksbuchstabeSlash & "Programme/Eclipse_4.6.3/p2/org.eclipse.equinox.p2.core/cache/")
					objWriter.WriteLine("repositories/file\:_" & Links(mInstalLaufwerk, 1) & "\:" & Replace(mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash, "\", "_") & "Programme_Eclipse_p2_org.eclipse.equinox.p2.core_cache/mVersion=1.0.0")
					objWriter.Close()
				End If
				
				mFileName  = mEigeneDateienVerzeichnisBackSlash & "\myEclipseWorkspace\.metadata\.plugins\org.eclipse.debug.core\.launches\Tomcat v7.0 Server at localhost.launch"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine( "<?xml mVersion=" & """" & "1.0" & """" & " encoding=" & """" & "UTF-8" & """"  & " standalone=" & """" & "no" & """" & "?>")
					objWriter.WriteLine( "<launchConfiguration type=" & """" & "org.eclipse.jst.server.tomcat.core.launchConfigurationType" & """" & ">")
					objWriter.WriteLine( "<listAttribute key=" & """" & "org.eclipse.jdt.launching.CLASSPATH" & """" & ">")
					objWriter.WriteLine( "<listEntry value=" & """" & "&lt;?xml mVersion=&quot;1.0&quot; encoding=&quot;UTF-8&quot; standalone=&quot;no&quot;?&gt;&#13;&#10;&lt;runtimeClasspathEntry containerPath=&quot;org.eclipse.jdt.launching.JRE_CONTAINER/org.eclipse.jdt.internal.debug.ui.launcher.StandardVMType/Java_17.0.1&quot; path=&quot;2&quot; type=&quot;4&quot;/&gt;&#13;&#10;" & """" & "/>")
					objWriter.WriteLine( "<listEntry value=" & """" & "&lt;?xml mVersion=&quot;1.0&quot; encoding=&quot;UTF-8&quot; standalone=&quot;no&quot;?&gt;&#13;&#10;&lt;runtimeClasspathEntry externalArchive=&quot;" & mInstalVerzeichnisBackSlash & "Programme/jdk1.7.0_13/lib/tools.jar&quot; path=&quot;3&quot; type=&quot;2&quot;/&gt;&#13;&#10;" & """" & "/>")
					objWriter.WriteLine( "<listEntry value=" & """" & "&lt;?xml mVersion=&quot;1.0&quot; encoding=&quot;UTF-8&quot; standalone=&quot;no&quot;?&gt;&#13;&#10;&lt;runtimeClasspathEntry externalArchive=&quot;" & mInstalVerzeichnisBackSlash & "Programme/Xampp_7.4.7/tomcat/bin/bootstrap.jar&quot; path=&quot;3&quot; type=&quot;2&quot;/&gt;&#13;&#10;" & """" & "/>")
					objWriter.WriteLine( "<listEntry value=" & """" & "&lt;?xml mVersion=&quot;1.0&quot; encoding=&quot;UTF-8&quot; standalone=&quot;no&quot;?&gt;&#13;&#10;&lt;runtimeClasspathEntry externalArchive=&quot;" & mInstalVerzeichnisBackSlash & "Programme/Xampp_7.4.7/tomcat/bin/tomcat-juli.jar&quot; path=&quot;3&quot; type=&quot;2&quot;/&gt;&#13;&#10;" & """" & "/>")
					objWriter.WriteLine( "</listAttribute>")
					objWriter.WriteLine( "<booleanAttribute key=" & """" & "org.eclipse.jdt.launching.DEFAULT_CLASSPATH" & """" & " value=" & """" & "false" & """" & "/>")
					objWriter.WriteLine( "<stringAttribute key=" & """" & "org.eclipse.jdt.launching.JRE_CONTAINER" & """" & " value=" & """" & "org.eclipse.jdt.launching.JRE_CONTAINER/org.eclipse.jdt.internal.debug.ui.launcher.StandardVMType/Java_17.0.1" & """" & "/>")
					objWriter.WriteLine( "<stringAttribute key=" & """" & "org.eclipse.jdt.launching.PROGRAM_ARGUMENTS" & """" & " value=" & """" & "start" & """" & "/>")
					objWriter.WriteLine( "<stringAttribute key=" & """" & "org.eclipse.jdt.launching.VM_ARGUMENTS" & """" & " value=" & """" & "-Dcatalina.base=&quot;" & mEigeneDateienVerzeichnisBackSlash & "\myEclipseWorkspace\.metadata\.plugins\org.eclipse.wst.server.core\tmp0&quot; -Dcatalina.home=&quot;" & mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\tomcat&quot; -Dwtp.deploy=&quot;" & mEigeneDateienVerzeichnisBackSlash & "\myEclipseWorkspace\.metadata\.plugins\org.eclipse.wst.server.core\tmp0\wtpwebapps&quot; -Djava.endorsed.dirs=&quot;" & mInstalVerzeichnisBackSlash & "Programme\Xampp_7.4.7\tomcat\endorsed&quot;" & """" & "/>")
					objWriter.WriteLine( "<stringAttribute key=" & """" & "server-id" & """" & " value=" & """" & "Tomcat v7.0 Server at localhost" & """" & "/>")
					objWriter.WriteLine( "</launchConfiguration>")
					objWriter.Close()
				End If
				
				mFileName  = mEigeneDateienVerzeichnisBackSlash & "\myEclipseWorkspace\.metadata\.plugins\org.eclipse.core.runtime\.settings\org.eclipse.jdt.core.prefs"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine("eclipse.preferences.mVersion=1")
					objWriter.WriteLine("org.eclipse.jdt.core.builder.resourceCopyExclusionFilter=*.uad,*.ucd,*.uld,*.upd,*.udd,*.uod,*.usd,*.utd,*.uud,*.odd,*.ead,*.ecd,*.eld,*.epd,*.edd,*.eod,*.esd,*.etd,*.eud,*.urd,*.uml,*.ecore")
					objWriter.WriteLine("org.eclipse.jdt.core.classpathVariable.JRE_LIB=" & Links(mInstalLaufwerk, 1) & "\:" & mInstalVerzeichnisOhneLaufwerksbuchstabeSlash)
					objWriter.WriteLine("org.eclipse.jdt.core.classpathVariable.JRE_SRC=" & Links(mInstalLaufwerk, 1) & "\:" & mInstalVerzeichnisOhneLaufwerksbuchstabeSlash)
					objWriter.WriteLine("org.eclipse.jdt.core.classpathVariable.JRE_SRCROOT=")
					objWriter.WriteLine("org.eclipse.jdt.core.classpathVariable.TOMCAT_HOME=" & Links(mInstalLaufwerk, 1) & "\:" & mInstalVerzeichnisOhneLaufwerksbuchstabeSlash)
					objWriter.WriteLine("org.eclipse.jdt.core.codeComplete.visibilityCheck=enabled")
					objWriter.WriteLine("org.eclipse.jdt.core.compiler.Source=16")
					objWriter.WriteLine("org.eclipse.jdt.core.compiler.codegen.inlineJsrBytecode=enabled")
					objWriter.WriteLine("org.eclipse.jdt.core.compiler.codegen.targetPlatform=16")
					objWriter.WriteLine("org.eclipse.jdt.core.compiler.compliance=1.7")
					objWriter.WriteLine("org.eclipse.jdt.core.compiler.taskCaseSensitive=Enabled")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.align_type_members_on_columns=false")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_arguments_in_allocation_expression=16")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_arguments_in_annotation=0")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_arguments_in_enum_constant=16")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_arguments_in_explicit_constructor_call=16")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_arguments_in_method_invocation=16")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_arguments_in_qualified_allocation_expression=16")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_assignment=0")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_binary_expression=16")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_compact_if=16")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_conditional_expression=80")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_enum_constants=0")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_expressions_in_array_initializer=16")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_method_declaration=0")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_multiple_fields=16")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_parameters_in_constructor_declaration=16")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_parameters_in_method_declaration=16")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_resources_in_try=80")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_selector_in_method_invocation=16")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_superclass_in_type_declaration=16")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_superinterfaces_in_enum_declaration=16")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_superinterfaces_in_type_declaration=16")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_throws_clause_in_constructor_declaration=16")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_throws_clause_in_method_declaration=16")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.alignment_for_union_type_in_multicatch=16")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.blank_lines_after_imports=1")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.blank_lines_after_package=1")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.blank_lines_before_field=0")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.blank_lines_before_first_class_body_declaration=0")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.blank_lines_before_imports=12")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.blank_lines_before_member_type=1")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.blank_lines_before_method=1")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.blank_lines_before_new_chunk=1")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.blank_lines_before_package=0")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.blank_lines_between_import_groups=1")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.blank_lines_between_type_declarations=1")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.brace_position_for_annotation_type_declaration=next_line")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.brace_position_for_anonymous_type_declaration=next_line")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.brace_position_for_array_initializer=next_line")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.brace_position_for_block=next_line")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.brace_position_for_block_in_case=next_line")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.brace_position_for_constructor_declaration=next_line")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.brace_position_for_enum_constant=next_line")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.brace_position_for_enum_declaration=next_line")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.brace_position_for_method_declaration=next_line")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.brace_position_for_switch=next_line")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.brace_position_for_type_declaration=next_line")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.comment.clear_blank_lines_in_block_comment=false")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.comment.clear_blank_lines_in_javadoc_comment=false")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.comment.format_block_comments=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.comment.format_header=false")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.comment.format_html=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.comment.format_javadoc_comments=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.comment.format_line_comments=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.comment.format_source_code=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.comment.indent_parameter_description=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.comment.indent_root_tags=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.comment.insert_new_line_before_root_tags=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.comment.insert_new_line_for_parameter=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.comment.line_length=80")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.comment.new_lines_at_block_boundaries=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.comment.new_lines_at_javadoc_boundaries=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.comment.preserve_white_space_between_code_and_line_comments=false")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.compact_else_if=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.continuation_indentation=2")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.continuation_indentation_for_array_initializer=2")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.disabling_tag=@formatter\:off")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.enabling_tag=@formatter\:on")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.format_guardian_clause_on_one_line=false")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.format_line_comment_starting_on_first_column=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.indent_body_declarations_compare_to_annotation_declaration_header=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.indent_body_declarations_compare_to_enum_constant_header=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.indent_body_declarations_compare_to_enum_declaration_header=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.indent_body_declarations_compare_to_type_header=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.indent_breaks_compare_to_cases=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.indent_empty_lines=false")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.indent_statements_compare_to_block=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.indent_statements_compare_to_body=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.indent_switchstatements_compare_to_cases=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.indent_switchstatements_compare_to_switch=false")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.indentation.Size=4")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.indentation.size=4")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_after_annotation_on_field=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_after_annotation_on_local_variable=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_after_annotation_on_method=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_after_annotation_on_package=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_after_annotation_on_parameter=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_after_annotation_on_type=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_after_label=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_after_opening_brace_in_array_initializer=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_at_end_of_file_if_missing=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_before_catch_in_try_statement=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_before_closing_brace_in_array_initializer=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_before_else_in_if_statement=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_before_finally_in_try_statement=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_before_while_in_do_statement=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_in_empty_annotation_declaration=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_in_empty_anonymous_type_declaration=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_in_empty_block=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_in_empty_enum_constant=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_in_empty_enum_declaration=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_in_empty_method_body=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_new_line_in_empty_type_declaration=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_and_in_type_parameter=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_assignment_operator=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_at_in_annotation=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_at_in_annotation_type_declaration=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_binary_operator=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_closing_angle_bracket_in_type_arguments=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_closing_angle_bracket_in_type_parameters=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_closing_brace_in_block=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_closing_paren_in_cast=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_colon_in_assert=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_colon_in_case=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_colon_in_conditional=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_colon_in_for=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_colon_in_labeled_statement=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_allocation_expression=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_annotation=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_array_initializer=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_constructor_declaration_parameters=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_constructor_declaration_throws=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_enum_constant_arguments=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_enum_declarations=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_explicitconstructorcall_arguments=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_for_increments=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_for_inits=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_method_declaration_parameters=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_method_declaration_throws=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_method_invocation_arguments=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_multiple_field_declarations=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_multiple_local_declarations=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_parameterized_type_reference=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_superinterfaces=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_type_arguments=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_comma_in_type_parameters=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_ellipsis=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_angle_bracket_in_parameterized_type_reference=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_angle_bracket_in_type_arguments=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_angle_bracket_in_type_parameters=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_brace_in_array_initializer=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_bracket_in_array_allocation_expression=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_bracket_in_array_reference=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_paren_in_annotation=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_paren_in_cast=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_paren_in_catch=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_paren_in_constructor_declaration=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_paren_in_enum_constant=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_paren_in_for=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_paren_in_if=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_paren_in_method_declaration=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_paren_in_method_invocation=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_paren_in_parenthesized_expression=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_paren_in_switch=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_paren_in_synchronized=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_paren_in_try=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_opening_paren_in_while=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_postfix_operator=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_prefix_operator=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_question_in_conditional=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_question_in_wildcard=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_semicolon_in_for=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_semicolon_in_try_resources=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_after_unary_operator=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_and_in_type_parameter=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_assignment_operator=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_at_in_annotation_type_declaration=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_binary_operator=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_angle_bracket_in_parameterized_type_reference=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_angle_bracket_in_type_arguments=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_angle_bracket_in_type_parameters=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_brace_in_array_initializer=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_bracket_in_array_allocation_expression=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_bracket_in_array_reference=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_paren_in_annotation=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_paren_in_cast=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_paren_in_catch=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_paren_in_constructor_declaration=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_paren_in_enum_constant=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_paren_in_for=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_paren_in_if=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_paren_in_method_declaration=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_paren_in_method_invocation=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_paren_in_parenthesized_expression=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_paren_in_switch=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_paren_in_synchronized=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_paren_in_try=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_closing_paren_in_while=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_colon_in_assert=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_colon_in_case=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_colon_in_conditional=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_colon_in_default=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_colon_in_for=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_colon_in_labeled_statement=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_allocation_expression=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_annotation=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_array_initializer=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_constructor_declaration_parameters=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_constructor_declaration_throws=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_enum_constant_arguments=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_enum_declarations=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_explicitconstructorcall_arguments=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_for_increments=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_for_inits=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_method_declaration_parameters=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_method_declaration_throws=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_method_invocation_arguments=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_multiple_field_declarations=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_multiple_local_declarations=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_parameterized_type_reference=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_superinterfaces=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_type_arguments=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_comma_in_type_parameters=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_ellipsis=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_angle_bracket_in_parameterized_type_reference=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_angle_bracket_in_type_arguments=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_angle_bracket_in_type_parameters=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_brace_in_annotation_type_declaration=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_brace_in_anonymous_type_declaration=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_brace_in_array_initializer=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_brace_in_block=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_brace_in_constructor_declaration=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_brace_in_enum_constant=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_brace_in_enum_declaration=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_brace_in_method_declaration=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_brace_in_switch=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_brace_in_type_declaration=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_bracket_in_array_allocation_expression=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_bracket_in_array_reference=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_bracket_in_array_type_reference=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_paren_in_annotation=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_paren_in_annotation_type_member_declaration=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_paren_in_catch=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_paren_in_constructor_declaration=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_paren_in_enum_constant=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_paren_in_for=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_paren_in_if=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_paren_in_method_declaration=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_paren_in_method_invocation=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_paren_in_parenthesized_expression=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_paren_in_switch=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_paren_in_synchronized=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_paren_in_try=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_opening_paren_in_while=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_parenthesized_expression_in_return=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_parenthesized_expression_in_throw=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_postfix_operator=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_prefix_operator=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_question_in_conditional=insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_question_in_wildcard=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_semicolon=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_semicolon_in_for=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_semicolon_in_try_resources=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_before_unary_operator=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_between_brackets_in_array_type_reference=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_between_empty_braces_in_array_initializer=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_between_empty_brackets_in_array_allocation_expression=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_between_empty_parens_in_annotation_type_member_declaration=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_between_empty_parens_in_constructor_declaration=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_between_empty_parens_in_enum_constant=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_between_empty_parens_in_method_declaration=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.insert_space_between_empty_parens_in_method_invocation=do not insert")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.join_lines_in_comments=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.join_wrapped_lines=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.keep_else_statement_on_same_line=false")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.keep_empty_array_initializer_on_one_line=false")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.keep_imple_if_on_one_line=false")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.keep_then_statement_on_same_line=false")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.lineSplit=80")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.never_indent_block_comments_on_first_column=false")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.never_indent_line_comments_on_first_column=false")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.number_of_blank_lines_at_beginning_of_method_body=0")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.number_of_empty_lines_to_preserve=1")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.put_empty_statement_on_new_line=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.tabulation.Size=4")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.tabulation.char=tab")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.tabulation.size=4")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.use_on_off_tags=false")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.use_tabs_only_for_leading_indentations=false")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.wrap_before_binary_operator=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.wrap_before_or_operator_multicatch=true")
					objWriter.WriteLine("org.eclipse.jdt.core.formatter.wrap_outer_expressions_when_nested=true")
					objWriter.Close()
				End If
				
				mFileName  = mEigeneDateienVerzeichnisBackSlash & "\myEclipseWorkspace\.metadata\.plugins\org.eclipse.core.runtime\.settings\net.sourceforge.phpeclipse.externaltools.prefs"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine("__apache_restart=")
					objWriter.WriteLine("__apache_stop=")
					objWriter.WriteLine("_apache_run_pref=" & Links(mInstalLaufwerk,1) & "\:" &  mInstallVerzeichnisDoppelBackSlashOhneLaufwerk & "Programme\\Xampp_7.4.7\\apacheEclipse_start.bat")
					objWriter.WriteLine("_mysql_run_pref=" & Links(mInstalLaufwerk,1) & "\:" &  mInstallVerzeichnisDoppelBackSlashOhneLaufwerk & "Programme\\Xampp_7.4.7\\mysqlEclipse_start.bat")
					objWriter.WriteLine("_xampp_start_pref=" & Links(mInstalLaufwerk,1) & "\:" &  mInstallVerzeichnisDoppelBackSlashOhneLaufwerk & "Programme\\Xampp_7.4.7\\Xampp_7.4.7-control.exe")
					objWriter.WriteLine("_xampp_stop_pref=")
					objWriter.WriteLine("eclipse.preferences.mVersion=1")
					objWriter.Close()
				End If
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Eclipse_4.21\p2\profiles.info"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine("epp.package.jee|Installation|" & mInstalLaufwerk & mInstallVerzeichnisDoppelBackSlashOhneLaufwerk & "\\Programme\\Eclipse|" & mInstalLaufwerk & mInstallVerzeichnisDoppelBackSlashOhneLaufwerk & "Programme\\Eclipse|")
					objWriter.Close()
				End If
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\Struktogrammer_0.9.1\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Struktogrammer_0.9.1\Struktogrammerstart.bat"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine(mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\javaw.exe -jar " & mInstalVerzeichnisBackSlash & "Programme\Struktogrammer_0.9.1\husStgr_v0.9.1.jar")
					objWriter.Close()
				End If
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\Struktogrammer_0.9.3\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Struktogrammer_0.9.3\Struktogrammerstart.bat"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine(mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\javaw.exe -jar " & mInstalVerzeichnisBackSlash & "Programme\Struktogrammer_0.9.3\husStgr_v0.9.3.jar")
					objWriter.Close()
				End If
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\Struktogrammer_1.1a\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Struktogrammer_1.1a\Struktogrammerstart.bat"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine(mInstalVerzeichnisBackSlash & "Programme\Java_17.0.1\bin\javaw.exe -jar " & mInstalVerzeichnisBackSlash & "Programme\Struktogrammer_1.1a\husStgr_v1.1a.jar")
					objWriter.Close()
				End If
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\Violet_3.0.0\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Violet_3.0.0\VioletStart.bat"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine(mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\javaw.exe -jar " & mInstalVerzeichnisBackSlash & "Programme\Violet_3.0.0\violetumleditor-3.0.0.jar")
					objWriter.Close()
				End If
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\Violet_UML_Editor_2.2.2\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Violet_UML_Editor_2.2.2\VioletStart.bat"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine(mInstalVerzeichnisBackSlash & "Programme\Java_17.0.1\bin\javaw.exe -jar " & mInstalVerzeichnisBackSlash & "Programme\Violet_UML_Editor_2.2.2\violetumleditor-2.2.2.jar")
					objWriter.Close()
				End If
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\Thonny_3.1.2\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mFileName = mInstalVerzeichnisBackSlash & "Programme\Thonny_3.1.2\.thonny\configuration.ini"
				If System.IO.File.Exists(mFileName) = True Then
					txt = IO.File.ReadAllText(mFileName)
					mFundstelle = 1
					While mFundstelle > 0
						mFundstelle = txt.IndexOf("\EigeneDateien\")
						If mFundstelle > 0 then
							mStellenZaehler = mFundstelle
							While txt.Substring(mStellenZaehler,2) <> "= "
								mStellenZaehler = mStellenZaehler - 1
							End While
							mDoppelpunktStelle = mStellenZaehler
							txt = txt.Substring(0,mDoppelpunktStelle+2) & "EigeneDateienPfad" & txt.Substring(mFundstelle + 10,txt.Length - mFundstelle - 10)
						End If
					End While
					txt = txt.Replace("EigeneDateienPfad", mEigeneDateienOhneLaufwerksbuchstabeBackSlash )
					IO.File.WriteAllText(mFileName,txt)
				End If
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\VSCode_1.104.2\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mFileName = mInstalVerzeichnisBackSlash & "Programme\VSCode_1.104.2\data\extensions\extensions.json"
				If System.IO.File.Exists(mFileName) = True Then
					'					txt = IO.File.ReadAllText(mFileName)
					'					mFundstelle = 1
					'					While mFundstelle > 0
					'						mFundstelle = txt.IndexOf("\EigeneDateien\")
					'						If mFundstelle > 0 then
					'							mStellenZaehler = mFundstelle
					'							While txt.Substring(mStellenZaehler,2) <> "= "
					'								mStellenZaehler = mStellenZaehler - 1
					'							End While
					'							mDoppelpunktStelle = mStellenZaehler
					'							txt = txt.Substring(0,mDoppelpunktStelle+2) & "EigeneDateienPfad" & txt.Substring(mFundstelle + 10,txt.Length - mFundstelle - 10)
					'						End If
					'					End While
					'					txt = txt.Replace("EigeneDateienPfad", mEigeneDateienOhneLaufwerksbuchstabeBackSlash )
					'					IO.File.WriteAllText(mFileName,txt)
					
					
					Dim input As String = System.IO.File.ReadAllText(mFileName)
					
					' Regex: erlaubt "/" oder "\" im Pfad
					'Dim pattern As String = "[A-Za-z]:[\\/].*?[\\/]+Programme[\\/]+VSCode_1\.104\.2"
					
					Dim pattern As String = "[A-Za-z]:/(?:[^:/]+/)*Programme/VSCode_1\.104\.2"
					Dim replacement As String = "D:/Temp/S2025TestMueller/Programme/VSCode_1.104.2"
					Dim output As String = Regex.Replace(input, pattern, replacement)
					System.IO.File.WriteAllText(mFileName, output)
					
					
					input = System.IO.File.ReadAllText(mFileName)
					pattern = "[A-Za-z]:\\\\(?:[^:\\\\]+\\\\)*Programme\\\\VSCode_1\.104\.2"
					replacement = "d:\\Temp\\S2025TestMueller\\Programme\\VSCode_1.104.2"
					output = Regex.Replace(input, pattern, replacement)	
					System.IO.File.WriteAllText(mFileName, output)
					
					input = System.IO.File.ReadAllText(mFileName)
					pattern = "[A-Za-z]%3A/(?:[^:/]+/)*Programme/VSCode_1\.104\.2"
					replacement = "d%3A/Temp/S2025TestMueller/Programme/VSCode_1.104.2"
					output = Regex.Replace(input, pattern, replacement)				
					System.IO.File.WriteAllText(mFileName, output)
					
					
				End If
				mFileName = mInstalVerzeichnisBackSlash & "Programme\VSCode_1.104.2\data\user-data\User\settings.json"
				If System.IO.File.Exists(mFileName) = True Then
					Dim input As String = System.IO.File.ReadAllText(mFileName)
					Dim pattern As String = "[A-Za-z]:\\\\(?:[^:\\\\]+\\\\)*Programme\\\\VSCode_1\.104\.2"
					Dim replacement As String = "D:\\Temp\\S2025TestMueller\\Programme\\VSCode_1.104.2"
					Dim output As String = Regex.Replace(input, pattern, replacement)
					
					System.IO.File.WriteAllText(mFileName, output)
					
				End If
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\JavaEditor_15.24a\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\JavaEditor_15.24a\JEMachine.ini"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter(mFileName)
					objWriter.WriteLine("[User]")
					objWriter.WriteLine("HomeDir=" & mEigeneDateienVerzeichnisBackSlash & "\myJavaeditor\")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Java]")
					objWriter.WriteLine("Language=" & mInstalVerzeichnisBackSlash & "Programme\JavaEditor_15.24a\languages\deutsch.ini")
					objWriter.WriteLine("PortableApplication=0")
					objWriter.WriteLine("WriteProtection=ok")
					objWriter.WriteLine("JDK-Folder=" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0")
					objWriter.WriteLine("Interpreter=" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\java.exe")
					objWriter.WriteLine("Classpath=" & mInstalVerzeichnisBackSlash & "Programme\JavaEditor_15.24a\JEClasses.jar")
					objWriter.WriteLine("JavaCompiler=" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\javac.exe")
					objWriter.WriteLine("JDK-Folder=" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0")
					objWriter.WriteLine("Interpreter=" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\java.exe")
					objWriter.WriteLine("JDK-Folder intern=")
					objWriter.WriteLine("JavaCompiler=" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\javac.exe")
					objWriter.WriteLine("Debugger=" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\jdb.exe")
					objWriter.WriteLine("JavaDoc=" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\javadoc.exe")
					objWriter.WriteLine("Appletviewer=" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\appletviewer.exe")
					objWriter.WriteLine("Jar=" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\jar.exe")
					objWriter.WriteLine("Disassembler=" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\javap.exe")
					objWriter.WriteLine("DOS-Window=0")
					objWriter.WriteLine("BlockedInternet=0")
					objWriter.WriteLine("LockedPaths=0")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Templates]")
					objWriter.WriteLine("Program=")
					objWriter.WriteLine("Frame=")
					objWriter.WriteLine("Dialog=")
					objWriter.WriteLine("Applet=")
					objWriter.WriteLine("JFrame=")
					objWriter.WriteLine("JDialog=")
					objWriter.WriteLine("JApplet=")
					objWriter.WriteLine("Controlstructures=")
					objWriter.WriteLine("Class=")
					objWriter.WriteLine("Mindstorms=")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Program]")
					objWriter.WriteLine("Manual=" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\docs\j2se7.chm")
					objWriter.WriteLine("ManualItems=\docs\index.html;\docs;\chm;")
					objWriter.WriteLine("Tutorial=")
					objWriter.WriteLine("Javabook=")
					objWriter.WriteLine("ManualFX=" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\docsfx\api\index.html")
					objWriter.WriteLine("Cache=")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Editor]")
					objWriter.WriteLine("Keyboardfile=")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Browser]")
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\OperaPortable_62.0\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						objWriter.WriteLine("Browser=" & mInstalVerzeichnisBackSlash & "Programme\OperaPortable_62.0\launcher.exe")
					Else
						objWriter.WriteLine("Browser=")
					End If
					objWriter.WriteLine("")
					objWriter.WriteLine("[Mindstorms]")
					objWriter.WriteLine("LejosFolder=")
					objWriter.WriteLine("LejosCompiler=")
					objWriter.WriteLine("LejosUploader=")
					objWriter.WriteLine("LejosFlasher=")
					objWriter.WriteLine("Manual=")
					objWriter.WriteLine("RCXFolder=")
					objWriter.WriteLine("NXTFolder=")
					objWriter.WriteLine("EV3Folder=")
					objWriter.WriteLine("RCXCompiler=")
					objWriter.WriteLine("NXTCompiler=")
					objWriter.WriteLine("RCXUploader=")
					objWriter.WriteLine("NXTUploader=")
					objWriter.WriteLine("RCXFlasher=")
					objWriter.WriteLine("NXTFlasher=")
					objWriter.WriteLine("RCXManual=")
					objWriter.WriteLine("NXTManual=")
					objWriter.WriteLine("EV3Manual=")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Checkstyle]")
					objWriter.WriteLine("Checkstyle=")
					objWriter.WriteLine("Configurationfile=")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Jalopy]")
					objWriter.WriteLine("Jalopy=")
					objWriter.WriteLine("JalopyConfiguration=")
					objWriter.WriteLine("")
					objWriter.WriteLine("[SVN]")
					objWriter.WriteLine("SVNFolder=")
					objWriter.WriteLine("SVNRepository=")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Logfiles]")
					objWriter.WriteLine("LogfileCompiler=")
					objWriter.WriteLine("LogfileInteractive=")
					objWriter.WriteLine("LogfileExceptions=" & mInstalVerzeichnisBackSlash & "Programme\JavaEditor_15.24a\App\Log\JELogfileExceptions.txt")
					objWriter.Close()
				End If
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\JavaEditor_15.24a\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mFileName  = mEigeneDateienVerzeichnisBackSlash & "myJavaEditor\JEUser.ini"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter(mFileName)
					objWriter.WriteLine("[History]")
					objWriter.WriteLine("Files=0")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Program]")
					objWriter.WriteLine("BorderLayout=X")
					objWriter.WriteLine("StartClass=")
					objWriter.WriteLine("InterpreterParameter=")
					objWriter.WriteLine("Classpath=")
					objWriter.WriteLine("ClasspathAll=")
					objWriter.WriteLine("JavaCompilerParameter=-O -deprecation -g")
					objWriter.WriteLine("JikesCompilerParameter=-O -deprecation -g")
					objWriter.WriteLine("JavaAsStandard=1")
					objWriter.WriteLine("CompileAsMake=1")
					objWriter.WriteLine("CompileInternally=0")
					objWriter.WriteLine("DocParameter=-author -version")
					objWriter.WriteLine("AppletStart=0")
					objWriter.WriteLine("ShowHTMLforApplet=1")
					objWriter.WriteLine("DisassemblerParameter=-l -c -verbose")
					objWriter.WriteLine("DisassemblerItems=jad.exe;")
					objWriter.WriteLine("JavaDocs=")
					objWriter.WriteLine("JavaDocsAll=")
					objWriter.WriteLine("Cache=" & mInstalVerzeichnisBackSlash & "Programme\JavaEditor_15.24a\App\Cache")
					objWriter.WriteLine("MaxSearch=20")
					objWriter.WriteLine("Update=0")
					objWriter.WriteLine("Sourcepath=" & mInstalVerzeichnisBackSlash & "")
					objWriter.WriteLine("Left=-8")
					objWriter.WriteLine("Top=-8")
					objWriter.WriteLine("Width=1936")
					objWriter.WriteLine("Height=1056")
					objWriter.WriteLine("WindowState=2")
					objWriter.WriteLine("Toolbar=1")
					objWriter.WriteLine("Layout=0")
					objWriter.WriteLine("ComponentToolbarLeft=300")
					objWriter.WriteLine("ShowEvents=1")
					objWriter.WriteLine("Version=15.24a")
					objWriter.WriteLine("TempDir=" & mInstalVerzeichnisBackSlash & "Programme\JavaEditor_15.24a\Temp\")
					objWriter.WriteLine("FileFilter=1")
					objWriter.WriteLine("WindowStateMaximized=1")
					objWriter.WriteLine("ShowInterpreterCall=0")
					objWriter.WriteLine("ShowCompilerCall=0")
					objWriter.WriteLine("InitDefLay=1")
					objWriter.WriteLine("ManualItems=\docs\index.html;\docs;\chm;")
					objWriter.WriteLine("ManualFXItems=D:\S20\Programme\Java_1.8.0\docsfx\api\index.html")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Java]")
					objWriter.WriteLine("[Jar]")
					objWriter.WriteLine("JarParameter=-cfv")
					objWriter.WriteLine("JarManifest=")
					objWriter.WriteLine("JarCreate=*.class")
					objWriter.WriteLine("JarCreateAll=1#*.class")
					objWriter.WriteLine("JarPack=*.java *.jfm *.uml")
					objWriter.WriteLine("JarClassPath=JEClasses.jar")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Editor]")
					objWriter.WriteLine("TabWidth=2")
					objWriter.WriteLine("Indent=2")
					objWriter.WriteLine("FrameWidth=300")
					objWriter.WriteLine("FrameHeight=300")
					objWriter.WriteLine("AppletWidth=400")
					objWriter.WriteLine("AppletHeight=300")
					objWriter.WriteLine("IndentHelp=1")
					objWriter.WriteLine("CursorBehindLine=1")
					objWriter.WriteLine("AutomaticIndent=1")
					objWriter.WriteLine("Linenumbering=1")
					objWriter.WriteLine("CompleteBracket=0")
					objWriter.WriteLine("BracketStructureline=0")
					objWriter.WriteLine("BracketPair=1")
					objWriter.WriteLine("EditorToolbar=1")
					objWriter.WriteLine("CommentClosingBrackets=1")
					objWriter.WriteLine("StructureColoring=1")
					objWriter.WriteLine("StructureColorIntensity=5")
					objWriter.WriteLine("InsertControlStructures=1")
					objWriter.WriteLine("InsertSemicolons=1")
					objWriter.WriteLine("IndentSourcecode=1")
					objWriter.WriteLine("Encoding=0")
					objWriter.WriteLine("AutomatedImport=0")
					objWriter.WriteLine("IndentAfterBracket=1")
					objWriter.WriteLine("StructureColoringPlane=1")
					objWriter.WriteLine("Codepage=")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Code]")
					objWriter.WriteLine("Code-Completion=1")
					objWriter.WriteLine("Parameter-Hints=1")
					objWriter.WriteLine("Delay=100")
					objWriter.WriteLine("ShowClassObject=0")
					objWriter.WriteLine("TooltipWithKey=1")
					objWriter.WriteLine("TooltipAutomatic=0")
					objWriter.WriteLine("TooltipDelay=700")
					objWriter.WriteLine("TooltipWidth=200")
					objWriter.WriteLine("TooltipHeight=150")
					objWriter.WriteLine("TooltipFontZoom=1")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Colors\StructureLines]")
					objWriter.WriteLine("Background=536870911")
					objWriter.WriteLine("Foreground=16711680")
					objWriter.WriteLine("Style=0")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Colors\Brackets]")
					objWriter.WriteLine("Background=12632256")
					objWriter.WriteLine("Foreground=255")
					objWriter.WriteLine("Style=0")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Browser]")
					objWriter.WriteLine("UseIEinternForDocuments=1")
					objWriter.WriteLine("OnlyOneBrowserWindow=0")
					objWriter.WriteLine("BrowserOpenKeys=")
					objWriter.WriteLine("Title=Internet Explorer")
					objWriter.WriteLine("ProxyEnabled=0")
					objWriter.WriteLine("ProxyIP=")
					objWriter.WriteLine("ProxyPort=0")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Printer]")
					objWriter.WriteLine("Left=20")
					objWriter.WriteLine("Top=20")
					objWriter.WriteLine("Right=20")
					objWriter.WriteLine("Bottom=20")
					objWriter.WriteLine("Linenumbers=0")
					objWriter.WriteLine("LinenumbersInMargin=1")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Comment]")
					objWriter.WriteLine("Type=0")
					objWriter.WriteLine("Author=")
					objWriter.WriteLine("Method=")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Turtle]")
					objWriter.WriteLine("UseTurtleInClasspath=0")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Mindstorms]")
					objWriter.WriteLine("Parameter=")
					objWriter.WriteLine("Mode=0")
					objWriter.WriteLine("Version=0")
					objWriter.WriteLine("Port=0")
					objWriter.WriteLine("IP=10.0.1.1")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Options]")
					objWriter.WriteLine("RemoveWriteprotection=1")
					objWriter.WriteLine("BAKFiles=1")
					objWriter.WriteLine("LoadFiles=1")
					objWriter.WriteLine("UseInterpreterWindowAsConsole=0")
					objWriter.WriteLine("ComponentsToolbar=1")
					objWriter.WriteLine("BorderLayout=0")
					objWriter.WriteLine("Rename=1")
					objWriter.WriteLine("DebuggerProtocol=0")
					objWriter.WriteLine("GuiDesignerHints=1")
					objWriter.WriteLine("OpenMessageWindowAutomatically=1")
					objWriter.WriteLine("StrictJavaMode=1")
					objWriter.WriteLine("CheckAge=1")
					objWriter.WriteLine("Fontsize=9")
					objWriter.WriteLine("MaxFileHistory=9")
					objWriter.WriteLine("Codepage=cp850")
					objWriter.WriteLine("Language=" & mInstalVerzeichnisBackSlash & "Programme\JavaEditor_15.24a\languages\deutsch.ini")
					objWriter.WriteLine("FileFilter=")
					objWriter.WriteLine("AcceptDefaultname=0")
					objWriter.WriteLine("SnapToGrid=1")
					objWriter.WriteLine("GridSize=8")
					objWriter.WriteLine("NameFromText=1")
					objWriter.WriteLine("TranslateCompilerErrors=1")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Associations]")
					objWriter.WriteLine("Additional=")
					objWriter.WriteLine("")
					objWriter.WriteLine("[UML]")
					objWriter.WriteLine("ValidClassColor=16777215")
					objWriter.WriteLine("InvalidClassColor=16711935")
					objWriter.WriteLine("ClassHead=0")
					objWriter.WriteLine("ObjectColor=65535")
					objWriter.WriteLine("ObjectHead=1")
					objWriter.WriteLine("ObjectFooter=1")
					objWriter.WriteLine("ObjectCaption=0")
					objWriter.WriteLine("ObjectUnderline=1")
					objWriter.WriteLine("PrivateAttribut=1")
					objWriter.WriteLine("ShowEmptyRects=0")
					objWriter.WriteLine("ShowFunctionvalues=1")
					objWriter.WriteLine("ObjectLowerCaseLetter=1")
					objWriter.WriteLine("ShowPublicOnly=0")
					objWriter.WriteLine("ShowObjectsWithMethods=0")
					objWriter.WriteLine("ShadowWidth=3")
					objWriter.WriteLine("ShadowIntensity=8")
					objWriter.WriteLine("UseVoid=0")
					objWriter.WriteLine("IntegerInsteadofInt=0")
					objWriter.WriteLine("ShowAllNewObjects=1")
					objWriter.WriteLine("Name=MS Sans Serif")
					objWriter.WriteLine("Size=10")
					objWriter.WriteLine("ShowParameter=4")
					objWriter.WriteLine("Visibility=0")
					objWriter.WriteLine("SortOrder=0")
					objWriter.WriteLine("ShowIcons=0")
					objWriter.WriteLine("CommentColor=15780518")
					objWriter.WriteLine("ConstructorWithVisibility=0")
					objWriter.WriteLine("DefaultModifiers=1")
					objWriter.WriteLine("AttributesAParametersP=0")
					objWriter.WriteLine("RelationshipAttributesBold=1")
					objWriter.WriteLine("ShowObjectsWithInheritedPrivateAttributes=1")
					objWriter.WriteLine("StartWithDatatype=0")
					objWriter.WriteLine("SetterWithoutThis=1")
					objWriter.WriteLine("ShowClassparameterSeparately=0")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Checkstyle]")
					objWriter.WriteLine("CheckParameter=")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Jalopy]")
					objWriter.WriteLine("JalopyParameter=")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Visibility]")
					objWriter.WriteLine("Tabs=111111111")
					objWriter.WriteLine("Program=111111111111")
					objWriter.WriteLine("Datatype=111111111")
					objWriter.WriteLine("AWT=111111111111111111")
					objWriter.WriteLine("Swing1=1111111111111111111")
					objWriter.WriteLine("Swing2=11111111111111111111")
					objWriter.WriteLine("Layout=111111")
					objWriter.WriteLine("Menus=1110")
					objWriter.WriteLine("Toolbars=111110")
					objWriter.WriteLine("Utilities=111")
					objWriter.WriteLine("FXBase=11111111111111111111")
					objWriter.WriteLine("FXControls=111111111111111111111")
					objWriter.WriteLine("FXShapes=11111111111")
					objWriter.WriteLine("FXMenu=11111")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Font]")
					objWriter.WriteLine("Name=Courier New")
					objWriter.WriteLine("Size=10")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Window]")
					objWriter.WriteLine("Current=")
					objWriter.WriteLine("Wins=0")
					objWriter.WriteLine("Win1=W1)1)1435)627)0)P%P%O0T124)X1)Y1))#)%E%D:\Configuration.ini")
					objWriter.WriteLine("")
					objWriter.WriteLine("[CodeCompletion]")
					objWriter.WriteLine("FontName=Courier New")
					objWriter.WriteLine("FontSize=8")
					objWriter.WriteLine("Width=260")
					objWriter.WriteLine("Lines=8")
					objWriter.WriteLine("Height=100")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Messages]")
					objWriter.WriteLine("Visible=1")
					objWriter.WriteLine("Docked=1")
					objWriter.WriteLine("FontName=Courier New")
					objWriter.WriteLine("FontSize=10")
					objWriter.WriteLine("InteractiveWidth1=100")
					objWriter.WriteLine("InteractiveWidth2=200")
					objWriter.WriteLine("TabIndex=5")
					objWriter.WriteLine("Left=0")
					objWriter.WriteLine("Top=1030")
					objWriter.WriteLine("Width=553")
					objWriter.WriteLine("Height=200")
					objWriter.WriteLine("Splitter=282")
					objWriter.WriteLine("")
					objWriter.WriteLine("[ObjectInspector]")
					objWriter.WriteLine("Visible=1")
					objWriter.WriteLine("Left=300")
					objWriter.WriteLine("Top=200")
					objWriter.WriteLine("Width=100")
					objWriter.WriteLine("Height=200")
					objWriter.WriteLine("ELPropertyInspector.Splitter=144")
					objWriter.WriteLine("ELEventInspector.Splitter=50")
					objWriter.WriteLine("Font.Size=12")
					objWriter.WriteLine("Font.Name=Tahoma")
					objWriter.WriteLine("Floating=0")
					objWriter.WriteLine("UndockLeft=1")
					objWriter.WriteLine("UndockTop=1")
					objWriter.WriteLine("UndockWidth=200")
					objWriter.WriteLine("UndockHeight=200")
					objWriter.WriteLine("")
					objWriter.WriteLine("[ObjectGenerator]")
					objWriter.WriteLine("Left=300")
					objWriter.WriteLine("Top=200")
					objWriter.WriteLine("Width=251")
					objWriter.WriteLine("Height=200")
					objWriter.WriteLine("ValueListEditor.ColWidth=47")
					objWriter.WriteLine("Font.Size=13")
					objWriter.WriteLine("Font.Name=Segoe UI")
					objWriter.WriteLine("")
					objWriter.WriteLine("[ClassEditor]")
					objWriter.WriteLine("RGAttributeAccess=0")
					objWriter.WriteLine("CBAttributeStatic=0")
					objWriter.WriteLine("CBGetMethod=1")
					objWriter.WriteLine("CBSetMethod=1")
					objWriter.WriteLine("RGMethodKind=-1")
					objWriter.WriteLine("RGMethodAccess=3")
					objWriter.WriteLine("CBMethodStatic=0")
					objWriter.WriteLine("CBMethodAbstract=0")
					objWriter.WriteLine("")
					objWriter.WriteLine("[SearchReplace]")
					objWriter.WriteLine("SearchText=")
					objWriter.WriteLine("SearchTextHistory=")
					objWriter.WriteLine("ReplaceText=")
					objWriter.WriteLine("ReplaceTextHistory=")
					objWriter.WriteLine("Replace=0")
					objWriter.WriteLine("CaseSensitive=0")
					objWriter.WriteLine("WholeWords=0")
					objWriter.WriteLine("FromCursor=0")
					objWriter.WriteLine("SelectionOnly=0")
					objWriter.WriteLine("RegEx=0")
					objWriter.WriteLine("Where=1")
					objWriter.WriteLine("Directory=")
					objWriter.WriteLine("DirectoryHistory=")
					objWriter.WriteLine("Filemask=*.java")
					objWriter.WriteLine("FilemaskHistroy=")
					objWriter.WriteLine("IncludeSubdirs=1")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Watches]")
					objWriter.WriteLine("Count=0")
					objWriter.WriteLine("")
					objWriter.WriteLine("[GUIDesigner]")
					objWriter.WriteLine("SnapToGrid=1")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Structogram]")
					objWriter.WriteLine("Name=Arial")
					objWriter.WriteLine("Size=10")
					objWriter.WriteLine("GenerateJavaAsProgram=1")
					objWriter.WriteLine("Aligned=1")
					objWriter.WriteLine("SwitchWithCaseLine=0")
					objWriter.WriteLine("CaseCount=4")
					objWriter.WriteLine("ShadowWidth=3")
					objWriter.WriteLine("ShadowIntensity=3")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Colors]")
					objWriter.WriteLine("NoActiveLineColor=1")
					objWriter.WriteLine("ActiveLineColor=536870911")
					objWriter.WriteLine("NoSyntaxHighlighting=0")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Structogram.deutsch]")
					objWriter.WriteLine("Algorithm=Algorithmus")
					objWriter.WriteLine("Input=Eingabe:")
					objWriter.WriteLine("Output=Ausgabe:")
					objWriter.WriteLine("While=wiederhole solange")
					objWriter.WriteLine("DoWhile=wiederhole solange")
					objWriter.WriteLine("For=wiederhole für [i]=[1] bis [n]")
					objWriter.WriteLine("Yes=ja")
					objWriter.WriteLine("No=nein")
					objWriter.WriteLine("Other=sonst")
					objWriter.WriteLine("")
					objWriter.WriteLine("[FileStructure]")
					objWriter.WriteLine("Visible=1")
					objWriter.WriteLine("Floating=0")
					objWriter.WriteLine("UndockLeft=400")
					objWriter.WriteLine("UndockTop=100")
					objWriter.WriteLine("UndockWidth=200")
					objWriter.WriteLine("UndockHeight=300")
					objWriter.WriteLine("Fontname=Segoue UI")
					objWriter.WriteLine("Fontsize=10")
					objWriter.WriteLine("[Docking]")
					objWriter.WriteLine("RightDockPanel=00000800000100000000730200000000000001DE0100000000000001000000003A0100000E0000004646696C6553747275637475726501000000007302000010000000464F626A656374496E73706563746F72FFFFFFFF")
					objWriter.WriteLine("[Android]")
					objWriter.WriteLine("Mode=0")
					objWriter.WriteLine("[Git]")
					objWriter.WriteLine("user.name=")
					objWriter.WriteLine("user.email=")
					objWriter.WriteLine("[Panel]")
					objWriter.WriteLine("RightDockPanelWidth=480")
					objWriter.WriteLine("BottomDockPanelHeight=282")
					objWriter.WriteLine("[Tools]")
					objWriter.WriteLine("MaxTools=0")
				End If
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\JavaEditor_19.27\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\JavaEditor_19.27\JEMachine.ini"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter(mFileName)
					objWriter.WriteLine("[User]")
					objWriter.WriteLine("HomeDir=" & mEigeneDateienVerzeichnisBackSlash & "\myJavaeditor\")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Java]")
					objWriter.WriteLine("Language=" & mInstalVerzeichnisBackSlash & "Programme\JavaEditor_19.27\languages\deutsch.ini")
					objWriter.WriteLine("PortableApplication=0")
					objWriter.WriteLine("WriteProtection=ok")
					objWriter.WriteLine("JDK-Folder=" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0")
					objWriter.WriteLine("Interpreter=" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\java.exe")
					objWriter.WriteLine("Classpath=" & mInstalVerzeichnisBackSlash & "Programme\JavaEditor_19.27\JEClasses.jar")
					objWriter.WriteLine("JavaCompiler=" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\javac.exe")
					objWriter.WriteLine("JDK-Folder=" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0")
					objWriter.WriteLine("Interpreter=" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\java.exe")
					objWriter.WriteLine("JDK-Folder intern=")
					objWriter.WriteLine("JavaCompiler=" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\javac.exe")
					objWriter.WriteLine("Debugger=" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\jdb.exe")
					objWriter.WriteLine("JavaDoc=" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\javadoc.exe")
					objWriter.WriteLine("Appletviewer=" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\appletviewer.exe")
					objWriter.WriteLine("Jar=" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\jar.exe")
					objWriter.WriteLine("Disassembler=" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\javap.exe")
					objWriter.WriteLine("DOS-Window=0")
					objWriter.WriteLine("BlockedInternet=0")
					objWriter.WriteLine("LockedPaths=0")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Templates]")
					objWriter.WriteLine("Program=")
					objWriter.WriteLine("Frame=")
					objWriter.WriteLine("Dialog=")
					objWriter.WriteLine("Applet=")
					objWriter.WriteLine("JFrame=")
					objWriter.WriteLine("JDialog=")
					objWriter.WriteLine("JApplet=")
					objWriter.WriteLine("Controlstructures=")
					objWriter.WriteLine("Class=")
					objWriter.WriteLine("Mindstorms=")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Program]")
					objWriter.WriteLine("Manual=" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\docs\j2se7.chm")
					objWriter.WriteLine("ManualItems=\docs\index.html;\docs;\chm;")
					objWriter.WriteLine("Tutorial=")
					objWriter.WriteLine("Javabook=")
					objWriter.WriteLine("ManualFX=" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\docsfx\api\index.html")
					objWriter.WriteLine("Cache=")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Editor]")
					objWriter.WriteLine("Keyboardfile=")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Browser]")
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\OperaPortable_62.0\installiert.txt"
					If System.IO.File.Exists(mFileName) = True Then
						objWriter.WriteLine("Browser=" & mInstalVerzeichnisBackSlash & "Programme\OperaPortable_62.0\launcher.exe")
					Else
						objWriter.WriteLine("Browser=")
					End If
					objWriter.WriteLine("")
					objWriter.WriteLine("[Mindstorms]")
					objWriter.WriteLine("LejosFolder=")
					objWriter.WriteLine("LejosCompiler=")
					objWriter.WriteLine("LejosUploader=")
					objWriter.WriteLine("LejosFlasher=")
					objWriter.WriteLine("Manual=")
					objWriter.WriteLine("RCXFolder=")
					objWriter.WriteLine("NXTFolder=")
					objWriter.WriteLine("EV3Folder=")
					objWriter.WriteLine("RCXCompiler=")
					objWriter.WriteLine("NXTCompiler=")
					objWriter.WriteLine("RCXUploader=")
					objWriter.WriteLine("NXTUploader=")
					objWriter.WriteLine("RCXFlasher=")
					objWriter.WriteLine("NXTFlasher=")
					objWriter.WriteLine("RCXManual=")
					objWriter.WriteLine("NXTManual=")
					objWriter.WriteLine("EV3Manual=")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Checkstyle]")
					objWriter.WriteLine("Checkstyle=")
					objWriter.WriteLine("Configurationfile=")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Jalopy]")
					objWriter.WriteLine("Jalopy=")
					objWriter.WriteLine("JalopyConfiguration=")
					objWriter.WriteLine("")
					objWriter.WriteLine("[SVN]")
					objWriter.WriteLine("SVNFolder=")
					objWriter.WriteLine("SVNRepository=")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Logfiles]")
					objWriter.WriteLine("LogfileCompiler=")
					objWriter.WriteLine("LogfileInteractive=")
					objWriter.WriteLine("LogfileExceptions=" & mInstalVerzeichnisBackSlash & "Programme\JavaEditor_19.27\App\Log\JELogfileExceptions.txt")
					objWriter.Close()
				End If
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\JavaEditor_19.27\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mFileName  = mEigeneDateienVerzeichnisBackSlash & "myJavaEditor\JEUser.ini"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter(mFileName)
					objWriter.WriteLine("[History]")
					objWriter.WriteLine("Files=0")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Program]")
					objWriter.WriteLine("BorderLayout=X")
					objWriter.WriteLine("StartClass=")
					objWriter.WriteLine("InterpreterParameter=")
					objWriter.WriteLine("Classpath=")
					objWriter.WriteLine("ClasspathAll=")
					objWriter.WriteLine("JavaCompilerParameter=-O -deprecation -g")
					objWriter.WriteLine("JikesCompilerParameter=-O -deprecation -g")
					objWriter.WriteLine("JavaAsStandard=1")
					objWriter.WriteLine("CompileAsMake=1")
					objWriter.WriteLine("CompileInternally=0")
					objWriter.WriteLine("DocParameter=-author -version")
					objWriter.WriteLine("AppletStart=0")
					objWriter.WriteLine("ShowHTMLforApplet=1")
					objWriter.WriteLine("DisassemblerParameter=-l -c -verbose")
					objWriter.WriteLine("DisassemblerItems=jad.exe;")
					objWriter.WriteLine("JavaDocs=")
					objWriter.WriteLine("JavaDocsAll=")
					objWriter.WriteLine("Cache=" & mInstalVerzeichnisBackSlash & "Programme\JavaEditor_19.27\App\Cache")
					objWriter.WriteLine("MaxSearch=20")
					objWriter.WriteLine("Update=0")
					objWriter.WriteLine("Sourcepath=" & mInstalVerzeichnisBackSlash & "")
					objWriter.WriteLine("Left=-8")
					objWriter.WriteLine("Top=-8")
					objWriter.WriteLine("Width=1936")
					objWriter.WriteLine("Height=1056")
					objWriter.WriteLine("WindowState=2")
					objWriter.WriteLine("Toolbar=1")
					objWriter.WriteLine("Layout=0")
					objWriter.WriteLine("ComponentToolbarLeft=300")
					objWriter.WriteLine("ShowEvents=1")
					objWriter.WriteLine("Version=19.27, 64 Bit")
					objWriter.WriteLine("TempDir=" & mInstalVerzeichnisBackSlash & "Programme\JavaEditor_19.27\Temp\")
					objWriter.WriteLine("FileFilter=1")
					objWriter.WriteLine("WindowStateMaximized=1")
					objWriter.WriteLine("ShowInterpreterCall=0")
					objWriter.WriteLine("ShowCompilerCall=0")
					objWriter.WriteLine("InitDefLay=1")
					objWriter.WriteLine("ManualItems=\docs\index.html;\docs;\chm;")
					objWriter.WriteLine("ManualFXItems=D:\S20\Programme\Java_1.8.0\docsfx\api\index.html")
					objWriter.WriteLine("JavaFXParameter=javafx.controls,javafx.media,javafx.web")
					objWriter.WriteLine("FileEncoding=")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Java]")
					objWriter.WriteLine("JDK-FolderItems=")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Jar]")
					objWriter.WriteLine("JarParameter=-cfv")
					objWriter.WriteLine("JarManifest=")
					objWriter.WriteLine("JarCreate=*.class")
					objWriter.WriteLine("JarCreateAll=1#*.class")
					objWriter.WriteLine("JarPack=*.java *.jfm *.uml")
					objWriter.WriteLine("JarClassPath=JEClasses.jar")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Editor]")
					objWriter.WriteLine("TabWidth=2")
					objWriter.WriteLine("Indent=2")
					objWriter.WriteLine("FrameWidth=300")
					objWriter.WriteLine("FrameHeight=300")
					objWriter.WriteLine("AppletWidth=400")
					objWriter.WriteLine("AppletHeight=300")
					objWriter.WriteLine("IndentHelp=1")
					objWriter.WriteLine("CursorBehindLine=1")
					objWriter.WriteLine("AutomaticIndent=1")
					objWriter.WriteLine("Linenumbering=1")
					objWriter.WriteLine("CompleteBracket=0")
					objWriter.WriteLine("BracketStructureline=0")
					objWriter.WriteLine("BracketPair=1")
					objWriter.WriteLine("EditorToolbar=1")
					objWriter.WriteLine("CommentClosingBrackets=1")
					objWriter.WriteLine("StructureColoring=1")
					objWriter.WriteLine("StructureColorIntensity=5")
					objWriter.WriteLine("InsertControlStructures=1")
					objWriter.WriteLine("InsertSemicolons=1")
					objWriter.WriteLine("IndentSourcecode=1")
					objWriter.WriteLine("Encoding=0")
					objWriter.WriteLine("AutomatedImport=0")
					objWriter.WriteLine("IndentAfterBracket=1")
					objWriter.WriteLine("StructureColoringPlane=1")
					objWriter.WriteLine("Codepage=")
					objWriter.WriteLine("GUICodeFolding=1")
					objWriter.WriteLine("80ColumnLine=1")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Code]")
					objWriter.WriteLine("Code-Completion=1")
					objWriter.WriteLine("Parameter-Hints=1")
					objWriter.WriteLine("Delay=100")
					objWriter.WriteLine("ShowClassObject=0")
					objWriter.WriteLine("TooltipWithKey=1")
					objWriter.WriteLine("TooltipAutomatic=0")
					objWriter.WriteLine("TooltipDelay=700")
					objWriter.WriteLine("TooltipWidth=200")
					objWriter.WriteLine("TooltipHeight=150")
					objWriter.WriteLine("TooltipFontZoom=1")
					objWriter.WriteLine("Code-Completion-Always=1")
					objWriter.WriteLine("SelectionSizeMin=4")
					objWriter.WriteLine("SelectionSizeMax=10")
					objWriter.WriteLine("TooltipFontSize=12")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Colors\StructureLines]")
					objWriter.WriteLine("Background=536870911")
					objWriter.WriteLine("Foreground=16711680")
					objWriter.WriteLine("Style=0")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Colors\Brackets]")
					objWriter.WriteLine("Background=12632256")
					objWriter.WriteLine("Foreground=255")
					objWriter.WriteLine("Style=0")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Browser]")
					objWriter.WriteLine("UseIEinternForDocuments=1")
					objWriter.WriteLine("OnlyOneBrowserWindow=0")
					objWriter.WriteLine("BrowserOpenKeys=")
					objWriter.WriteLine("Title=Internet Explorer")
					objWriter.WriteLine("ProxyEnabled=0")
					objWriter.WriteLine("ProxyIP=")
					objWriter.WriteLine("ProxyPort=0")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Printer]")
					objWriter.WriteLine("Left=20")
					objWriter.WriteLine("Top=20")
					objWriter.WriteLine("Right=20")
					objWriter.WriteLine("Bottom=20")
					objWriter.WriteLine("Linenumbers=0")
					objWriter.WriteLine("LinenumbersInMargin=1")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Comment]")
					objWriter.WriteLine("Type=0")
					objWriter.WriteLine("Author=")
					objWriter.WriteLine("Method=")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Turtle]")
					objWriter.WriteLine("UseTurtleInClasspath=0")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Mindstorms]")
					objWriter.WriteLine("Parameter=")
					objWriter.WriteLine("Mode=0")
					objWriter.WriteLine("Version=0")
					objWriter.WriteLine("Port=0")
					objWriter.WriteLine("IP=10.0.1.1")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Options]")
					objWriter.WriteLine("RemoveWriteprotection=1")
					objWriter.WriteLine("BAKFiles=1")
					objWriter.WriteLine("LoadFiles=1")
					objWriter.WriteLine("UseInterpreterWindowAsConsole=0")
					objWriter.WriteLine("ComponentsToolbar=1")
					objWriter.WriteLine("BorderLayout=0")
					objWriter.WriteLine("Rename=1")
					objWriter.WriteLine("DebuggerProtocol=0")
					objWriter.WriteLine("GuiDesignerHints=1")
					objWriter.WriteLine("OpenMessageWindowAutomatically=1")
					objWriter.WriteLine("StrictJavaMode=1")
					objWriter.WriteLine("CheckAge=1")
					objWriter.WriteLine("Fontsize=9")
					objWriter.WriteLine("MaxFileHistory=9")
					objWriter.WriteLine("Codepage=cp850")
					objWriter.WriteLine("Language=" & mInstalVerzeichnisBackSlash & "Programme\JavaEditor_19.27\languages\deutsch.ini")
					objWriter.WriteLine("FileFilter=")
					objWriter.WriteLine("AcceptDefaultname=0")
					objWriter.WriteLine("SnapToGrid=1")
					objWriter.WriteLine("GridSize=8")
					objWriter.WriteLine("NameFromText=1")
					objWriter.WriteLine("TranslateCompilerErrors=1")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Associations]")
					objWriter.WriteLine("Additional=")
					objWriter.WriteLine("")
					objWriter.WriteLine("[UML]")
					objWriter.WriteLine("ValidClassColor=16777215")
					objWriter.WriteLine("InvalidClassColor=16711935")
					objWriter.WriteLine("ClassHead=0")
					objWriter.WriteLine("ObjectColor=65535")
					objWriter.WriteLine("ObjectHead=1")
					objWriter.WriteLine("ObjectFooter=1")
					objWriter.WriteLine("ObjectCaption=0")
					objWriter.WriteLine("ObjectUnderline=1")
					objWriter.WriteLine("PrivateAttribut=1")
					objWriter.WriteLine("ShowEmptyRects=0")
					objWriter.WriteLine("ShowFunctionvalues=1")
					objWriter.WriteLine("ObjectLowerCaseLetter=1")
					objWriter.WriteLine("ShowPublicOnly=0")
					objWriter.WriteLine("ShowObjectsWithMethods=0")
					objWriter.WriteLine("ShadowWidth=3")
					objWriter.WriteLine("ShadowIntensity=8")
					objWriter.WriteLine("UseVoid=0")
					objWriter.WriteLine("IntegerInsteadofInt=0")
					objWriter.WriteLine("ShowAllNewObjects=1")
					objWriter.WriteLine("Name=MS Sans Serif")
					objWriter.WriteLine("Size=10")
					objWriter.WriteLine("ShowParameter=4")
					objWriter.WriteLine("Visibility=0")
					objWriter.WriteLine("SortOrder=0")
					objWriter.WriteLine("ShowIcons=0")
					objWriter.WriteLine("CommentColor=15780518")
					objWriter.WriteLine("ConstructorWithVisibility=0")
					objWriter.WriteLine("DefaultModifiers=1")
					objWriter.WriteLine("AttributesAParametersP=0")
					objWriter.WriteLine("RelationshipAttributesBold=1")
					objWriter.WriteLine("ShowObjectsWithInheritedPrivateAttributes=1")
					objWriter.WriteLine("StartWithDatatype=0")
					objWriter.WriteLine("SetterWithoutThis=1")
					objWriter.WriteLine("ShowClassparameterSeparately=0")
					objWriter.WriteLine("ObjectswithoutVisibility=1")
					objWriter.WriteLine("RoleHidesAttribute=0")
					objWriter.WriteLine("UseAbstract=0")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Checkstyle]")
					objWriter.WriteLine("CheckParameter=")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Jalopy]")
					objWriter.WriteLine("JalopyParameter=")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Visibility]")
					objWriter.WriteLine("Tabs=111111111")
					objWriter.WriteLine("Program=111111111111")
					objWriter.WriteLine("Datatype=111111111")
					objWriter.WriteLine("AWT=111111111111111111")
					objWriter.WriteLine("Swing1=1111111111111111111")
					objWriter.WriteLine("Swing2=11111111111111111111")
					objWriter.WriteLine("Layout=111111")
					objWriter.WriteLine("Menus=1110")
					objWriter.WriteLine("Toolbars=111110")
					objWriter.WriteLine("Utilities=111")
					objWriter.WriteLine("FXBase=11111111111111111111")
					objWriter.WriteLine("FXControls=111111111111111111111")
					objWriter.WriteLine("FXShapes=11111111111")
					objWriter.WriteLine("FXMenu=11111")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Font]")
					objWriter.WriteLine("Name=Courier New")
					objWriter.WriteLine("Size=10")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Window]")
					objWriter.WriteLine("Current=")
					objWriter.WriteLine("Wins=0")
					objWriter.WriteLine("Win1=W1)1)1435)627)0)P%P%O0T124)X1)Y1))#)%E%D:\Configuration.ini")
					objWriter.WriteLine("")
					objWriter.WriteLine("[CodeCompletion]")
					objWriter.WriteLine("FontName=Courier New")
					objWriter.WriteLine("FontSize=8")
					objWriter.WriteLine("Width=260")
					objWriter.WriteLine("Lines=8")
					objWriter.WriteLine("Height=100")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Messages]")
					objWriter.WriteLine("Visible=1")
					objWriter.WriteLine("Docked=1")
					objWriter.WriteLine("FontName=Courier New")
					objWriter.WriteLine("FontSize=10")
					objWriter.WriteLine("InteractiveWidth1=100")
					objWriter.WriteLine("InteractiveWidth2=200")
					objWriter.WriteLine("TabIndex=5")
					objWriter.WriteLine("Left=0")
					objWriter.WriteLine("Top=1030")
					objWriter.WriteLine("Width=553")
					objWriter.WriteLine("Height=200")
					objWriter.WriteLine("Splitter=282")
					objWriter.WriteLine("")
					objWriter.WriteLine("[ObjectInspector]")
					objWriter.WriteLine("Visible=1")
					objWriter.WriteLine("Left=300")
					objWriter.WriteLine("Top=200")
					objWriter.WriteLine("Width=100")
					objWriter.WriteLine("Height=200")
					objWriter.WriteLine("ELPropertyInspector.Splitter=144")
					objWriter.WriteLine("ELEventInspector.Splitter=50")
					objWriter.WriteLine("Font.Size=12")
					objWriter.WriteLine("Font.Name=Tahoma")
					objWriter.WriteLine("Floating=0")
					objWriter.WriteLine("UndockLeft=1")
					objWriter.WriteLine("UndockTop=1")
					objWriter.WriteLine("UndockWidth=200")
					objWriter.WriteLine("UndockHeight=200")
					objWriter.WriteLine("")
					objWriter.WriteLine("[ObjectGenerator]")
					objWriter.WriteLine("Left=300")
					objWriter.WriteLine("Top=200")
					objWriter.WriteLine("Width=251")
					objWriter.WriteLine("Height=200")
					objWriter.WriteLine("ValueListEditor.ColWidth=47")
					objWriter.WriteLine("Font.Size=13")
					objWriter.WriteLine("Font.Name=Segoe UI")
					objWriter.WriteLine("")
					objWriter.WriteLine("[ClassEditor]")
					objWriter.WriteLine("RGAttributeAccess=0")
					objWriter.WriteLine("CBAttributeStatic=0")
					objWriter.WriteLine("CBGetMethod=1")
					objWriter.WriteLine("CBSetMethod=1")
					objWriter.WriteLine("RGMethodKind=-1")
					objWriter.WriteLine("RGMethodAccess=3")
					objWriter.WriteLine("CBMethodStatic=0")
					objWriter.WriteLine("CBMethodAbstract=0")
					objWriter.WriteLine("")
					objWriter.WriteLine("[SearchReplace]")
					objWriter.WriteLine("SearchText=")
					objWriter.WriteLine("SearchTextHistory=")
					objWriter.WriteLine("ReplaceText=")
					objWriter.WriteLine("ReplaceTextHistory=")
					objWriter.WriteLine("Replace=0")
					objWriter.WriteLine("CaseSensitive=0")
					objWriter.WriteLine("WholeWords=0")
					objWriter.WriteLine("FromCursor=0")
					objWriter.WriteLine("SelectionOnly=0")
					objWriter.WriteLine("RegEx=0")
					objWriter.WriteLine("Where=1")
					objWriter.WriteLine("Directory=")
					objWriter.WriteLine("DirectoryHistory=")
					objWriter.WriteLine("Filemask=*.java")
					objWriter.WriteLine("FilemaskHistroy=")
					objWriter.WriteLine("IncludeSubdirs=1")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Watches]")
					objWriter.WriteLine("Count=0")
					objWriter.WriteLine("")
					objWriter.WriteLine("[GUIDesigner]")
					objWriter.WriteLine("SnapToGrid=1")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Structogram]")
					objWriter.WriteLine("Name=Segoe UI")
					objWriter.WriteLine("Size=10")
					objWriter.WriteLine("GenerateJavaAsProgram=1")
					objWriter.WriteLine("Datatype=double")
					objWriter.WriteLine("Aligned=1")
					objWriter.WriteLine("SwitchWithCaseLine=0")
					objWriter.WriteLine("CaseCount=4")
					objWriter.WriteLine("ShadowWidth=3")
					objWriter.WriteLine("ShadowIntensity=8")
					objWriter.WriteLine("Algorithm=Algorithmus")
					objWriter.WriteLine("Input=Eingabe:")
					objWriter.WriteLine("Output=Ausgabe:")
					objWriter.WriteLine("While=wiederhole solange")
					objWriter.WriteLine("DoWhile=wiederhole solange")
					objWriter.WriteLine("For=wiederhole für [i]=[1] bis [n]")
					objWriter.WriteLine("Yes=ja")
					objWriter.WriteLine("No=nein")
					objWriter.WriteLine("Other=sonst")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Colors]")
					objWriter.WriteLine("NoActiveLineColor=1")
					objWriter.WriteLine("ActiveLineColor=536870911")
					objWriter.WriteLine("NoSyntaxHighlighting=0")
					objWriter.WriteLine("GUIStyle=Windows")
					objWriter.WriteLine("EditorStyle=Default")
					objWriter.WriteLine("")
					objWriter.WriteLine("[Structogram.deutsch]")
					objWriter.WriteLine("Algorithm=Algorithmus")
					objWriter.WriteLine("Input=Eingabe:")
					objWriter.WriteLine("Output=Ausgabe:")
					objWriter.WriteLine("While=wiederhole solange")
					objWriter.WriteLine("DoWhile=wiederhole solange")
					objWriter.WriteLine("For=wiederhole für [i]=[1] bis [n]")
					objWriter.WriteLine("Yes=ja")
					objWriter.WriteLine("No=nein")
					objWriter.WriteLine("Other=sonst")
					objWriter.WriteLine("")
					objWriter.WriteLine("[FileStructure]")
					objWriter.WriteLine("Visible=1")
					objWriter.WriteLine("Floating=0")
					objWriter.WriteLine("UndockLeft=400")
					objWriter.WriteLine("UndockTop=100")
					objWriter.WriteLine("UndockWidth=200")
					objWriter.WriteLine("UndockHeight=300")
					objWriter.WriteLine("Fontname=Segoue UI")
					objWriter.WriteLine("Fontsize=10")
					objWriter.WriteLine("[Docking]")
					objWriter.WriteLine("RightDockPanel=00000800000100000000730200000000000001DE0100000000000001000000003A0100000E0000004646696C6553747275637475726501000000007302000010000000464F626A656374496E73706563746F72FFFFFFFF")
					objWriter.WriteLine("[Android]")
					objWriter.WriteLine("Mode=0")
					objWriter.WriteLine("[Git]")
					objWriter.WriteLine("user.name=")
					objWriter.WriteLine("user.email=")
					objWriter.WriteLine("[Panel]")
					objWriter.WriteLine("RightDockPanelWidth=480")
					objWriter.WriteLine("BottomDockPanelHeight=282")
					objWriter.WriteLine("[Tools]")
					objWriter.WriteLine("MaxTools=0")
					objWriter.WriteLine("[JUnit]")
					objWriter.WriteLine("JUnitParameter=")
					objWriter.WriteLine("JUnitBeforeeach=1")
					objWriter.WriteLine("JUnitafterEach=1")
					objWriter.WriteLine("[Sequencediagram.deutsch]")
					objWriter.WriteLine("Object=Objekt")
					objWriter.WriteLine("New=neu")
					objWriter.WriteLine("Close=schliessen")
					objWriter.WriteLine("Fillingcolor=65535")
					objWriter.WriteLine("NoFilling=0")
					objWriter.WriteLine("ShowMainCall=0")
					objWriter.WriteLine("ShowParameter=1")
					objWriter.WriteLine("ShowReturn=1")
					objWriter.WriteLine("[SequenceDiagram]")
					objWriter.WriteLine("Name=Segoe UI")
					objWriter.WriteLine("Size=12")
					objWriter.WriteLine("Object=Objekt")
					objWriter.WriteLine("New=neu")
					objWriter.WriteLine("Close=schliessen")
					objWriter.WriteLine("Fillingcolor=65535")
					objWriter.WriteLine("NoFilling=0")
					objWriter.WriteLine("ShowMainCall=0")
					objWriter.WriteLine("ShowParameter=1")
					objWriter.WriteLine("ShowReturn=1")
					objWriter.WriteLine("[Sequencediagram.english]")
					objWriter.WriteLine("Object=Objekt")
					objWriter.WriteLine("New=neu")
					objWriter.WriteLine("Close=schliessen")
					objWriter.WriteLine("Fillingcolor=65535")
					objWriter.WriteLine("NoFilling=0")
					objWriter.WriteLine("ShowMainCall=0")
					objWriter.WriteLine("ShowParameter=1")
					objWriter.WriteLine("ShowReturn=1")
				End If
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\javac.bat"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter(mFileName)
					objWriter.WriteLine(mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\javac -cp " & mEigeneDateienVerzeichnisBackSlash & "\WEB-INF\classes " & mEigeneDateienVerzeichnisBackSlash & "\WEB-INF\classes\%1")
					objWriter.Close()
				End If
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\BlueJ_4.12\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\BlueJ_4.12\BlueJStart.bat"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter(mFileName)
					objWriter.WriteLine("" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\javaw.exe" & "" & " -jar " & "" & mInstalVerzeichnisBackSlash & "Programme\BlueJ_4.12\lib\bluej.jar" & "")
					objWriter.Close()
				End If
				
				mFileName  = mEigeneDateienVerzeichnisBackSlash & "\myBlueJ\Einstellungen\bluej\bluej.properties"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine("#BlueJ-Eigenschaften. Einstellungen in dieser Datei haben Vorrang vor bluej.defs")
					objWriter.WriteLine("blackbox.uuid=optout")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.FARBIGE_SICHTBARKEITEN=1")
					objWriter.WriteLine("extensions.Klassenkarte.Klassenkarte.settings.TYPEN_ANZEIGEN=0")
					objWriter.WriteLine("bluej.accessibility.support=false")
					objWriter.WriteLine("extensions.org.bluej.UMLextension.UMLExtension.settings.showParams=true")
					objWriter.WriteLine("extensions.org.bluej.extensions.Submitter.Submitter.settings.useraddr=")
					objWriter.WriteLine("extensions.Klassenkarte.Klassenkarte.settings.KONSTANTEN_ANZEIGEN=0")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.ATTRIBUTE_TYP=0")
					objWriter.WriteLine("extensions.org.bluej.extensions.Submitter.Submitter.settings.username=")
					objWriter.WriteLine("extensions.org.bluej.extensions.submitter.Submitter.settings.port=25")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.SIGNATUR_ANSICHT=0")
					objWriter.WriteLine("extensions.org.bluej.extensions.submitter.Submitter.settings.ssl=false")
					objWriter.WriteLine("bluej.editor.displayLineNumbers=true")
					objWriter.WriteLine("bluej.userlibrary1.location=" & mInstalVerzeichnisDoppelBackSlash & "Programme\\BlueJ_4.12\\lib\\userlib\\db4o-5.5-java5.jar")
					objWriter.WriteLine("bluej.startWithTextEval=false")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.KONSTANTEN_ANZEIGEN=0")
					objWriter.WriteLine("bluej.terminal.height=1176")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.ATTRIBUTE_ALLE=0")
					objWriter.WriteLine("extensions.org.bluej.extensions.submitter.Submitter.settings.tls=false")
					objWriter.WriteLine("bluej.uid=11509620-d14c-4225-8b89-65c48e359186")
					objWriter.WriteLine("bluej.compiler.showunchecked=false")
					objWriter.WriteLine("extensions.org.bluej.extensions.Submitter.Submitter.settings.authenticate=False")
					objWriter.WriteLine("extensions.org.bluej.UMLextension.UMLExtension.settings.showAttributes=true")
					objWriter.WriteLine("bluej.editor.fontsize=12")
					objWriter.WriteLine("extensions.org.bluej.extensions.submitter.Submitter.settings.authenticate=false")
					objWriter.WriteLine("extensions.org.bluej.UMLextension.UMLExtension.settings.showMethods=true")
					objWriter.WriteLine("bluej.editor.scopeHilightingStrength=20")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.TYPEN_ANZEIGEN=0")
					objWriter.WriteLine("extensions.org.bluej.UMLextension.UMLExtension.settings.showPrivates=false")
					objWriter.WriteLine("session.numeditors.java=0")
					objWriter.WriteLine("session.numeditors.stride=0")
					objWriter.WriteLine("extensions.Klassenkarte.Klassenkarte.settings.SIGNATUR_ANSICHT=0")
					objWriter.WriteLine("extensions.org.bluej.UMLextension.UMLExtension.settings.useJavaSyntax=false")
					objWriter.WriteLine("bluej.language=german")
					objWriter.WriteLine("bluej.preferences.y=16")
					objWriter.WriteLine("bluej.preferences.x=16")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.NICHT_PUBLIC_METHODEN_ANZEIGEN=0")
					objWriter.WriteLine("bluej.editor.stride.sidebarShowing=true")
					objWriter.WriteLine("extensions.Klassenkarte.Klassenkarte.settings.METHODEN_SICHTBARKEIT=0")
					objWriter.WriteLine("extensions.Klassenkarte.Klassenkarte.settings.ATTRIBUTE_SICHTBARKEIT=0")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.EXPERTEN_ANSICHT=0")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.ATTRIBUTE_ANZEIGEN=1")
					objWriter.WriteLine("extensions.org.bluej.extensions.Submitter.Submitter.settings.smtpauthuser=")
					objWriter.WriteLine("extensions.org.bluej.extensions.submitter.Submitter.settings.smtpauthuser=")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.ATTRIBUTE_SICHTBARKEIT=0")
					objWriter.WriteLine("bluej.editor.FontSize=12")
					objWriter.WriteLine("extensions.org.bluej.extensions.Submitter.Submitter.settings.ssl=False")
					objWriter.WriteLine("bluej.terminal.y=-8")
					objWriter.WriteLine("bluej.terminal.x=-8")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.METHODEN_SICHTBARKEIT=0")
					objWriter.WriteLine("extensions.org.bluej.extensions.submitter.Submitter.settings.useraddr=")
					objWriter.WriteLine("extensions.org.bluej.UMLextension.UMLExtension.settings.showVisibility=true")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.KONSTRUKTOREN_ANZEIGEN=0")
					objWriter.WriteLine("extensions.kr.or.bluej.cw.extension.ClassWizardExtension.settings.=BlueJ style")
					objWriter.WriteLine("extensions.org.bluej.extensions.Submitter.Submitter.settings.tls=False")
					objWriter.WriteLine("extensions.org.bluej.extensions.submitter.Submitter.settings.username=")
					objWriter.WriteLine("bluej.projectPath=" & mEigeneDateienDoppelBackSlash & "\\myBlueJ\\Projekte")
					objWriter.WriteLine("extensions.Klassenkarte.Klassenkarte.settings.KONSTRUKTOREN_ANZEIGEN=0")
					objWriter.WriteLine("bluej.userlibrary2.location=" & mInstalVerzeichnisDoppelBackSlash & "Programme\\BlueJ_4.12\\lib\\userlib\\db4o-8.0.249.16098-all-java5.jar")
					objWriter.WriteLine("extensions.org.bluej.extensions.Submitter.Submitter.settings.Port=25")
					objWriter.WriteLine("extensions.Klassenkarte.Klassenkarte.settings.ATTRIBUTE_TYP=0")
					objWriter.WriteLine("extensions.Klassenkarte.Klassenkarte.settings.ATTRIBUTE_ANZEIGEN=1")
					objWriter.WriteLine("bluej.terminal.width=1936")
					objWriter.WriteLine("extensions.org.bluej.UMLextension.UMLExtension.settings.showReturnTypes=true")
					objWriter.WriteLine("extensions.Klassenkarte.Klassenkarte.settings.ATTRIBUTE_ALLE=0")
					objWriter.WriteLine("extensions.Klassenkarte.Klassenkarte.settings.EXPERTEN_ANSICHT=0")
					objWriter.WriteLine("extensions.org.bluej.extensions.submitter.Submitter.settings.smtphost=")
					objWriter.WriteLine("extensions.Klassenkarte.Klassenkarte.settings.PARAMETERNAMEN_ANZEIGEN=1")
					objWriter.WriteLine("extensions.org.bluej.extensions.submitter.Submitter.settings.saslrealm=")
					objWriter.WriteLine("extensions.Klassenkarte.Klassenkarte.settings.NICHT_PUBLIC_METHODEN_ANZEIGEN=0")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.PARAMETERNAMEN_ANZEIGEN=1")
					objWriter.WriteLine("extensions.Klassenkarte.Klassenkarte.settings.FARBIGE_SICHTBARKEITEN=1")
					objWriter.Close()
				End If
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\BlueJ_5.0.2\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mFileName  = mEigeneDateienVerzeichnisBackSlash & "\myBlueJ\Einstellungen\bluej\bluej.properties"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine("bluej.uid=bd7a7701-18da-4133-aaf6-02a63931920a")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.METHODEN_SICHTBARKEIT=0")
					objWriter.WriteLine("bluej.language=german")
					objWriter.WriteLine("bluej.userlibrary3.location=" & mInstalVerzeichnisDoppelBackSlash & "Programme\\BlueJ_5.0.2\\lib\\extensions2\\Klassenkarte.jar")
					objWriter.WriteLine("bluej.editor.autoAddClosingCurly=true")
					objWriter.WriteLine("extensions.org.bluej.extensions.submitter.Submitter.settings.authenticate=false")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.ATTRIBUTE_SICHTBARKEIT=0")
					objWriter.WriteLine("session.numeditors.stride=0")
					objWriter.WriteLine("extensions.org.bluej.extensions.submitter.Submitter.settings.ssl=false")
					objWriter.WriteLine("bluej.accessibility.support=false")
					objWriter.WriteLine("bluej.editor.stride.sidebarShowing=true")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.PARAMETERNAMEN_ANZEIGEN=1")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.FARBIGE_SICHTBARKEITEN=1")
					objWriter.WriteLine("bluej.userlibrary2.location=" & mInstalVerzeichnisDoppelBackSlash & "Programme\\BlueJ_5.0.2\\lib\\extensions2\\ClassWizard.jar")
					objWriter.WriteLine("blackbox.uuid=optout")
					objWriter.WriteLine("extensions.org.bluej.extensions.submitter.Submitter.settings.smtphost=")
					objWriter.WriteLine("bluej.compiler.showunchecked=true")
					objWriter.WriteLine("bluej.projectPath=" & mInstalVerzeichnisDoppelBackSlash & "Programme\\BlueJ_5.0.2\\examples")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.EXPERTEN_ANSICHT=0")
					objWriter.WriteLine("extensions.org.bluej.extensions.submitter.Submitter.settings.username=")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.ATTRIBUTE_TYP=0")
					objWriter.WriteLine("bluej.userlibrary1.location=" & mInstalVerzeichnisDoppelBackSlash & "Programme\\BlueJ_5.0.2\\lib\\extensions2\\ceb_1_0.jar")
					objWriter.WriteLine("bluej.editor.displayLineNumbers=true")
					objWriter.WriteLine("bluej.userlibrary4.location=" & mInstalVerzeichnisDoppelBackSlash & "Programme\\BlueJ_5.0.2\\lib\\extensions2\\submitter.jar")
					objWriter.WriteLine("bluej.editor.scopeHilightingStrength=20")
					objWriter.WriteLine("extensions.org.bluej.extensions.submitter.Submitter.settings.port=25")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.ATTRIBUTE_ALLE=0")
					objWriter.WriteLine("bluej.editor.fontsize=12")
					objWriter.WriteLine("extensions.org.bluej.extensions.submitter.Submitter.settings.tls=false")
					objWriter.WriteLine("extensions.org.bluej.extensions.submitter.Submitter.settings.useraddr=")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.KONSTRUKTOREN_ANZEIGEN=0")
					objWriter.WriteLine("bluej.latest.msg=2021-09-14")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.KONSTANTEN_ANZEIGEN=0")
					objWriter.WriteLine("bluej.startWithTextEval=false")
					objWriter.WriteLine("bluej.editor.checkDiskFileChanges=true")
					objWriter.WriteLine("extensions.org.bluej.extensions.submitter.Submitter.settings.smtpauthuser=")
					objWriter.WriteLine("bluej.userlibrary5.location=" & mInstalVerzeichnisDoppelBackSlash & "Programme\\BlueJ_5.0.2\\lib\\extensions2\\UMLextension.jar")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.NICHT_PUBLIC_METHODEN_ANZEIGEN=0")
					objWriter.WriteLine("bluej.news.testing=false")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.SIGNATUR_ANSICHT=0")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.TYPEN_ANZEIGEN=0")
					objWriter.WriteLine("extensions.org.bluej.extensions.submitter.Submitter.settings.saslrealm=")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.ATTRIBUTE_ANZEIGEN=1")
					objWriter.WriteLine("bluej.terminal.y=16")
					objWriter.WriteLine("bluej.terminal.x=16")
					objWriter.WriteLine("session.numeditors.java=0")
					objWriter.Close()
				End If
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\BlueJ_5.0.2\userhome\bluej\bluej.properties"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine("bluej.uid=bd7a7701-18da-4133-aaf6-02a63931920a")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.METHODEN_SICHTBARKEIT=0")
					objWriter.WriteLine("bluej.language=german")
					objWriter.WriteLine("bluej.userlibrary3.location=" & mInstalVerzeichnisDoppelBackSlash & "Programme\\BlueJ_5.0.2\\lib\\extensions2\\Klassenkarte.jar")
					objWriter.WriteLine("bluej.editor.autoAddClosingCurly=true")
					objWriter.WriteLine("extensions.org.bluej.extensions.submitter.Submitter.settings.authenticate=false")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.ATTRIBUTE_SICHTBARKEIT=0")
					objWriter.WriteLine("session.numeditors.stride=0")
					objWriter.WriteLine("extensions.org.bluej.extensions.submitter.Submitter.settings.ssl=false")
					objWriter.WriteLine("bluej.accessibility.support=false")
					objWriter.WriteLine("bluej.editor.stride.sidebarShowing=true")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.PARAMETERNAMEN_ANZEIGEN=1")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.FARBIGE_SICHTBARKEITEN=1")
					objWriter.WriteLine("bluej.userlibrary2.location=" & mInstalVerzeichnisDoppelBackSlash & "Programme\\BlueJ_5.0.2\\lib\\extensions2\\ClassWizard.jar")
					objWriter.WriteLine("blackbox.uuid=optout")
					objWriter.WriteLine("extensions.org.bluej.extensions.submitter.Submitter.settings.smtphost=")
					objWriter.WriteLine("bluej.compiler.showunchecked=true")
					objWriter.WriteLine("bluej.projectPath=" & mInstalVerzeichnisDoppelBackSlash & "Programme\\BlueJ_5.0.2\\examples")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.EXPERTEN_ANSICHT=0")
					objWriter.WriteLine("extensions.org.bluej.extensions.submitter.Submitter.settings.username=")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.ATTRIBUTE_TYP=0")
					objWriter.WriteLine("bluej.userlibrary1.location=" & mInstalVerzeichnisDoppelBackSlash & "Programme\\BlueJ_5.0.2\\lib\\extensions2\\ceb_1_0.jar")
					objWriter.WriteLine("bluej.userlibrary4.location=" & mInstalVerzeichnisDoppelBackSlash & "Programme\\BlueJ_5.0.2\\lib\\extensions2\\submitter.jar")
					objWriter.WriteLine("bluej.editor.scopeHilightingStrength=20")
					objWriter.WriteLine("bluej.editor.displayLineNumbers=true")
					objWriter.WriteLine("extensions.org.bluej.extensions.submitter.Submitter.settings.port=25")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.ATTRIBUTE_ALLE=0")
					objWriter.WriteLine("bluej.editor.fontsize=12")
					objWriter.WriteLine("extensions.org.bluej.extensions.submitter.Submitter.settings.tls=false")
					objWriter.WriteLine("extensions.org.bluej.extensions.submitter.Submitter.settings.useraddr=")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.KONSTRUKTOREN_ANZEIGEN=0")
					objWriter.WriteLine("bluej.latest.msg=2021-09-14")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.KONSTANTEN_ANZEIGEN=0")
					objWriter.WriteLine("bluej.startWithTextEval=false")
					objWriter.WriteLine("bluej.editor.checkDiskFileChanges=true")
					objWriter.WriteLine("extensions.org.bluej.extensions.submitter.Submitter.settings.smtpauthuser=")
					objWriter.WriteLine("bluej.userlibrary5.location=" & mInstalVerzeichnisDoppelBackSlash & "Programme\\BlueJ_5.0.2\\lib\\extensions2\\UMLextension.jar")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.NICHT_PUBLIC_METHODEN_ANZEIGEN=0")
					objWriter.WriteLine("bluej.news.testing=false")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.SIGNATUR_ANSICHT=0")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.TYPEN_ANZEIGEN=0")
					objWriter.WriteLine("extensions.org.bluej.extensions.submitter.Submitter.settings.saslrealm=")
					objWriter.WriteLine("extensions.klassenkarte.Klassenkarte.settings.ATTRIBUTE_ANZEIGEN=1")
					objWriter.WriteLine("bluej.terminal.y=16")
					objWriter.WriteLine("bluej.terminal.x=16")
					objWriter.WriteLine("session.numeditors.java=0")
					objWriter.Close()
				End If
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\Greenfoot_3.1.0\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Greenfoot_3.1.0\GreenfootStart.bat"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter(mFileName)
					objWriter.WriteLine("" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\javaw.exe" & "" & " -jar " & "" & mInstalVerzeichnisBackSlash & "Programme\Greenfoot_3.1.0\lib\bluej.jar -greenfoot=true" & "")
					objWriter.Close()
				End If
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Greenfoot_3.1.0\lib\bluej.defs"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine("bluej.language=german")
					objWriter.WriteLine("bluej.language1=english:English:eng")
					objWriter.WriteLine("bluej.language2=german:German:deu")
					objWriter.WriteLine("bluej.url.bluej=http://www.bluej.org")
					objWriter.WriteLine("bluej.url.tutorial=http://www.bluej.org/doc/documentation.html")
					objWriter.WriteLine("bluej.url.reference=http://www.bluej.org/reference/manual.pdf")
					objWriter.WriteLine("bluej.url.javaStdLib=http://download.oracle.com/javase/8/docs/api/")
					objWriter.WriteLine("bluej.url.versionCheck=http://www.bluej.org/mVersion.info")
					objWriter.WriteLine("bluej.numberOfRecentProjects=0")
					objWriter.WriteLine("bluej.userHome=" & mEigeneDateienVerzeichnisSlash & "/myGreenfoot")
					objWriter.WriteLine("bluej.autoOpenLastProject=true")
					objWriter.WriteLine("browserCmd1=firefox -remote openURL($)")
					objWriter.WriteLine("browserCmd2=firefox $")
					objWriter.WriteLine("doctool.options=-author -mVersion -nodeprecated -package")
					objWriter.WriteLine("doctool.outputdir=doc")
					objWriter.WriteLine("doctool.linkToStandardLib=true")
					objWriter.WriteLine("bluej.macos.screenmenubar=true")
					objWriter.WriteLine("bluej.windows.vm=" & mInstalVerzeichnisDoppelBackSlash & "Programme\\Java")
					objWriter.WriteLine("bluej.classTemplates.java = stdclass abstract interface unittest enum")
					objWriter.WriteLine("bluej.classTemplates.stride = stdclass abstract interface")
					objWriter.WriteLine("bluej.useTheme=false")
					objWriter.WriteLine("bluej.fontsize=12")
					objWriter.WriteLine("bluej.font=SansSerif")
					objWriter.WriteLine("bluej.menu.font=SansSerif-bold")
					objWriter.WriteLine("bluej.menu.fontsize=12")
					objWriter.WriteLine("bluej.target.font=SansSerif-bold")
					objWriter.WriteLine("bluej.target.fontsize=12")
					objWriter.WriteLine("bluej.editor.fontsize=12")
					objWriter.WriteLine("bluej.terminal.font=Monospaced")
					objWriter.WriteLine("bluej.editor.font=Monospaced")
					objWriter.WriteLine("bluej.editor.MacOS.font=Monaco")
					objWriter.WriteLine("bluej.codecompletion.font=Courier")
					objWriter.WriteLine("bluej.fontsize.printText=10")
					objWriter.WriteLine("bluej.fontsize.printTitle=14")
					objWriter.WriteLine("bluej.print.scale=60")
					objWriter.WriteLine("bluej.terminal.height=22")
					objWriter.WriteLine("bluej.terminal.width=80")
					objWriter.WriteLine("bluej.terminal.clearscreen=false")
					objWriter.WriteLine("bluej.terminal.recordcalls=false")
					objWriter.WriteLine("bluej.terminal.buffering=false")
					objWriter.WriteLine("bluej.terminal.encoding=UTF-8")
					objWriter.WriteLine("bluej.editor.autoIndent=true")
					objWriter.WriteLine("bluej.editor.syntaxHilighting=true")
					objWriter.WriteLine("bluej.editor.displayLineNumbers=true")
					objWriter.WriteLine("bluej.editor.makeBackup=false")
					objWriter.WriteLine("bluej.editor.matchBrackets=true")
					objWriter.WriteLine("bluej.editor.tabsize=4")
					objWriter.WriteLine("bluej.editor.codecompletion=true")
					objWriter.WriteLine("bluej.testing.showtools=false")
					objWriter.WriteLine("bluej.teamwork.showtools=false")
					objWriter.WriteLine("colour.selection=233,225,0")
					objWriter.WriteLine("colour.selection2=255,250,0")
					objWriter.WriteLine("colour.highlight=180,220,255")
					objWriter.WriteLine("colour.highlight2=110,190,255")
					objWriter.WriteLine("bluej.compiler.unchecked=true")
					objWriter.WriteLine("bluej.vm.args=-ea -Djavafx.macosx.embedded=true")
					objWriter.WriteLine("bluej.windows.vm.args=-Xmx512M")
					objWriter.WriteLine("bluej.vm.transport=dt_shmem")
					objWriter.WriteLine("bluej.debug=false")
					objWriter.WriteLine("image.readme=readme.png")
					objWriter.WriteLine("image.readme-selected=readme-selected.png")
					objWriter.WriteLine("image.build.depends=arrow_black_uml.gif")
					objWriter.WriteLine("image.build.extends=darrow_black_uml.gif")
					objWriter.WriteLine("image.editor.breakmark=break.gif")
					objWriter.WriteLine("image.editor.stepmark=stepmark.gif")
					objWriter.WriteLine("image.editor.breakstepmark=stepbreak.gif")
					objWriter.WriteLine("image.eval.prompt=prompt.gif")
					objWriter.WriteLine("image.eval.continue=prompt-continue.gif")
					objWriter.WriteLine("image.eval.object=small-object.gif")
					objWriter.WriteLine("image.eval.object.add=small-object-add.png")
					objWriter.WriteLine("image.eval.object.add.highlight=small-object-add-highlight.png")
					objWriter.WriteLine("image.eval.dragobject-plus=drag-object-plus.gif")
					objWriter.WriteLine("image.eval.dragobject-noplus=drag-object-noplus.gif")
					objWriter.WriteLine("image.editordivider.open=bluej_arrow_naviview_open.gif")
					objWriter.WriteLine("image.editordivider.close=bluej_arrow_naviview_close.gif")
					objWriter.WriteLine("image.extmgr.info=extmgr-info.gif")
					objWriter.WriteLine("image.inspector.objectref=objectref.gif")
					objWriter.WriteLine("screen.hidpi.scaling = 1")
					objWriter.Close()
				End If
			End If
			
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\Greenfoot_3.7.0\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Greenfoot_3.7.0\lib\bluej.defs"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine("bluej.language1=english:English:eng")
					objWriter.WriteLine("bluej.language2=german:German:deu")
					objWriter.WriteLine("bluej.url.bluej=http://www.bluej.org")
					objWriter.WriteLine("bluej.url.onlinedoc=http://www.bluej.org/doc/documentation.html")
					objWriter.WriteLine("bluej.url.reference=http://www.bluej.org/reference/manual.pdf")
					objWriter.WriteLine("bluej.url.javaStdLib=https://docs.oracle.com/en/java/javase/11/docs/api/")
					objWriter.WriteLine("bluej.url.versionCheck=http://www.bluej.org/version.info")
					objWriter.WriteLine("bluej.numberOfRecentProjects=12")
					objWriter.WriteLine("bluej.autoOpenLastProject=true")
					objWriter.WriteLine("browserCmd1=firefox -remote openURL($)")
					objWriter.WriteLine("browserCmd2=firefox $")
					objWriter.WriteLine("doctool.options=-author -version -nodeprecated -package -Xdoclint:none")
					objWriter.WriteLine("doctool.outputdir=doc")
					objWriter.WriteLine("doctool.linkToStandardLib=true")
					objWriter.WriteLine("bluej.macos.screenmenubar=true")
					objWriter.WriteLine("bluej.classTemplates.java = stdclass abstract interface unittest enum")
					objWriter.WriteLine("bluej.classTemplates.stride = stdclass abstract interface")
					objWriter.WriteLine("bluej.menu.font=SansSerif-bold")
					objWriter.WriteLine("bluej.menu.fontsize=12")
					objWriter.WriteLine("bluej.editor.fontsize=12")
					objWriter.WriteLine("bluej.terminal.font=Monospaced")
					objWriter.WriteLine("bluej.editor.font=Roboto Mono")
					objWriter.WriteLine("bluej.editor.MacOS.font=Roboto Mono")
					objWriter.WriteLine("bluej.fontsize.printText=10")
					objWriter.WriteLine("bluej.fontsize.printTitle=14")
					objWriter.WriteLine("bluej.print.scale=60")
					objWriter.WriteLine("bluej.terminal.clearscreen=false")
					objWriter.WriteLine("bluej.terminal.recordcalls=false")
					objWriter.WriteLine("bluej.terminal.buffering=false")
					objWriter.WriteLine("bluej.terminal.encoding=UTF-8")
					objWriter.WriteLine("bluej.editor.autoIndent=true")
					objWriter.WriteLine("bluej.editor.syntaxHilighting=true")
					objWriter.WriteLine("bluej.editor.displayLineNumbers=true")
					objWriter.WriteLine("bluej.editor.matchBrackets=true")
					objWriter.WriteLine("bluej.editor.tabsize=4")
					objWriter.WriteLine("bluej.editor.codecompletion=true")
					objWriter.WriteLine("bluej.testing.showtools=false")
					objWriter.WriteLine("bluej.teamwork.showtools=false")
					objWriter.WriteLine("bluej.compiler.unchecked=true")
					objWriter.WriteLine("bluej.vm.args=-ea")
					objWriter.WriteLine("bluej.windows.vm.args=-Dhttps.protocols=TLSv1,TLSv1.1,TLSv1.2")
					objWriter.WriteLine("bluej.vm.transport=dt_shmem")
					objWriter.WriteLine("bluej.debug=false")
					objWriter.WriteLine("image.readme=readme.png")
					objWriter.WriteLine("image.readme-selected=readme-selected.png")
					objWriter.WriteLine("image.editor.breakmark=break.gif")
					objWriter.WriteLine("image.editor.stepmark=stepmark.gif")
					objWriter.WriteLine("image.editor.breakstepmark=stepbreak.gif")
					objWriter.WriteLine("image.eval.prompt=prompt.gif")
					objWriter.WriteLine("image.eval.continue=prompt-continue.gif")
					objWriter.WriteLine("image.eval.object=small-object.gif")
					objWriter.WriteLine("image.editordivider.open=bluej_arrow_naviview_open.gif")
					objWriter.WriteLine("image.editordivider.close=bluej_arrow_naviview_close.gif")
					objWriter.WriteLine("image.extmgr.info=extmgr-info.gif")
					objWriter.WriteLine("image.inspector.objectref=objectref.png")
					
					
					objWriter.Close()
				End If
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\Greenfoot_3.7.0\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Greenfoot_3.7.0\lib\greenfoot.defs"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine("bluej.language=german")
					objWriter.WriteLine("bluej.userHome=userhome")
					objWriter.WriteLine("greenfoot.url.greenfoot=http://www.greenfoot.org/")
					objWriter.WriteLine("greenfoot.url.scenarios=http://www.greenfoot.org/scenarios/index.html")
					objWriter.WriteLine("greenfoot.url.tutorial=http://www.greenfoot.org/doc/tutorial.html")
					objWriter.WriteLine("greenfoot.url.discuss=http://www.greenfootgallery.org/topics/")
					objWriter.WriteLine("doctool.options=-author -version -nodeprecated -protected  -Xdoclint:none")
					objWriter.WriteLine("greenfoot.gameserver.name=Greenfoot Gallery")
					objWriter.WriteLine("greenfoot.gameserver.address=http://www.greenfoot.org/")
					objWriter.WriteLine("greenfoot.gameserver.createAccount.address=http://www.greenfoot.org/users/new")
					objWriter.WriteLine("bluej.vm.args=-XX:MaxGCPauseMillis=50")
					objWriter.WriteLine("greenfoot.image.create.width=150")
					objWriter.WriteLine("greenfoot.image.create.height=150")
					objWriter.WriteLine("greenfoot.windows.vm=jdk")
					objWriter.WriteLine("greenfoot.windows.vm.args=-Dhttps.protocols=TLSv1,TLSv1.1,TLSv1.2")
					
					objWriter.Close()
				End If
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\Greenfoot_3.7.0\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Greenfoot_3.7.0\userhome\greenfoot\greenfoot.properties"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine("session.numeditors.stride=0")
					objWriter.WriteLine("bluej.accessibility.support=false")
					objWriter.WriteLine("bluej.editor.stride.sidebarShowing=true")
					objWriter.WriteLine("bluej.editor.checkDiskFileChanges=true")
					objWriter.WriteLine("bluej.editor.scopeHilightingStrength=20")
					objWriter.WriteLine("greenfoot.uid=6b2d2bcf-496d-4fda-8d4c-7b3d73fe61e1")
					objWriter.WriteLine("bluej.news.testing=false")
					objWriter.WriteLine("bluej.editor.fontsize=12")
					objWriter.WriteLine("bluej.editor.displayLineNumbers=true")
					objWriter.WriteLine("bluej.language=german")
					objWriter.WriteLine("bluej.editor.autoAddClosingCurly=true")
					objWriter.WriteLine("bluej.terminal.y=16")
					objWriter.WriteLine("bluej.terminal.x=16")
					objWriter.WriteLine("bluej.debugger.y=16")
					objWriter.WriteLine("session.numeditors.java=0")
					objWriter.WriteLine("bluej.projectPath=" & mEigeneDateienDoppelBackSlash & "\\myGreenfoot")
					objWriter.WriteLine("bluej.debugger.x=16")
					objWriter.WriteLine("greenfoot.url.javaStdLib=https\://docs.oracle.com/javase/8/docs/api/")
					
					objWriter.Close()	
				End If
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\Sharp_4.4.2\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mFileName  = appData & "\ICSharpCode\SharpDevelop4\SharpDevelopProperties.xml"
				If System.IO.File.Exists(mFileName) = False Then
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\Sharp_4.4.2\SharpDevelopProperties.xml"
					If System.IO.File.Exists(mFileName) = True Then
						txt = IO.File.ReadAllText(mFileName)
						txt = txt.Replace("EigeneDateienPfad", mEigeneDateienOhneLaufwerksbuchstabeBackSlash )
						IO.File.WriteAllText(mFileName,txt)
					End If
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\Sharp_4.4.2\Install.bat"			
					Dim startInfo As New System.Diagnostics.ProcessStartInfo(mFileName)
					startInfo.WorkingDirectory = System.IO.Path.GetDirectoryName(mFileName)
					System.Diagnostics.Process.Start(startInfo)
				End If
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\Thonny_3.2.3\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mFileName  = appData & "\Thonny_3.2.3\configuration.ini"
				If System.IO.File.Exists(mFileName) = False Then
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\Thonny_3.2.3\Install.bat"
					Dim startInfo As New System.Diagnostics.ProcessStartInfo(mFileName)
					startInfo.WorkingDirectory = System.IO.Path.GetDirectoryName(mFileName)
					System.Diagnostics.Process.Start(startInfo)
				End If
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\Filius_1.7.2\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Filius_1.7.2\FiliusStart.bat"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter(mFileName)
					objWriter.WriteLine("" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\javaw.exe" & "" & " -jar " & "" & mInstalVerzeichnisBackSlash & "Programme\Filius_1.7.2\filius.jar" & "")
					objWriter.Close()
				End If
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\Filius_1.13.1\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Filius_1.13.1\FiliusStart.bat"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter(mFileName)
					objWriter.WriteLine("" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\javaw.exe" & "" & " -jar " & "" & mInstalVerzeichnisBackSlash & "Programme\Filius_1.13.1\filius.jar" & "")
					objWriter.Close()
				End If
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\Filius_2.2.0\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Filius_2.2.0\FiliusStart.bat"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter(mFileName)
					objWriter.WriteLine("" & mInstalVerzeichnisBackSlash & "Programme\Java_17.0.1\bin\javaw.exe" & "" & " -jar " & "" & mInstalVerzeichnisBackSlash & "Programme\Filius_2.2.0\filius.jar" & "")
					objWriter.Close()
				End If
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\Filius_2.7.1\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Filius_2.7.1\FiliusStart.bat"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter(mFileName)
					objWriter.WriteLine("" & mInstalVerzeichnisBackSlash & "Programme\Java_17.0.1\bin\javaw.exe" & "" & " -jar " & "" & mInstalVerzeichnisBackSlash & "Programme\Filius_2.7.1\filius.jar" & "")
					objWriter.Close()
				End If
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\Hamstersimulator_2.9.6\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\Hamstersimulator_2.9.6\HamstersimulatorStart.bat"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter(mFileName)
					objWriter.WriteLine("" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\javaw.exe" & "" & " -jar " & "" & mInstalVerzeichnisBackSlash & "Programme\Hamstersimulator_2.9.6\hamstersimulator.jar" & "")
					objWriter.Close()
				End If
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\HamsterStruktorgrammeditor_08.4\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\HamsterStruktorgrammeditor_08.4\HamsterStruktorgrammeditorStart.bat"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter(mFileName)
					objWriter.WriteLine("" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\javaw.exe" & "" & " -jar " & "" & mInstalVerzeichnisBackSlash & "Programme\HamsterStruktorgrammeditor_08.4\HamsterStruktorgrammeditor.jar" & "")
					objWriter.Close()
				End If
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\JavaScriptKara\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\JavaScriptKara\JavaScriptKaraStart.bat"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter(mFileName)
					objWriter.WriteLine("" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\javaw.exe" & "" & " -jar " & "" & mInstalVerzeichnisBackSlash & "Programme\JavaScriptKara\javascriptkara.jar" & "")
					objWriter.Close()
				End If
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\AutomatenKara\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\AutomatenKara\AutomatenKaraStart.bat"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter(mFileName)
					objWriter.WriteLine("" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\javaw.exe" & "" & " -jar " & "" & mInstalVerzeichnisBackSlash & "Programme\AutomatenKara\kara.jar" & "")
					objWriter.Close()
				End If
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\JavaKara\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\JavaKara\JavaKaraStart.bat"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter(mFileName)
					objWriter.WriteLine("" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\javaw.exe" & "" & " -jar " & "" & mInstalVerzeichnisBackSlash & "Programme\JavaKara\javakara.jar" & "")
					objWriter.Close()
				End If
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\JavaKara\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\JavaKara\.javakarasettings"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter(mFileName)
					objWriter.WriteLine("javac.path=" & mInstalVerzeichnisDoppelBackSlash & "Programme\\Java_1.8.0\\bin\\javac.exe")
					objWriter.Close()
				End If
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\SolistKara\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\SolistKara\SolistKaraStart.bat"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter(mFileName)
					objWriter.WriteLine("" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\javaw.exe" & "" & " -jar " & "" & mInstalVerzeichnisBackSlash & "Programme\SolistKara\solist.jar" & "")
					objWriter.Close()
				End If
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\SolistKara\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\SolistKara\solist.properties"
				If System.IO.File.Exists(mFileName) = True Then
					txt = IO.File.ReadAllText(mFileName)
					mFundstelle = 1
					While mFundstelle > 0
						mFundstelle = txt.IndexOf("jdk=")
						mStellenZaehler = mFundstelle
						While txt.Substring(mStellenZaehler,10) <> "Java_1.8.0"
							mStellenZaehler = mStellenZaehler + 1
						End While
						txt = txt.Substring(0,mFundstelle) & "jdk=" & mInstalVerzeichnisDoppelBackSlash & "Programme\\Java_1.8.0" &  txt.Substring(mStellenZaehler + 10,txt.Length - mstellenzaehler - 10)
						mFundstelle = 0
					End While
					IO.File.WriteAllText(mFileName,txt)
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\SolistKara\simulatoren\damensimulator-1.0\solist.properties"
				If System.IO.File.Exists(mFileName) = True Then
					txt = IO.File.ReadAllText(mFileName)
					mFundstelle = 1
					While mFundstelle > 0
						mFundstelle = txt.IndexOf("jdk=")
						mStellenZaehler = mFundstelle
						While txt.Substring(mStellenZaehler,10) <> "Java_1.8.0"
							mStellenZaehler = mStellenZaehler + 1
						End While
						txt = txt.Substring(0,mFundstelle) & "jdk=" & mInstalVerzeichnisDoppelBackSlash & "Programme\\Java_1.8.0" &  txt.Substring(mStellenZaehler + 10,txt.Length - mstellenzaehler - 10)
						mFundstelle = 0
					End While
					IO.File.WriteAllText(mFileName,txt)
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\SolistKara\simulatoren\froschsimulator-1.0\solist.properties"
				If System.IO.File.Exists(mFileName) = True Then
					txt = IO.File.ReadAllText(mFileName)
					mFundstelle = 1
					While mFundstelle > 0
						mFundstelle = txt.IndexOf("jdk=")
						mStellenZaehler = mFundstelle
						While txt.Substring(mStellenZaehler,10) <> "Java_1.8.0"
							mStellenZaehler = mStellenZaehler + 1
						End While
						txt = txt.Substring(0,mFundstelle) & "jdk=" & mInstalVerzeichnisDoppelBackSlash & "Programme\\Java_1.8.0" &  txt.Substring(mStellenZaehler + 10,txt.Length - mstellenzaehler - 10)
						mFundstelle = 0
					End While
					IO.File.WriteAllText(mFileName,txt)
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\SolistKara\\simulatoren\fruechtesimulator-1.0\solist.properties"
				If System.IO.File.Exists(mFileName) = True Then
					txt = IO.File.ReadAllText(mFileName)
					mFundstelle = 1
					While mFundstelle > 0
						mFundstelle = txt.IndexOf("jdk=")
						mStellenZaehler = mFundstelle
						While txt.Substring(mStellenZaehler,10) <> "Java_1.8.0"
							mStellenZaehler = mStellenZaehler + 1
						End While
						txt = txt.Substring(0,mFundstelle) & "jdk=" & mInstalVerzeichnisDoppelBackSlash & "Programme\\Java_1.8.0" &  txt.Substring(mStellenZaehler + 10,txt.Length - mstellenzaehler - 10)
						mFundstelle = 0
						
					End While
					IO.File.WriteAllText(mFileName,txt)
				End If	
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\SolistKara\simulatoren\gameoflifesimulator-1.0\solist.properties"
				If System.IO.File.Exists(mFileName) = True Then
					txt = IO.File.ReadAllText(mFileName)
					mFundstelle = 1
					While mFundstelle > 0
						mFundstelle = txt.IndexOf("jdk=")
						mStellenZaehler = mFundstelle
						While txt.Substring(mStellenZaehler,10) <> "Java_1.8.0"
							mStellenZaehler = mStellenZaehler + 1
						End While
						txt = txt.Substring(0,mFundstelle) & "jdk=" & mInstalVerzeichnisDoppelBackSlash & "Programme\\Java_1.8.0" &  txt.Substring(mStellenZaehler + 10,txt.Length - mstellenzaehler - 10)
						mFundstelle = 0
					End While
					IO.File.WriteAllText(mFileName,txt)
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\SolistKara\simulatoren\geisterstundesimulator-1.0\solist.properties"
				If System.IO.File.Exists(mFileName) = True Then
					txt = IO.File.ReadAllText(mFileName)
					mFundstelle = 1
					While mFundstelle > 0
						mFundstelle = txt.IndexOf("jdk=")
						mStellenZaehler = mFundstelle
						While txt.Substring(mStellenZaehler,10) <> "Java_1.8.0"
							mStellenZaehler = mStellenZaehler + 1
						End While
						txt = txt.Substring(0,mFundstelle) & "jdk=" & mInstalVerzeichnisDoppelBackSlash & "Programme\\Java_1.8.0" &  txt.Substring(mStellenZaehler + 10,txt.Length - mstellenzaehler - 10)
						mFundstelle = 0
					End While
					IO.File.WriteAllText(mFileName,txt)
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\SolistKara\simulatoren\hamstersimulator-light-1.0\solist.properties"
				If System.IO.File.Exists(mFileName) = True Then
					txt = IO.File.ReadAllText(mFileName)
					mFundstelle = 1
					While mFundstelle > 0
						mFundstelle = txt.IndexOf("jdk=")
						mStellenZaehler = mFundstelle
						While txt.Substring(mStellenZaehler,10) <> "Java_1.8.0"
							mStellenZaehler = mStellenZaehler + 1
						End While
						txt = txt.Substring(0,mFundstelle) & "jdk=" & mInstalVerzeichnisDoppelBackSlash & "Programme\\Java_1.8.0" &  txt.Substring(mStellenZaehler + 10,txt.Length - mstellenzaehler - 10)
						mFundstelle = 0
					End While
					IO.File.WriteAllText(mFileName,txt)
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\SolistKara\simulatoren\hamstersimulator-light-2.0\solist.properties"
				If System.IO.File.Exists(mFileName) = True Then
					txt = IO.File.ReadAllText(mFileName)
					mFundstelle = 1
					While mFundstelle > 0
						mFundstelle = txt.IndexOf("jdk=")
						mStellenZaehler = mFundstelle
						While txt.Substring(mStellenZaehler,10) <> "Java_1.8.0"
							mStellenZaehler = mStellenZaehler + 1
						End While
						txt = txt.Substring(0,mFundstelle) & "jdk=" & mInstalVerzeichnisDoppelBackSlash & "Programme\\Java_1.8.0" &  txt.Substring(mStellenZaehler + 10,txt.Length - mstellenzaehler - 10)
						mFundstelle = 0
					End While
					IO.File.WriteAllText(mFileName,txt)
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\SolistKara\simulatoren\hamstersimulator-scratch-1.0\solist.properties"
				If System.IO.File.Exists(mFileName) = True Then
					txt = IO.File.ReadAllText(mFileName)
					mFundstelle = 1
					While mFundstelle > 0
						mFundstelle = txt.IndexOf("jdk=")
						mStellenZaehler = mFundstelle
						While txt.Substring(mStellenZaehler,10) <> "Java_1.8.0"
							mStellenZaehler = mStellenZaehler + 1
						End While
						txt = txt.Substring(0,mFundstelle) & "jdk=" & mInstalVerzeichnisDoppelBackSlash & "Programme\\Java_1.8.0" &  txt.Substring(mStellenZaehler + 10,txt.Length - mstellenzaehler - 10)
						mFundstelle = 0
					End While
					IO.File.WriteAllText(mFileName,txt)
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\SolistKara\simulatoren\hamstersimulator-scratch-1.1\solist.properties"
				If System.IO.File.Exists(mFileName) = True Then
					txt = IO.File.ReadAllText(mFileName)
					mFundstelle = 1
					While mFundstelle > 0
						mFundstelle = txt.IndexOf("jdk=")
						mStellenZaehler = mFundstelle
						While txt.Substring(mStellenZaehler,10) <> "Java_1.8.0"
							mStellenZaehler = mStellenZaehler + 1
						End While
						txt = txt.Substring(0,mFundstelle) & "jdk=" & mInstalVerzeichnisDoppelBackSlash & "Programme\\Java_1.8.0" &  txt.Substring(mStellenZaehler + 10,txt.Length - mstellenzaehler - 10)
						mFundstelle = 0
					End While
					IO.File.WriteAllText(mFileName,txt)
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\SolistKara\simulatoren\hanoisimulator-1.0\solist.properties"
				If System.IO.File.Exists(mFileName) = True Then
					txt = IO.File.ReadAllText(mFileName)
					mFundstelle = 1
					While mFundstelle > 0
						mFundstelle = txt.IndexOf("jdk=")
						mStellenZaehler = mFundstelle
						While txt.Substring(mStellenZaehler,10) <> "Java_1.8.0"
							mStellenZaehler = mStellenZaehler + 1
						End While
						txt = txt.Substring(0,mFundstelle) & "jdk=" & mInstalVerzeichnisDoppelBackSlash & "Programme\\Java_1.8.0" &  txt.Substring(mStellenZaehler + 10,txt.Length - mstellenzaehler - 10)
						mFundstelle = 0
					End While
					IO.File.WriteAllText(mFileName,txt)
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\SolistKara\simulatoren\karasimulator-scratch-1.0\solist.properties"
				If System.IO.File.Exists(mFileName) = True Then
					txt = IO.File.ReadAllText(mFileName)
					mFundstelle = 1
					While mFundstelle > 0
						mFundstelle = txt.IndexOf("jdk=")
						mStellenZaehler = mFundstelle
						While txt.Substring(mStellenZaehler,10) <> "Java_1.8.0"
							mStellenZaehler = mStellenZaehler + 1
						End While
						txt = txt.Substring(0,mFundstelle) & "jdk=" & mInstalVerzeichnisDoppelBackSlash & "Programme\\Java_1.8.0" &  txt.Substring(mStellenZaehler + 10,txt.Length - mstellenzaehler - 10)
						mFundstelle = 0
					End While
					IO.File.WriteAllText(mFileName,txt)
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\SolistKara\simulatoren\karasimulator-scratch-1.1\solist.properties"
				If System.IO.File.Exists(mFileName) = True Then
					txt = IO.File.ReadAllText(mFileName)
					mFundstelle = 1
					While mFundstelle > 0
						mFundstelle = txt.IndexOf("jdk=")
						mStellenZaehler = mFundstelle
						While txt.Substring(mStellenZaehler,10) <> "Java_1.8.0"
							mStellenZaehler = mStellenZaehler + 1
						End While
						txt = txt.Substring(0,mFundstelle) & "jdk=" & mInstalVerzeichnisDoppelBackSlash & "Programme\\Java_1.8.0" &  txt.Substring(mStellenZaehler + 10,txt.Length - mstellenzaehler - 10)
						mFundstelle = 0
					End While
					IO.File.WriteAllText(mFileName,txt)
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\SolistKara\simulatoren\karasolistsimulator-1.0\solist.properties"
				If System.IO.File.Exists(mFileName) = True Then
					txt = IO.File.ReadAllText(mFileName)
					mFundstelle = 1
					While mFundstelle > 0
						mFundstelle = txt.IndexOf("jdk=")
						mStellenZaehler = mFundstelle
						While txt.Substring(mStellenZaehler,10) <> "Java_1.8.0"
							mStellenZaehler = mStellenZaehler + 1
						End While
						txt = txt.Substring(0,mFundstelle) & "jdk=" & mInstalVerzeichnisDoppelBackSlash & "Programme\\Java_1.8.0" &  txt.Substring(mStellenZaehler + 10,txt.Length - mstellenzaehler - 10)
						mFundstelle = 0
					End While
					IO.File.WriteAllText(mFileName,txt)
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\SolistKara\simulatoren\karasolistsimulator-2.0\solist.properties"
				If System.IO.File.Exists(mFileName) = True Then
					txt = IO.File.ReadAllText(mFileName)
					mFundstelle = 1
					While mFundstelle > 0
						mFundstelle = txt.IndexOf("jdk=")
						mStellenZaehler = mFundstelle
						While txt.Substring(mStellenZaehler,10) <> "Java_1.8.0"
							mStellenZaehler = mStellenZaehler + 1
						End While
						txt = txt.Substring(0,mFundstelle) & "jdk=" & mInstalVerzeichnisDoppelBackSlash & "Programme\\Java_1.8.0" &  txt.Substring(mStellenZaehler + 10,txt.Length - mstellenzaehler - 10)
						mFundstelle = 0
					End While
					IO.File.WriteAllText(mFileName,txt)
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\SolistKara\simulatoren\springersimulator-1.0\solist.properties"
				If System.IO.File.Exists(mFileName) = True Then
					txt = IO.File.ReadAllText(mFileName)
					mFundstelle = 1
					While mFundstelle > 0
						mFundstelle = txt.IndexOf("jdk=")
						mStellenZaehler = mFundstelle
						While txt.Substring(mStellenZaehler,10) <> "Java_1.8.0"
							mStellenZaehler = mStellenZaehler + 1
						End While
						txt = txt.Substring(0,mFundstelle) & "jdk=" & mInstalVerzeichnisDoppelBackSlash & "Programme\\Java_1.8.0" &  txt.Substring(mStellenZaehler + 10,txt.Length - mstellenzaehler - 10)
						mFundstelle = 0
					End While
					IO.File.WriteAllText(mFileName,txt)
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\SolistKara\simulatoren\sudokusimulator-1.0\solist.properties"
				If System.IO.File.Exists(mFileName) = True Then
					txt = IO.File.ReadAllText(mFileName)
					mFundstelle = 1
					While mFundstelle > 0
						mFundstelle = txt.IndexOf("jdk=")
						mStellenZaehler = mFundstelle
						While txt.Substring(mStellenZaehler,10) <> "Java_1.8.0"
							mStellenZaehler = mStellenZaehler + 1
						End While
						txt = txt.Substring(0,mFundstelle) & "jdk=" & mInstalVerzeichnisDoppelBackSlash & "Programme\\Java_1.8.0" &  txt.Substring(mStellenZaehler + 10,txt.Length - mstellenzaehler - 10)
						mFundstelle = 0
					End While
					IO.File.WriteAllText(mFileName,txt)
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\SolistKara\simulatoren\terminalsimulator-1.0\solist.properties"
				If System.IO.File.Exists(mFileName) = True Then
					txt = IO.File.ReadAllText(mFileName)
					mFundstelle = 1
					While mFundstelle > 0
						mFundstelle = txt.IndexOf("jdk=")
						mStellenZaehler = mFundstelle
						While txt.Substring(mStellenZaehler,10) <> "Java_1.8.0"
							mStellenZaehler = mStellenZaehler + 1
						End While
						txt = txt.Substring(0,mFundstelle) & "jdk=" & mInstalVerzeichnisDoppelBackSlash & "Programme\\Java_1.8.0" &  txt.Substring(mStellenZaehler + 10,txt.Length - mstellenzaehler - 10)
						mFundstelle = 0
					End While
					IO.File.WriteAllText(mFileName,txt)
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\SolistKara\simulatoren\tictactoesimulator-1.0\solist.properties"
				If System.IO.File.Exists(mFileName) = True Then
					txt = IO.File.ReadAllText(mFileName)
					mFundstelle = 1
					While mFundstelle > 0
						mFundstelle = txt.IndexOf("jdk=")
						mStellenZaehler = mFundstelle
						While txt.Substring(mStellenZaehler,10) <> "Java_1.8.0"
							mStellenZaehler = mStellenZaehler + 1
						End While
						txt = txt.Substring(0,mFundstelle) & "jdk=" & mInstalVerzeichnisDoppelBackSlash & "Programme\\Java_1.8.0" &  txt.Substring(mStellenZaehler + 10,txt.Length - mstellenzaehler - 10)
						mFundstelle = 0
					End While
					IO.File.WriteAllText(mFileName,txt)
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\SolistKara\simulatoren\turtlesimulator-1.0\solist.properties"
				If System.IO.File.Exists(mFileName) = True Then
					txt = IO.File.ReadAllText(mFileName)
					mFundstelle = 1
					While mFundstelle > 0
						mFundstelle = txt.IndexOf("jdk=")
						mStellenZaehler = mFundstelle
						While txt.Substring(mStellenZaehler,10) <> "Java_1.8.0"
							mStellenZaehler = mStellenZaehler + 1
						End While
						txt = txt.Substring(0,mFundstelle) & "jdk=" & mInstalVerzeichnisDoppelBackSlash & "Programme\\Java_1.8.0" &  txt.Substring(mStellenZaehler + 10,txt.Length - mstellenzaehler - 10)
						mFundstelle = 0
					End While
					IO.File.WriteAllText(mFileName,txt)
				End If
			End If
			
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\PythonKara\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\PythonKara\PythonKaraStart.bat"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter(mFileName)
					objWriter.WriteLine("" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\javaw.exe" & "" & " -jar " & "" & mInstalVerzeichnisBackSlash & "Programme\PythonKara\pythonkara.jar" & "")
					objWriter.Close()
				End If
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\db4o_5.5.1\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\db4o_5.5.1\QM\objectmanager.bat"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine( mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\java.exe -Djava.library.path=lib\windows -classpath lib\osgi_core.jar;lib\runtime.jar;lib\objectmanager-1.8.jar;lib\db4o-5.5-java1.2.jar;lib\jakarta-oro-2.0.7.jar;lib\jface.jar;lib\kxml-plugin.jar;lib\org.eclipse.ve.sweet_1.0.0.jar;lib\windows\swt_win32.jar;lib\xmlpull_1_1_3_1.jar;lib\xswt.jar;lib\windows\swt.jar com.db4o.browser.gui.standalone.StandaloneBrowser %1")
					objWriter.Close()
				End If
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\LogicSim_2.4\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\LogicSim_2.4\LogicSimStart.bat"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine("" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\javaw.exe" & "" & " -jar " & "" & mInstalVerzeichnisBackSlash & "Programme\LogicSim_2.4\LogicSim.jar" & "")
					objWriter.Close()
				End If
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\LogicSim_3.4\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\LogicSim_3.4\LogicSimStart.bat"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine("" & mInstalVerzeichnisBackSlash & "Programme\Java_1.8.0\bin\javaw.exe" & "" & " -jar " & "" & mInstalVerzeichnisBackSlash & "Programme\LogicSim_3.4\LogicSim.jar" & "")
					objWriter.Close()
				End If
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\DiagramDesigner_1.29.5\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then		
				Dim mRegKey As Microsoft.Win32.RegistryKey =  My.Computer.Registry.CurrentUser.OpenSubKey("SOFTWARE\MeeSoft\DiagramDesigner", True)
				Try
					mRegKeyText = mRegKey.GetValue("PaletteName")
				Catch ex As Exception
					mRegKeyText = ""
					
				End Try
				If String.IsNullOrEmpty(mRegKeyText) = False Then
					Try
						My.Computer.Registry.CurrentUser.DeleteSubKeyTree("SOFTWARE\MeeSoft\DiagramDesigner")
						mStellenZaehler = mRegKeyText.Length - 1
						While mRegKeyText.Substring(mStellenZaehler,1) <> "\"
							mStellenZaehler = mStellenZaehler - 1
							If mStellenZaehler < 0 Then
								mFundstelle = -1
								Exit While 
							End If
						End While
					Catch ex As Exception
					End Try
					If mStellenZaehler > -1 Then
						mPalettename = mRegKeyText.Substring(mStellenZaehler + 1, mRegKeyText.Length - 1 - mStellenZaehler )
						mPfad = mRegKeyText.Substring(0, mStellenZaehler + 1)
						If mPfad <> Links(mInstalLaufwerk,1) & ":" &  mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash & "Programme\DiagramDesigner_1.29.5\" Then
							Try
								mRegKey.SetValue("DictionaryPath", Links(mInstalLaufwerk,1) & ":" &  mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash & "Programme\DiagramDesigner_1.29.5\")
								mRegKey.SetValue("PaletteName", Links(mInstalLaufwerk,1) & ":" &  mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash & "Programme\DiagramDesigner_1.29.5\" & mPalettename)
								mRegKey.SetValue("PalettePath", Links(mInstalLaufwerk,1) & ":" &  mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash & "Programme\DiagramDesigner_1.29.5\")
							Catch ex As Exception
							End Try
						End If
					End If
				Else
					Try
						mRegKey  =  My.Computer.Registry.CurrentUser.OpenSubKey("SOFTWARE", True)
						mRegKey.CreateSubKey("MeeSoft", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree)
						mRegKey = My.Computer.Registry.CurrentUser.OpenSubKey("SOFTWARE\MeeSoft", True)
						mRegKey.CreateSubKey("DiagramDesigner", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree).SetValue("Antialiasing", "1")
						mRegKey.CreateSubKey("DiagramDesigner", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree).SetValue("AutoConnectToLinks", "1")
						mRegKey.CreateSubKey("DiagramDesigner", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree).SetValue("ClipboardScale", "1")
						mRegKey.CreateSubKey("DiagramDesigner", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree).SetValue("DefaultGroupAnchors", "1")
						mRegKey.CreateSubKey("DiagramDesigner", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree).SetValue("DefaultGroupLinks", "1")
						mRegKey.CreateSubKey("DiagramDesigner", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree).SetValue("DefaultLinks", "")
						mRegKey.CreateSubKey("DiagramDesigner", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree).SetValue("DictionaryPath", Links(mInstalLaufwerk,1) & ":" &  mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash & "Programme\DiagramDesigner_1.29.5\")
						mRegKey.CreateSubKey("DiagramDesigner", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree).SetValue("DisplayUnits", "0")
						mRegKey.CreateSubKey("DiagramDesigner", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree).SetValue("GridX", "2520")
						mRegKey.CreateSubKey("DiagramDesigner", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree).SetValue("GridY", "2520")
						mRegKey.CreateSubKey("DiagramDesigner", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree).SetValue("IsMaximized", "0")
						mRegKey.CreateSubKey("DiagramDesigner", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree).SetValue("Language", "0407_German")
						mRegKey.CreateSubKey("DiagramDesigner", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree).SetValue("PaletteName", Links(mInstalLaufwerk,1) & ":" &  mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash & "Programme\DiagramDesigner_1.29.5\Flowchart.ddt")
						mRegKey.CreateSubKey("DiagramDesigner", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree).SetValue("PalettePath", Links(mInstalLaufwerk,1) & ":" &  mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash & "Programme\DiagramDesigner_1.29.5\")
						mRegKey.CreateSubKey("DiagramDesigner", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree).SetValue("PrintAsBitmap", "1")
						Dim data As String = "000000000000F03F"
						Dim bytes((data.Length \ 2) - 1) As Byte
						For i As Integer = 0 To 15 Step 2
							Dim hexByte As String = data.Substring(i, 2)
							Dim value As Byte = Byte.Parse(hexByte, Globalization.NumberStyles.AllowHexSpecifier)
							bytes(i \ 2) = value
						Next
						mRegKey.CreateSubKey("DiagramDesigner", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree).SetValue("PrintScaling",  bytes, RegistryValueKind.Binary)
						mRegKey.CreateSubKey("DiagramDesigner", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree).SetValue("RecentFileList", "")
						mRegKey.CreateSubKey("DiagramDesigner", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree).SetValue("ReversePrint", "0")
						mRegKey.CreateSubKey("DiagramDesigner", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree).SetValue("ShowGrid", "0")
						mRegKey.CreateSubKey("DiagramDesigner", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree).SetValue("ShowMargins", "0")				
						mRegKey.CreateSubKey("DiagramDesigner", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree).SetValue("TemplateWidth", "185")
						mRegKey.CreateSubKey("DiagramDesigner", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree).SetValue("TopLeft", "143252619")
						mRegKey.CreateSubKey("DiagramDesigner", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree).SetValue("TreeWidth", "121")
						mRegKey.CreateSubKey("DiagramDesigner", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree).SetValue("UndoHistory", "5")
						mRegKey.CreateSubKey("DiagramDesigner", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree).SetValue("WidthHeight", "49743264")
					Catch ex As Exception
					End Try
				End If
				mRegKey.Close
			End If
			
			mFileName  = mInstalVerzeichnisBackSlash & "Programme\LibreOfficePortable_5.4.3.2\installiert.txt"
			If System.IO.File.Exists(mFileName) = True Then
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\LibreOfficePortable_5.4.3.2\Data\settings\LibreOfficePortableSettings.ini"
				If System.IO.File.Exists(mFileName) = True Then
					Dim objWriter As New System.IO.StreamWriter( mFileName )
					objWriter.WriteLine( "[LibreOfficePortableSettings]")
					objWriter.WriteLine( "LastDrive=" & Links(mInstalLaufwerk, 2))
					objWriter.WriteLine( "LastDirectory=" & Mid(mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash, 2, Len(mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash) - 1) & "Programme\LibreOfficePortable")
					objWriter.WriteLine( "[PortableApps.comLauncherLastRunEnvironment]")
					objWriter.WriteLine( "PAL:LastPortableAppsBaseDir=" & Links(mInstalLaufwerk, 1) & ":" & Links(mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash, Len(mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash) - 1))
					objWriter.Close()
				End If
				
				mFileName  = mInstalVerzeichnisBackSlash & "Programme\LibreOfficePortable_7.2.4\installiert.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mFileName  = mInstalVerzeichnisBackSlash & "Programme\LibreOfficePortable_7.2.4\Data\settings\LibreOfficePortableSettings.ini"
					If System.IO.File.Exists(mFileName) = True Then
						Dim objWriter As New System.IO.StreamWriter( mFileName )
						objWriter.WriteLine( "[LibreOfficePortableSettings]")
						objWriter.WriteLine( "LastDrive=" & Links(mInstalLaufwerk, 2))
						objWriter.WriteLine( "LastDirectory=" & Mid(mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash, 2, Len(mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash) - 1) & "Programme\LibreOfficePortable")
						objWriter.WriteLine( "[PortableApps.comLauncherLastRunEnvironment]")
						objWriter.WriteLine( "PAL:LastPortableAppsBaseDir=" & Links(mInstalLaufwerk, 1) & ":" & Links(mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash, Len(mInstalVerzeichnisOhneLaufwerksbuchstabeBackSlash) - 1))
						objWriter.Close()
					End If
				End If
			End If
		End Sub
		
		Sub StartNextDownload()
			mStartDownload = mStartDownload + 1
			If mStartDownload < 7 Then
				Dim meinWebClientStart As WebClient = New WebClient
				meinWebClientStart.UseDefaultCredentials= True
				meinWebClientStart.Credentials = CredentialCache.DefaultCredentials
				meinWebClientStart.Proxy.Credentials = CredentialCache.DefaultCredentials
				AddHandler meinWebClientStart.DownloadFileCompleted, AddressOf meinWebClientStart_DownloadCompleted
				meinWebClientStart.Headers.Add("Cookie", "__test=3c020c18923605cf39e4292d69038f3a")
				meinWebClientStart.DownloadFileAsync(New Uri(mDownloadURLListe(mStartDownload)), mInstalVerzeichnisBackSlash & "\Download\" &  mDownloadDateiListe(mStartDownload))
			End If
		End Sub
		
		Sub meinWebClientStart_DownloadCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs)
			
			If mStartDownload = 0 And mAutoUpdate = True Then
				mFileName  = mInstalVerzeichnisBackSlash &"Download\startupdate.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mStartUpdate = IO.File.ReadAllText(mFileName)
					mStartUpdate = mStartUpdate.Trim
					If mStartUpdate <= mStartVersion  Then
						mStartUpdate = ""
					End If
					For Each gefundeneDateien As String In My.Computer.FileSystem.GetFiles(mInstalVerzeichnisBackSlash &"Download")
						Try
							My.Computer.FileSystem.DeleteFile(gefundeneDateien)
						Catch ex As Exception
						End Try
					Next
				End If
			End If
			
			If mStartDownload = 1 Then
				mFileName  = mInstalVerzeichnisBackSlash &"Download\allgemeinupdate.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mAllgemeinUpdate = IO.File.ReadAllText(mFileName)
					mAllgemeinUpdate= mAllgemeinUpdate.Trim
					If mAllgemeinUpdate > mAllgemeinVersion And mAutoUpdate = True Then
						mAllgemeinNeu = True
					Else
						mStartDownload = mStartDownload + 1
					End If
					For Each gefundeneDateien As String In My.Computer.FileSystem.GetFiles(mInstalVerzeichnisBackSlash &"Download")
						Try
							My.Computer.FileSystem.DeleteFile(gefundeneDateien)
						Catch ex As Exception
						End Try
					Next
				End If
			End If
			
			If mStartDownload = 2 And mAllgemeinNeu = True Then
				mFileName  = mInstalVerzeichnisBackSlash &"Download\allgemein.zip"
				If System.IO.File.Exists(mFileName) = True Then
					Dim ProgrammEntZippen As New System.Diagnostics.Process()
					ProgrammEntZippen.StartInfo.FileName = mInstalVerzeichnisBackSlash & "Programme\7-Zip\7z.exe"
					ProgrammEntZippen.StartInfo.Arguments = "x -aoa -y  " & mInstalVerzeichnisBackSlash & "Download\allgemein.zip"  & " -o" & mInstalVerzeichnisBackSlash
					ProgrammEntZippen.StartInfo.WindowStyle = ProcessWindowStyle.Normal	
					ProgrammEntZippen.Start()
					ProgrammEntZippen.WaitForExit()
					If ProgrammEntZippen.HasExited Then
						mMessagetext = "Es wurden neue Dateien dem Informatikstick hinzugefügt" & vbCrLf & vbCrLf
						mFileName  = mInstalVerzeichnisBackSlash & "Programme\PStart\Settings\AllgemeinVersion.txt"
						Dim objWriter As New System.IO.StreamWriter(mFileName)
						objWriter.WriteLine(mAllgemeinUpdate.Trim)
						objWriter.Close()
					End If 
					For Each gefundeneDateien As String In My.Computer.FileSystem.GetFiles(mInstalVerzeichnisBackSlash &"Download")
						Try
							My.Computer.FileSystem.DeleteFile(gefundeneDateien)
						Catch ex As Exception
						End Try
					Next
				End If
			End If
			
			If mStartDownload = 3 Then
				mFileName  = mInstalVerzeichnisBackSlash &"Download\verwaltungupdate.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mVerwaltungsUpdate = IO.File.ReadAllText(mFileName)
					mVerwaltungsUpdate = mVerwaltungsUpdate.Trim
					If mVerwaltungsUpdate.Length = 0 Then
						mFileName = mInstalVerzeichnisBackSlash & "Programme\PStart\Settings\Test.txt"
						If System.IO.File.Exists(mFileName) = True Then
							mDownloadURLListe(3) = mUpdateControlURL & "/test/verwaltungupdate.txt"
						Else
							mDownloadURLListe(3) = mUpdateControlURL & "verwaltungupdate.txt"
						End If
						mStartDownload = mStartDownload - 1
					End If
					If mVerwaltungsUpdate > mVerwaltungVersion  Then
						If mAutoUpdate = True Or mVerwaltungsUpdateInstallieren = True Then
							mNeueVerwaltungEXE = True
						Else
							mStartDownload = mStartDownload + 1
						End If
					End If
					For Each gefundeneDateien As String In My.Computer.FileSystem.GetFiles(mInstalVerzeichnisBackSlash &"Download")
						Try
							My.Computer.FileSystem.DeleteFile(gefundeneDateien)
						Catch ex As Exception
						End Try
					Next
				End If
			End If
			
			If mStartDownload = 4 And mNeueVerwaltungEXE = True Then
				mFileName  = mInstalVerzeichnisBackSlash &"Download\verwaltung.zip"
				If System.IO.File.Exists(mFileName) = True Then
					Dim ProgrammEntZippen As New System.Diagnostics.Process()
					ProgrammEntZippen.StartInfo.FileName = mInstalVerzeichnisBackSlash & "Programme\7-Zip\7z.exe"
					ProgrammEntZippen.StartInfo.Arguments = "x -aoa -y  " & mInstalVerzeichnisBackSlash & "Download\verwaltung.zip"  & " -o" & mInstalVerzeichnisBackSlash & "Programme\PStart\"
					ProgrammEntZippen.StartInfo.WindowStyle = ProcessWindowStyle.Normal	
					ProgrammEntZippen.Start()
					ProgrammEntZippen.WaitForExit()
					If ProgrammEntZippen.HasExited Then
						mMessagetext = mMessagetext & "Es wurde die neue Version " & mVerwaltungsUpdate & " des Programms Verwaltung.exe installiert" & vbCrLf & vbCrLf
						
						mFileName = mInstalVerzeichnisBackSlash & "Programme\PStart\Settings\VerwaltungVersion.txt"
						mVerwaltungVersion = IO.File.ReadAllText(mFileName)
						mVerwaltungVersion = mVerwaltungVersion.Trim
						If mVerwaltungVersion.Substring(0,1) = "x" Then
							mOnline = False
							prznofkInfoUpdate
							mFileName  = mInstalVerzeichnisBackSlash & "Programme\PStart\Settings\StartVersion.txt"
							Dim objWriter As New System.IO.StreamWriter(mFileName)
							objWriter.WriteLine(nofkInfo & mStartVersion.Trim)
							objWriter.Close()
						End If
						mFileName  = mInstalVerzeichnisBackSlash & "Programme\PStart\Settings\VerwaltungVersion.txt"
						If System.IO.File.Exists(mFileName) = True Then
							Dim objWriter As New System.IO.StreamWriter(mFileName)
							objWriter.WriteLine("_" & mVerwaltungsUpdate.Trim)
							objWriter.Close()
						End If	
					End If 
					For Each gefundeneDateien As String In My.Computer.FileSystem.GetFiles(mInstalVerzeichnisBackSlash &"Download")
						Try
							My.Computer.FileSystem.DeleteFile(gefundeneDateien)
						Catch ex As Exception
						End Try
					Next
				End If
			End If
			If mStartDownload = 5 Then
				mFileName  = mInstalVerzeichnisBackSlash &"Download\installupdate.txt"
				If System.IO.File.Exists(mFileName) = True Then
					mInstallUpdate = IO.File.ReadAllText(mFileName)
					mInstallUpdate = mInstallUpdate.Trim
					mLetzteAkualisierungInstallierbareProgramme = IO.File.ReadAllText(mInstalVerzeichnisBackSlash & "Programme\PStart\Settings\LetzteAkualisierungInstallierbareProgramme.txt")
					mLetzteAkualisierungInstallierbareProgramme = mLetzteAkualisierungInstallierbareProgramme.Trim
					For Each gefundeneDateien As String In My.Computer.FileSystem.GetFiles(mInstalVerzeichnisBackSlash &"Download")
						Try
							My.Computer.FileSystem.DeleteFile(gefundeneDateien)
						Catch ex As Exception
						End Try
					Next
					If mLetzteAkualisierungInstallierbareProgramme < mInstallUpdate Then
						Dim ProgrammVerwaltung As New System.Diagnostics.Process()
						ProgrammVerwaltung.StartInfo.FileName = mInstalVerzeichnisBackSlash & "Programme\PStart\Verwaltung.exe"
						ProgrammVerwaltung.StartInfo.WindowStyle = ProcessWindowStyle.Normal
						ProgrammVerwaltung.Start()
						System.Threading.Thread.Sleep(4000)
						mMessagetext = mMessagetext & "Es sind neue Programme bzw. Updates  installierbar. Deshalb wurde die Informatikstickverwaltung gestartet" & vbCrLf & vbCrLf
						If mMessagetext.Length > 0 Then
							mEreignisanzeigeProzessID = Shell (mInstalVerzeichnisBackSlash & "Programme\PStart\Ereignisanzeige.exe " & mMessagetext,vbNormalFocus).ToString
							Try
								AppActivate(mEreignisanzeigeProzessID)
							Catch ex As Exception
							End Try
						End If
						mMessagetext = ""
						End	
					Else
						mFileName = mInstalVerzeichnisBackSlash & "Programme\PStart\Settings\StartEigen.txt"
						If System.IO.File.Exists(mFileName) = True Then
							mFileName = mInstalVerzeichnisBackSlash & "Programme\PStart\StartEigen.xml"
							If System.IO.File.Exists(mFileName) = True Then
								txt = IO.File.ReadAllText(mFileName)
								mFundstelle = txt.IndexOf("   Eigenes Men&#xFC;") 
								If mFundstelle = -1 Then
									mFundstelle = txt.IndexOf("<title>")
									mTextTeil1 = txt.Substring(0,mFundstelle)
									mTextTeil2 = txt.Substring(mFundstelle,txt.Length - mTextTeil1.Length)
									mFundstelle = mTextTeil2.IndexOf("</panel>")
									mTextTeil2 = mTextTeil2.Substring(mFundstelle,mTextTeil2.Length - mFundstelle)
									txt = mTextTeil1 & "<title>Informatikstick  "  & mStartVersion.trim & "  IP: " & mMeineIP & "   Eigenes Men&#xFC;</title>" & mTextTeil2		
									IO.File.WriteAllText(mFileName,txt)
								End If		
							End If
							If mMessagetext.Length > 0 Then
								mEreignisanzeigeProzessID = Shell (mInstalVerzeichnisBackSlash & "Programme\PStart\Ereignisanzeige.exe " & mMessagetext,vbNormalFocus).ToString
								Try
									AppActivate(mEreignisanzeigeProzessID)
								Catch ex As Exception
								End Try
							End If
							mMessagetext = ""
							mStartProzessID = Shell (mInstalVerzeichnisBackSlash & "Programme\PStart\Start.exe StartEigen").ToString
							mFileName  =  mInstalVerzeichnisBackSlash & "Programme\PStart\Settings\StartProzessID.txt"
							Dim objWriter1 As New System.IO.StreamWriter(mFileName)
							objWriter1.WriteLine(mStartProzessID)
							objWriter1.Close()
							End
						Else
							If mMessagetext.Length > 0 Then
								mEreignisanzeigeProzessID = Shell (mInstalVerzeichnisBackSlash & "Programme\PStart\Ereignisanzeige.exe " & mMessagetext,vbNormalFocus).ToString
								Try
									AppActivate(mEreignisanzeigeProzessID)
								Catch ex As Exception
								End Try
							End If
							mMessagetext = ""
						End If
						If mFlexibel = True Then
							Einstellungen()	
						End If
						mStartProzessID = Shell (mInstalVerzeichnisBackSlash & "Programme\PStart\START.exe START").ToString
						Try
							AppActivate(mStartProzessID)
						Catch ex As Exception
						End Try
						mFileName  =  mInstalVerzeichnisBackSlash & "Programme\PStart\Settings\StartProzessID.txt"
						Dim objWriter As New System.IO.StreamWriter(mFileName)
						objWriter.WriteLine(mStartProzessID.Trim)
						objWriter.Close()
						End
					End If
				End If
			End If
			
			StartNextDownload()
		End Sub
		
		Function TestWebConnection() As Integer
			Try
				txt = mUpdateControlURL
				mFundstelle = txt.IndexOf("//")
				txt = txt.substring(mFundstelle + 2,txt.Length - mFundstelle -2)
				mFundstelle = txt.IndexOf("/")
				txt = txt.substring(0, mFundstelle)
				My.Computer.Network.Ping(txt)
				Return 1
			Catch ex As Exception
				Return 0
			End Try
		End Function
	End Class
	