"Datenträger nicht bereit" abfangen

[Martin Speiser]

Hi du!

und falls die Diskette nicht drin ist oder schreibgeschützt möchte ich eine Meldung ausgeben, bin leider aber überhaupt nicht der VB-Crack. Wäre dankbar für jede Hilfe.

bevor du auf die Diskette schreibst, gibst du das Statement on error resume next an. Dann kannst du nach dem Schreibversuch die Fehler abprüfen. Das "normale" Errorhandling wird mit on error goto 0 wieder aktiviert.

Kleines Beispiel (aus der MSDN):

On Error Resume Next
Err.Raise 6   ' Raise an overflow error.
MsgBox "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear   ' Clear the error.

Gruß,
Martin