FiveTech Software tech support forums

que permita checar si hay o no un disquette colocado en el drive A???

de antemano muchas gracias.

Puedes tratar de hacer una llamada a Directory a la unidad A pero encerrandola en un Try Catch

Amigo Funciona assim
Dentro do Seu PRG, Voce chama a Funcao
Exemplo :

drive_ok("A:")






function drive_ok(adrive)
LOCAL nFreeBytes := 0, nTotalSize := 0, nTotalFree := 0
DRV = 0
IF T_FLOPY__ = 1
SetCurDrive( "A:" ) // Liga o Drive A:\
// Se Tiver Disquete no Drive A:\
If GetDiskFreeSpaceEx( "A:\", @nFreeBytes, @nTotalSize, @nTotalFree )
* MsgInfo( nFreeBytes )
* MsgInfo( nTotalSize )
* MsgInfo( nTotalFree )
Endif
// Se Nao Tiver Disquete no Drive A:\
DO WHILE .T.
If !GetDiskFreeSpaceEx( "A:\" )
If MsgYesNo("Não ha Disquete No Driver !" + chr(13) +;
" " + chr(13) +;
"Deseja Retentar ? " + chr(13) +;
" ",SISTEMA)
LOOP
DRV = 0
else
DRV = 0
EXIT
EndIf
ELSE
DRV = 1
EXIT
Endif
ENDDO
ELSE
DRV = 1
ENDIF
SetCurDrive( DRIVE_TR )
Return DRV


Espero Ter Ajudado !
Brasil Rumo ao HEXA (copa)