Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Mein Dateiüberwacher funktioniert nicht
Autor: wrathchild
Datum: 16.02.06 11:05
Hi! Ich hab mich mal mit VB.Net angefreundet und versucht ein Programm zu schreiben das einen Ordner nach Dateien untersucht und diese löscht falls sie älter als 30 minuten sind. Das Programm läuft, nur macht es nichts Vielleicht findet ja jemand von Euch auf anhieb den Fehler. Grüße Alex Hier der Quellcode: Public Class Module1 Public Shared Sub Main() Console.WriteLine("Timer erzeugen") Dim aTimer As New System.Timers.Timer() Console.WriteLine("AddHandler") AddHandler aTimer.Elapsed, AddressOf OnTimedEvent Console.WriteLine("Prüfinterval auf 5 sek setzen") aTimer.Interval = 5000 Console.WriteLine("Timer starten") aTimer.Enabled = True Console.WriteLine("Endlosschleife") While 1 = 1 End While End Sub ' was passiert wenn der Elapsed event ausgelöst wird Public Shared Sub OnTimedEvent(ByVal source As Object, ByVal e As System.Timers.ElapsedEventArgs) Console.WriteLine("Event ausgelöst") Dim File As Object Dim fso As Scripting.FileSystemObject Dim ffolder As Scripting.Folder Dim ffile As Scripting.File fso = New Scripting.FileSystemObject() ffolder = fso.GetFolder("C:\Test\") 'Dim oStream As Scripting.TextStream 'Dim Filename = "log.txt" For Each File In ffolder.Files ffile = File Console.WriteLine("Datei gefunden") If Val(CStr(InStr(1, UCase(ffile.Name), ".txt"))) > 0 And DateDiff(Microsoft.VisualBasic.DateInterval.Minute, ffile.DateLastModified, Now) > 30 Then 'HIER EINTRAGEN WAS PASSIERT WENN ER EINE DATEI ÄLTER ALS 30 MIN FINDET fso.DeleteFile(ffile.Name) 'oStream = fso.OpenTextFile(Filename, Scripting.IOMode.ForAppending) 'oStream.WriteLine("Die Datei mit dem Namen" + ffile.Name + "wurde gelöscht") 'oStream.Close() Console.WriteLine("Datei gefunden und gelöscht!") End If Next File End Sub End Class

Mein Dateiüberwacher funktioniert nicht	1.160	wrathchild	16.02.06 11:05
Re: Mein Dateiüberwacher funktioniert nicht	877	wrathchild	16.02.06 12:56
Re: Mein Dateiüberwacher funktioniert nicht	817	Melkor	16.02.06 13:28
Re: Mein Dateiüberwacher funktioniert nicht	780	wrathchild	16.02.06 13:47

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen