'Pfad zur Datei, in der das Protokoll gespeichert werden soll.
        Dim dateipfad As String = "Tagesprotokoll.txt"
        Dim Protokolldatum As Date = dtp_tagesprotokoll.Value.ToShortDateString _
          ' Oder ein beliebiges Datumsobjekt
        Dim dateiname As String = "Datei_" & Protokolldatum.ToString( _
        "yyyyMMdd") & ".txt"
 
        If String.IsNullOrEmpty(TextBoxdate.Text) Then Return
 
        'Beispiel-Protokolltext
        Dim protokollText As String = "Datum: " & Protokolldatum.ToString( _
          "yyyy-MM-dd") & vbNewLine &
                                      "Ereignis: " & TextBoxEreigniss.Text & _
                                      vbNewLine &
                                      "Notiz:    " & RichTextBoxNotiz.Text & _
                                      vbNewLine
 
        'Tagesprotokoll schreiben (Protokollmanager ist eine Klasse dafür)
        ProtokollManager.Speichern(Protokolldatum, protokollText)
 
        MsgBox("Tagesprotokoll" & Protokolldatum & " erfolgreich geschrieben.")

Imports System.IO
Imports System.Globalization
 
Public Class ProtokollManager
    Private Const BasisOrdner As String = _
      "D:\_Neue_Anwendung\Archiv_Database\Tagesprotokolle"
 
    Public Shared Sub Speichern(ByVal Datum As Date, ByVal ProtokollText As _
      String)
        Datum = Form1.dtp_tagesprotokoll.Value.ToShortDateString
        Dim WocheOrdner As String = GetWocheOrdner(Datum)
        Dim Dateiname As String = GetDateiname(Datum)
 
        ' Ordner erstellen, falls er nicht existiert
        If Not Directory.Exists(WocheOrdner) Then
            Directory.CreateDirectory(WocheOrdner)
        End If
 
        ' Datei schreiben
        Dim Pfad As String = Path.Combine(WocheOrdner, Dateiname)
        IO.File.WriteAllText(Pfad, ProtokollText)
    End Sub
 
    ' Hilfsmethode zur Ermittlung der Wochennummer
    Private Shared Function GetWocheOrdner(ByVal Datum As Date) As String
        Datum = Form1.dtp_tagesprotokoll.Value.ToShortDateString
        Dim Woche As Integer = _
          CultureInfo.CurrentCulture.Calendar.GetWeekOfYear(Datum, _
          CalendarWeekRule.FirstFourDayWeek, DayOfWeek.Monday)
        Return Path.Combine(BasisOrdner, "Woche_" & Datum.Year.ToString & "_" & _
        Woche.ToString())
    End Function
 
    Private Shared Function GetDateiname(ByVal Datum As Date) As String
        Datum = Form1.dtp_tagesprotokoll.Value.ToShortDateString
        Return "Datei_" & Datum.ToString("yyyyMMdd") & ".txt"
    End Function
End Class