-> Hier kostenlos registrieren
Servus zusammen,
momentan bin ich dabei ein Skript zum laufen zu kriegen, um Daten aus einer CSV-Datei auf einen Server zu kopieren und dann die CSV auf einen zweiten Ordner auf der SD-Karte auszuschneiden und einzufügen
Ich nutze ein Tp1200 und meinen Rechner als "Server".
Die Verbindung ist hergestellt und die Daten werden auch übertragen, bzw ausgeschnitten, auch zum Server (Laptop).
Nun möchte ich jedoch, sollte die Verbindung zum Server im laufenden Betrieb abbrechen, die Daten nur von einem Speicherort zum anderen auf der SD-Karte ausschneiden. Wenn ich die Verbindung zum Laptop trenne, hängt sich meine Runtime am Panel auf und ich kann nichts mehr schreiben.
Nach dem Neustart wird alles wie gewünscht ausgeführt.
Meine Frage:
-Kann ich die Unterbrechung zum Server auswerten, wenn ja wie?
-Gibt es eine Lösung für ein solches Problem?
-Ist meine On Error Resume next Anwendung falsch?
-Funktionieren tut alles, bis ich die Serververbindung trenne..
!Meiner Meinung nach sucht das Panel nach der verloren gegangenen Serververbindung. Dies dauert zu lange und es hängt sich irgendwo auf.
Ich möchte kurz prüfen ob der Server erreichbar ist, wenn nicht soll er mit der weiteren Anwendung weiter machen.!
Codeschnippsel:
Set fso = CreateObject("FileCtl.FileSystem")
ShowSystemAlarm "Filesystem-ActiveX-Objekt wurde erstellt"
'Kopiervorgang auf Server
On Error Resume Next
fso.FileCopy "\von\".csv", "\\XXYY\zu\" & ".csv"
On Error Resume Next
ShowSystemAlarm "meinedatei.csv wurde auf den Server kopiert"
'Datei wird auf der SD-Karte ausgeschnitten und verschoben
Set fso = CreateObject("FileCtl.FileSystem")
ShowSystemAlarm "Filesystem-ActiveX-Objekt wurde erstellt"
fso.MoveFile "\von\" & ".csv" , "\zu\" & ".csv"
ShowSystemAlarm "meinedatei.csv wurde ausgeschnitten"
Codeschnippsel ende
momentan bin ich dabei ein Skript zum laufen zu kriegen, um Daten aus einer CSV-Datei auf einen Server zu kopieren und dann die CSV auf einen zweiten Ordner auf der SD-Karte auszuschneiden und einzufügen
Ich nutze ein Tp1200 und meinen Rechner als "Server".
Die Verbindung ist hergestellt und die Daten werden auch übertragen, bzw ausgeschnitten, auch zum Server (Laptop).
Nun möchte ich jedoch, sollte die Verbindung zum Server im laufenden Betrieb abbrechen, die Daten nur von einem Speicherort zum anderen auf der SD-Karte ausschneiden. Wenn ich die Verbindung zum Laptop trenne, hängt sich meine Runtime am Panel auf und ich kann nichts mehr schreiben.
Nach dem Neustart wird alles wie gewünscht ausgeführt.
Meine Frage:
-Kann ich die Unterbrechung zum Server auswerten, wenn ja wie?
-Gibt es eine Lösung für ein solches Problem?
-Ist meine On Error Resume next Anwendung falsch?
-Funktionieren tut alles, bis ich die Serververbindung trenne..
!Meiner Meinung nach sucht das Panel nach der verloren gegangenen Serververbindung. Dies dauert zu lange und es hängt sich irgendwo auf.
Ich möchte kurz prüfen ob der Server erreichbar ist, wenn nicht soll er mit der weiteren Anwendung weiter machen.!
Codeschnippsel:
Set fso = CreateObject("FileCtl.FileSystem")
ShowSystemAlarm "Filesystem-ActiveX-Objekt wurde erstellt"
'Kopiervorgang auf Server
On Error Resume Next
fso.FileCopy "\von\".csv", "\\XXYY\zu\" & ".csv"
On Error Resume Next
ShowSystemAlarm "meinedatei.csv wurde auf den Server kopiert"
'Datei wird auf der SD-Karte ausgeschnitten und verschoben
Set fso = CreateObject("FileCtl.FileSystem")
ShowSystemAlarm "Filesystem-ActiveX-Objekt wurde erstellt"
fso.MoveFile "\von\" & ".csv" , "\zu\" & ".csv"
ShowSystemAlarm "meinedatei.csv wurde ausgeschnitten"
Codeschnippsel ende
Zuletzt bearbeitet: