Dim FiStr As FileStream = New FileStream( _
                  My.Application.Info.DirectoryPath & "\Data\MyNotes\" & user & _
                  "_MyNotesSend", FileMode.Create)
                Dim StrWr As StreamWriter = New StreamWriter(FiStr)
                StrWr.Close()

 Public Sub Check_MyNotes_Send()
        Dim strPath As String
        Dim lngAge As Long
        Dim lngAusgabe As Long
        Dim strType As String
 
        strPath = My.Application.Info.DirectoryPath & "\Data\MyNotes\"
        lngAge = 1
        strType = ""
 
        lngAusgabe = DeleteFilesAfterXDays(strPath, lngAge, strType)
        'Debug.Print("Es wurden " & lngAusgabe & " Dateien aus dem Ordner " & 
        ' strPath & " gelöscht")
    End Sub
 
    ' Löscht alle Dateien eines Ordners, die älter als x Tage sind
    Public Function DeleteFilesAfterXDays(ByVal strFilePath As String, _
      Optional ByVal lngFileAge As Long = 10, _
      Optional ByVal strFileType As String = "") As Long
 
        Dim lngDeletetFiles As Long
        Dim dtmFileCreated As Date
        Dim objFSO As Object
        Dim objFolder As Object
        Dim colFile As Object
        Dim objFile As Object
 
        ' Fehlerbehandlung aktivieren
        On Error GoTo ErrHandler
 
        ' Laufparameter für das Gesamtergebnis der gelöschten Dateien
        lngDeletetFiles = 0
 
        ' Verweis auf das FileSystemObject erstellen
        objFSO = CreateObject("Scripting.FileSystemObject")
 
        ' Verweis auf den übergebenen Pfad setzen
        objFolder = objFSO.GetFolder(strFilePath)
 
        ' Verweis auf die Dateien im übergebenen Pfad setzen
        colFile = objFolder.Files
 
        ' Schleife über alle Dateien im Ordner
        For Each objFile In colFile
 
            With objFile
                ' Prüfung nach dem Dateitypen, sprich der Dateiendung.
                ' Bei "" werden alle Dateien überprüft, ansonsten der
                ' an strFileType übergebene Dateityp, bestehend aus den
                ' letzten Buchstaben nach dem Punkt.
                If Len(strFileType) = 0 Or _
                  Right$(.Name, Len(.Name) - InStrRev(.Name, "")) = strFileType _
                  Then
 
                    ' Dateierstellungsdatum der Datei auslesen
                    dtmFileCreated = .DateCreated
 
                    ' Datumdifferenz berechnen und mit der Anzahl der
                    ' übergebenen Tagen in lngFileAge vergleichen
                    If DateDiff("d", dtmFileCreated, Now()) > lngFileAge Then
 
                        ' Bei Überschreitung der Altersgrenze, wird die Datei 
                        ' gelöscht
                        .Delete()
                        lngDeletetFiles = lngDeletetFiles + 1
                    End If
                End If
            End With
        Next
 
        ' Anzahl der gelöschten Dateien übergeben
        DeleteFilesAfterXDays = lngDeletetFiles
 
ErrHandler:
        ' Objekte zerstören
        objFolder = Nothing
        objFSO = Nothing
        colFile = Nothing
        objFile = Nothing
    End Function

Imports System.IO
Imports System.Xml
 
Module Module_ToDo
 
    Dim Datum As String = Format$(Date.Today, "yyyy-MM-dd")
    Dim Zeit As String = TimeOfDay.ToString("HH-mm-ss") 'AM/PM
    Dim DateMyNotes As String = ""
 
    Public Sub CreateEMail_ToDo()
 
        If AccessToDoMail = True Then
            ReadMySettingsMyNotes()
 
            If Not DateMyNotes = Datum Then
                If Form_PlanningGuide.TextBox_MyNotes.Text <> "" Then
 
                    Dim Outlook As Object
                    Dim olMail As Microsoft.Office.Interop.Outlook.MailItem
                    Dim TextTaskMail As String = ""
                    Outlook = CreateObject("Outlook.Application")
                    Dim a As Integer
 
                    TextTaskMail = "Hello " & currentUser_FirstName & vbNewLine _
                      & vbNewLine & "Herewith you will receive the summary of" & _
                      "your private 'MyNotes' from tabpage PinBoard (" & _
                      "PlanningGuide)." & _
                        vbNewLine & "Please check the details." & vbNewLine & _
                        "-----------------------------------------------------" & _
                        "-----------------------------------------------------" & _
                        "----" & vbNewLine & _
                        Form_PlanningGuide.TextBox_MyNotes.Text
                    TextTaskMail = Replace(TextTaskMail, vbCrLf, " <br> ", 1, _
                      -1, 1)
                    TextTaskMail = Replace(TextTaskMail, vbNewLine, " <br> ", _
                    1, -1, 1)
                    TextTaskMail = Replace(TextTaskMail, Chr(13), " <br> ", 1, _
                    -1, 1)
                    TextTaskMail = Replace(TextTaskMail, Chr(10), " <br> ", 1, _
                    -1, 1)
 
                    olMail = Outlook.CreateItem(a)
                    olMail.Subject = "MyNotes" & " - " & Datum & " " & Zeit & "" & _
                      "- " & currentUser_FirstName & " " & currentUser_LastName
                    olMail.HTMLBody = "<div style='font-size:11pt; font-family:" & _
                    "MetaPlusLF; '>" & TextTaskMail & "</div>"
 
                    '##########################################################
                    ' ###############
                    'Mail To/CC
                    olMail.To = currentUser_LastName & " " & _
                      currentUser_FirstName
                    'Mail To/CC
                    '##########################################################
                    ' ###############
 
                    olMail.Send()
                    Outlook = Nothing
                    olMail = Nothing
                    WriteMySettingsMyNotes()
                End If
            End If
        End If
    End Sub
 
    Public Sub ReadMySettingsMyNotes()
 
        Dim xml_Doc As XmlDocument
        Dim xml_NodeLoad As XmlNode
        Dim xml_PathMyNotes As String = My.Application.Info.DirectoryPath & _
          "\Data" & "\PlanningGuideSettings_" & user & ".xml"
 
        If IO.File.Exists(xml_PathMyNotes) Then
            xml_Doc = New XmlDocument()
            xml_Doc.Load(xml_PathMyNotes)
            If (xml_Doc.SelectSingleNode( _
              "Settings/UserSettings/MyNotes/Item_1") Is Nothing = False) Then
                xml_NodeLoad = xml_Doc.SelectSingleNode( _
                "Settings/UserSettings/MyNotes/Item_1")
                If xml_NodeLoad.InnerText <> "" Then
                    DateMyNotes = xml_NodeLoad.FirstChild.Value
                End If
            End If
        End If
    End Sub
 
    Public Sub WriteMySettingsMyNotes()
 
        Dim xml_Doc As XmlDocument
        Dim xml_NodeWrite As XmlNode
        Dim xml_PathMyNotes As String = My.Application.Info.DirectoryPath & _
          "\Data" & "\PlanningGuideSettings_" & user & ".xml"
        Dim NodeText As String = ""
 
        If IO.File.Exists(xml_PathMyNotes) Then
            xml_Doc = New XmlDocument()
            xml_Doc.Load(xml_PathMyNotes)
            If (xml_Doc.SelectSingleNode( _
              "Settings/UserSettings/MyNotes/Item_1") Is Nothing = False) Then
                xml_NodeWrite = xml_Doc.SelectSingleNode( _
                "Settings/UserSettings/MyNotes/Item_1")
                xml_NodeWrite.InnerText = Datum
            End If
            xml_Doc.Save(xml_PathMyNotes)
        End If
    End Sub
 
End Module

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles _
      Button2.Click
'Wert setzen
        My.Settings.Datum = Format(Date.Now.ToString("dd.MM.yyyy",
                        CultureInfo.InvariantCulture))
 
    End Sub
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles _
      Button3.Click
'Wert lesen
        MessageBox.Show(My.Settings.Datum)
    End Sub

EALA FREYA FRESENA

EALA FREYA FRESENA

Zitat:

Man legt dort keine Daten ab, die durch die App verarbeitet werden - die also keine inhaltliche Bedeutung besitzen, die in einer direkten Beziehung zu einer bestimmten App steht.

Zitat:

Übrigens: Wenn ein Programm immer auf die gleiche Datei zugreifen soll, schreibt man deren [B]Pfad[/B] zweckmäßig in eine Settings-Variable.

Zitat:

Und noch eins: Für den Eigenbedarf kann man (aus Bequemlichkeit) irgendwas zusammenstöpseln. Das ist klar. Ansonsten aber: Immer eine ordentliche Windows-Installationsroutine verwenden (z.B. Click-Once)!

Zitat:

Dann werden auch Settings-Dateien oder Ressourcen auf dem Zielrechner korrekt eingerichtet.

Zitat:

Zum hier vorliegenden Thema: Dieser Datums-Wert ergibt sich aus der aktuellen App-Nutzung und muß deshalb nicht von irgendwo geladen werden.

Zitat:

Allgemein: Bei Settings handelt es sich um einen komfortablen Framework-Automatismus, der dem Programmierer eine Reihe von Aufgaben abnimmt,

Zitat:

Diesen Komfort kannst Du auch nutzen, wenn Deine aktuellen Settings-Informationen in einer Cloud abgelegt sind. Die entsprechende Settings-Datei kann von dort geladen und im lokalen Dateisystem an die dafür vorgesehenen Stelle kopiert werden (z.B. durch geeignete Gestaltung einer Installationsroutine).