Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
 
        InitializeTimePicker()
        cmdGeht.Enabled = False
 
        Dim path As String = Environment.GetFolderPath( _
        Environment.SpecialFolder.MyDocuments)
 
        Dim di As New DirectoryInfo(path & "\Zeiterfassung Daten")
        If Not di.Exists Then di.Create()
        If Not Directory.Exists(path & "\Zeiterfassung Daten\Daten_" & _
                                Now.ToString("yyyy")) Then
            di.CreateSubdirectory("Daten_" & Now.ToString("yyyy"))
        End If
 
        Dim fi As New FileInfo(path & "\Zeiterfassung Daten\Daten_" & _
          Now.ToString("yyyy") & _
                               "\" & Now.ToString("MMMM") & ".txt")
 
 
        Directory.SetCurrentDirectory(path & "\Zeiterfassung Daten\Daten_" & _
        Now.ToString("yyyy"))
        Dateiname = Now.ToString("MMMM") & ".txt"
 
        TextBox1.Text = Directory.GetCurrentDirectory & "\" & Dateiname
 
    End Sub