Private Sub cmdDirInfo_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles cmdDirInfo.Click
 
 
        Dim di As New DirectoryInfo("..\..\Zeiterfassung Daten")
        di.Create()
        di.CreateSubdirectory("Daten_" & Now.ToString("yyyy"))
 
        Dim fi As New FileInfo(Now.ToString("MMMM") & ".txt")
 
        If fi.Exists = False Then
            fi.Create()
        Else
            MsgBox("Die Datei existiert bereits!")
        End If
 
    End Sub