"Datenträger nicht bereit" abfangen

[flasher008]

Hi Ihrs !

ich möchte gerne mit VBScript auf eine Diskette schreiben,
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.

[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

[Odium]

Hallo,

erstmal ein link:
http://www.gruenthal.de/tutorial/vbscript/vbstoc.htm

dann mein text:

set fs = CreateObject("Scripting.FileSystemObject")
set drive = fs.Getdrive("A:")

if drive.isready then
msgbox "bereit"
else
msgbox "nicht bereit"
end if

Odium