Hi Community,
Ich möchte zur Zeit für ein Programm schreiben das Datenträger syncron halten soll. Das funktioniert so weit. Nun möchte ich eine Art Starter bauen, die ich mir in den Autostart lege und die dann nach einer Woche das Programm öffnet. Das mit dem vergleich des Datums funktioniert auch, bloß wenn das synchronisieren abgeschlossen wurde soll der Starter das jetzige Datum wieder in eine .txt schreiben, um es beim nächsten Start wieder einzulesen. das Problem hierbei ist das die .txt Datei jedes mal leer ist?
Hier mein Code:
Spoiler anzeigen
Das programm liegt gerade noch in dem Projektverzeichniss, an Adminrechten kann es also nicht liegen.
Weiß jemand rat?
Ich möchte zur Zeit für ein Programm schreiben das Datenträger syncron halten soll. Das funktioniert so weit. Nun möchte ich eine Art Starter bauen, die ich mir in den Autostart lege und die dann nach einer Woche das Programm öffnet. Das mit dem vergleich des Datums funktioniert auch, bloß wenn das synchronisieren abgeschlossen wurde soll der Starter das jetzige Datum wieder in eine .txt schreiben, um es beim nächsten Start wieder einzulesen. das Problem hierbei ist das die .txt Datei jedes mal leer ist?
Hier mein Code:
VB.NET-Quellcode
- Option Strict On
- Imports System.IO
- Public Class Form1
- Dim lastupdate As DateTime
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Dim str As New FileStream(Application.StartupPath + "\lastupdate.txt", FileMode.Open)
- Dim reader As New StreamReader(str)
- Dim laststring As String = reader.ReadLine
- lastupdate = CDate(laststring)
- str.Close()
- If lastupdate.AddDays(7).Date = DateTime.Now.Date Then
- updated = True
- MsgBox("funkt")
- End If
- End Sub
- Dim updated As Boolean = False
- Sub writer()
- Dim sss As New FileStream(Application.StartupPath + "\lastupdate.txt", FileMode.Truncate)
- Dim writer As New StreamWriter(sss)
- Dim wr As Date = DateTime.Now
- writer.WriteLine(CStr(wr))
- End Sub
- Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
- If updated = True Then
- writer()
- End If
- End Sub
- End Class
Das programm liegt gerade noch in dem Projektverzeichniss, an Adminrechten kann es also nicht liegen.
Weiß jemand rat?
faxe1008