XProfan

Italia

Wenn ich diesen Text laufen lasse:
Kompilieren Markieren Separieren

declare disk$
Decimals 0
disk$=STR$(DiskSize("A:\"))
print disk$
case VAL(disk$) = -1:Print "LEER"
waitinpu

...bekomme ich bei einem Diskettenlaufwerk (A: oder B: (vorausgesetzt, es ist keine Diskette vorhanden)
die beiliegende Meldung. Nach Klick auf Weiter wird dann "Leer" angezeigt.
Das passiert nur bei den Diskettenlaufwerken. -
Alle anderen LW zeigen gleich "Leer" an.
Wie kann ich diese Meldung unterdrücken oder umgehen ?

message_01.jpg	36 kB

Hochgeladen:	05.09.2008

Downloadcounter:
		Download

05.09.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jörg
Sellmeyer

Du kannst erstmal testen, ob überhaupt was im Laufwerk ist. Was gibt denn ChDir "A:\" per einen %ioresult-Wert zurück?

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

05.09.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Dieter
Zornow

@Horst
Versuchs mal so
Kompilieren Markieren Separieren

testet ob des Laufwerk ansprechbar ist
Def GetVolumeInformation(8) !"KERNEL32","GetVolumeInformationA"

Proc CheckDrive

    Parameters lw$
    Declare result&,lw#

    If len(lw$) = 1

        lw$=lw$ + ":"

    ELSEIF len(lw$) = 2

        lw$=lw$ + ""

    ELSEIF len(lw$) > 3

        lw$ = left$(lw$,3)

    ENDIF

    Return GetVolumeInformation(addr(lw$),0,0,0,0,0,0,0)

EndProc

if checkdrive("A:") = 1

    Print STR$(DiskSize("A:\"))

else

    Print "Leer"

endif