Hallo Leute!
Habe ein kleines Problem mit einem von mir geschriebenen VB.NET Programm.
Dieses Programm dient zur Datenimportkontrolle.
Die Daten werden jeden Tag zwischen 17:00 Uhr und 03:00 Uhr automatisch eingespielt. (d.h.: es ist ein Tag unterschied)
Ich möchte jetzt mit einer If-Bedingung überprüfen, ob die Datei zwischen 17:00 Uhr (gestern) und 03:00 Uhr (heute) erstellt wurde.
Das Erstellungsdatum und die Erstellungszeit habe ich bereits herausgefiltert.
Die Überprüfung mit dem Datum funktioniert auch einwandfrei nur die Überprüfung mit der Zeit mach noch Probleme.
Der Codeausschnitt beinhaltet nur den wichtigsten Teil des Programms und nicht das gesamte.
Danke für eure Hilfe!
mfg
Tom
Habe ein kleines Problem mit einem von mir geschriebenen VB.NET Programm.
Dieses Programm dient zur Datenimportkontrolle.
Die Daten werden jeden Tag zwischen 17:00 Uhr und 03:00 Uhr automatisch eingespielt. (d.h.: es ist ein Tag unterschied)
Ich möchte jetzt mit einer If-Bedingung überprüfen, ob die Datei zwischen 17:00 Uhr (gestern) und 03:00 Uhr (heute) erstellt wurde.
Das Erstellungsdatum und die Erstellungszeit habe ich bereits herausgefiltert.
Die Überprüfung mit dem Datum funktioniert auch einwandfrei nur die Überprüfung mit der Zeit mach noch Probleme.
VB.NET-Quellcode
- Sub start(Optional ByVal pfad As String = "g:\", Optional ByVal List As Object = "", Optional ByVal endung As String = ".shop")
- Dim directory As New DirectoryInfo(pfad)
- For Each file1 As FileInfo In directory.GetFiles
- If file1.Extension = endung Then
- Dim pruefung As String
- If file1.LastAccessTimeUtc >= DateAdd(DateInterval.Day, -1, Today) Then
- pruefung = "OK"
- Else
- pruefung = "ERROR!!!"
- End If
- List.Items.Add(file1.FullName & " --- " & file1.LastAccessTimeUtc & " - " & DateAdd(DateInterval.Day, -1, Today) & " -> " & pruefung)
- End If
- Next
- If List.Visible = "false" Then
- List.Visible = "true"
- ElseIf List.Visible = "true" Then
- List.Visible = "false"
- List.Items.Clear()
- End If
- End Sub
Der Codeausschnitt beinhaltet nur den wichtigsten Teil des Programms und nicht das gesamte.
Danke für eure Hilfe!
mfg
Tom
