| Forum: VB.NET |
Thema:
Re: Windows Dienste |
Von:
G. Guest (
13.12.2005 12:46) |
Hallo Jens,
Danke erst mal dafür. Immerhin krieg ich den Dienst jetzt gestartet (Es fehlte ...EnableRaisingEvents = True in OnStart). Aber leider muss ich noch ein paar weitere Fehler gemacht haben, denn wenn ich meine Testdatei in das Verzeichnis schreibe passiert immer noch nichts.
Der Verzeichnisname ist o.k., und der neue Dateiname auch.
<add key="readtxt" value="D:\Test\txt_Umstellen" />
<add key="writetxt" value="D:\Test\UmgDat\Test.TXT" />
Das lesen und schreiben der Datei hat in einer anderen Anwendung (Konsole) schon funktioniert. Also kann der Fehler doch nur bei dem zu überwachenden Verzeichnis, oder dem einlesen der Datei (value = e.Name),(directory = directory & "." & value) liegen.
Fällt einem da vielleicht ein Fehler auf???
Thx & kind regards
| Betreff |
Von |
Datum |
|
|
  |
Re: Windows Dienste
| hm,<br>Guck mal in den TaskManager, ob dein Dienst auch läuft. Eventuell musst du ihn das erste Mal selbst starten, weil erst beim Neustart überprüft wird, ob er zu starten ist.<br><br>jens |
|
|
|
|
|
Jens
Buthe
|
13.12.2005 13:39 |
|
|
|
Re: Windows Dienste
| Leider nicht, er ist gestartet. Sowhl unter Dienste als auch im Taskmanager. Sonst noch eine Ideen? Bin für jede Hilfe dankbar...<br><br>kind regards |
|
|
|
|
|
G.
Guest
|
13.12.2005 13:52 |
|
|
|
Re: Windows Dienste
| Hallo zusammen,<br><br>also, inzwischen habe ich zumindest schon mal herausgefunden, warum es nicht läuft...Hier noch mal der betreffende Code:<br><br>Private Sub OnDeleted(ByVal source As Object, ByVal e As... |
|
|
|
|
|
G.
Guest
|
14.12.2005 11:34 |
|
|
|
Re: Windows Dienste
| Also, jetzt ist auch das Problem gelöst, und das nächste wartet schon. Bin mir sicher, dabei könnt ihr mir helfen!<br><br>Ich schreibe die Datei in das zu überwachende Verzeichnis, und dadurch wird die... |
|
|
|
|
|
G.
Guest
|
14.12.2005 16:19 |
|
|
|
Re: Windows Dienste
| Hallo Maik,<br>ich kenne sowas nur aus VB. Hab ich aus einem Forum mal bekommen. <br>' Prüfen, ob Datei in Benutzung<br>Private Function FileInUse(ByVal sFile As String) As Boolean<br> Dim F As Integer<br><br> ... |
|
|
|
|
|
Thomas
Scherner
|
15.12.2005 01:26 |
|
|
|
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
