XProfan

Español

Wenn Yo esta Texto laufen lasse:
Kompilieren Marca Separación

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

...bekomme Yo en una Diskettenlaufwerk (A: oder B: (vorausgesetzt, es no Diskette disponible)
el beiliegende Meldung. Nach Clic en Weiter se entonces "Leer" adecuado.
Das passiert sólo en el Diskettenlaufwerken. -
Todos los demás LW zeigen igual "Leer" a.
¿Cómo se puede Yo esta Meldung unterdrücken oder umgehen ?

message_01.jpg	36 kB

Hochgeladen:	05.09.2008

Ladeanzahl:
		Descargar

05.09.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Usted puede primero testen, si überhaupt qué en el Laufwerk es. Was son porque ChDir "A:\" para una %ioresult-Valor zurück?

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

05.09.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Dieter
Zornow

@Horst
Versuchs veces así
Kompilieren Marca Separación

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