global_start_dir = "C:"
        global_print_all = False
        glob_general_view = True
        Dim currentpath As String = _
          System.Environment.CurrentDirectory.ToString()
 
        Dim pathto As String
        MainForm = Me
        currentpath = currentpath & "\" & DATEINAME
        erroroutput("Now checking for file exist. Currentpath:" & currentpath & _
          vbCrLf)
        If System.IO.File.Exists(currentpath) = False Then
            erroroutput("The currentpath file dont exist, i am now loading the" & _
              "form" & vbCrLf)
            Dim formx As New Form2
            'form.Activate()
            Try
                formx.ShowDialog()
                erroroutput("The settings form is loaded and closed" & _
                  "successfully" & vbCrLf)
            Catch
                erroroutput("Konnte settings Dialog nicht oeffnen!" & vbCrLf)
                Exit Sub
            End Try
            erroroutput("Now writing the file from the Settings Dialog into the" & _
              "settings file!" & vbCrLf)
            Try
                putpath(currentpath)
            Catch
                erroroutput("Error: Could not write Settings File" & vbCrLf)
                Exit Sub
            End Try
        End If
        erroroutput("Open Currentpath and get the string" & vbCrLf)
        Try
            pathto = getpath(currentpath)
        Catch
            Exit Sub
        End Try
 
        erroroutput("pathto okay, now search dirs" & vbCrLf)
        If searchdirs(pathto) = 1 Then
            Exit Sub
        End If
        'DataGrid1.Expand(0)
        form1.MainForm.DataGrid1.DataSource = form1.MainForm.DataSet1.Tables(0)
        Me.ProgressBar1.Value = 0