TIA Kontrollieren ob Schreiben auf USB-Stick erfolgreich

[Ingmar64]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo zusammen,

ich möchte eine einfache Textdatei mittels Script auf USB-Stick schreiben. Das klappt auch soweit:

(dataValues enthält die zu schreibende Zeile)

Set fctl = CreateObject("FileCtl.File")
fctl.Open fileLocation, 8
fctl.Lineprint dataValues
....
fctl.Lineprint dataValues


fctl.Close
Set fso = Nothing

Nun könnte es aber passieren, daß der Schreibvorgang unterbrochen wird (Stick voll, abgezogen, ...).
Ich möchte gern diesen Fehler erfassen und anzeigen.

Also an den Anfang gesetzt:

On Error Resume next

und hinter jeden Lineprint Befehl ein

If Err.Number <> 0 Then
ShowSystemAlarm "Error # " & CStr(Err.Number)& " " & Err.Description
Err.Clear
End If


ergänzt.

Während Fehler beim Öffnen/Anlegen der Datei angezeigt werden, wird ein Abziehen des Sticks während der Schreibvorgänge nicht als Fehler gemeldet, der Script stoppt zwar für ein paar Sekunden (ich lasse einen Index anzeigen), läuft aber ohne Fehler weiter. Natürlich ist die geschriebene Datei leer.

Gibt es eine Möglichkeit, auch diesen Fehler zu erfassen?

Danke für alle Ideen
Ingmar64

 

[Larry Laffer]

Wenn die Datei dann jedes mal tatsächlich leer ist so könntest du ja einfach am Ende nochmal einen Read darauf machen und überprüfen ob sie Inhalt hat. Leider bietet das Script-System nicht so schrecklich viele Möglichkeiten Fehler zu erkennen und sinnvoll abzufangen ...

 

[JesperMP]

Zuviel Werbung?
-> Hier kostenlos registrieren

Keine Antwort auf die Frage, aber wäre es eine akseptable Massnahme beim Skripts-Start eine Systemmeldung zu zeigen:
"Es werden Daten auf den USB-Stick geschrieben. Ziehen Sie den USB-Stick nicht vom Port !"

Und beim Skript-Ende ohne Fehler, noch eine System-Meldung:
"Daten wurde auf den USB-Stick geschrieben. Die USB-Stick kann vom Port entfernt werden."