Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Mein Dateiüberwacher funktioniert nicht
Autor: wrathchild
Datum: 16.02.06 12:56
Mitlerweile hab ich die Stelle wo das Problem auftritt lokalisiert. Komischerweise läuft mein Programm auf dem Rechner eines Kollegen tadellos. Kann das an einer veralteten VB.Net oder .Net Framework Version liegen? 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() <-- Bis hierhin funktionnierts, dann gehts nihct weiter bzw es wartet bis der nächste Event ausglöst wird der dann wieder bis zu dieser Stelle springt... 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

Mein Dateiüberwacher funktioniert nicht	1.160	wrathchild	16.02.06 11:05
Re: Mein Dateiüberwacher funktioniert nicht	878	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