XProfan

English

If I this Text walk let:
Compile Mark Separation

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

...I get with one Diskettenlaufwerk (A: or B: (presupposed, its no floppy disk present)
The beiliegende Message. After Click on moreover becomes then "Leer" displayed.
the happens only whom Diskettenlaufwerken. -
All other LW show same "Leer" on.
How can I these Message suppress or bypass ?

message_01.jpg	36 kB

Hochgeladen:	09/05/08

Downloadcounter:
		Download

09/05/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

You can first testing, whether at all what in the drive is. what gives because ChDir "A:\" for a %ioresult-worth back?

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

09/05/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Dieter
Zornow

@Horst
Versuchs time so
Compile Mark Separation

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