XProfan

Français

si je cette Text courir lasse:
Kompilieren Marque Séparation

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

...bekomme je chez einem Diskettenlaufwerk (A: ou bien B: (vorausgesetzt, c'est aucun Diskette vorhanden)
qui beiliegende annonce. Pour Klick sur Weiter wird ensuite "Leer" angezeigt.
cela passiert seulement chez den Diskettenlaufwerken. -
Alle anderen LW montrer juste "Leer" à.
comment peux je cet annonce unterdrücken ou bien tourner autour de ?

message_01.jpg	36 kB

Hochgeladen:	05.09.2008

Downloadcounter:
		Download

05.09.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

tu peux erstmal testen, si überhaupt quoi im Laufwerk ist. quoi gibt car ChDir "A:\" pour une %ioresult-Wert zurück?

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

05.09.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Dieter
Zornow

@Horst
Versuchs la fois so
Kompilieren Marque Séparation

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