existe alguna funcion.....

existe alguna funcion.....

Postby Gerardo Farfan » Sat Jun 17, 2006 1:07 am

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

de antemano muchas gracias.
Gerardo Farfan
 
Posts: 52
Joined: Fri Oct 28, 2005 3:42 pm
Location: Mexico, D.F.

Postby YamilBracho » Sat Jun 17, 2006 3:10 am

Puedes tratar de hacer una llamada a Directory a la unidad A pero encerrandola en un Try Catch
YamilBracho
 
Posts: 33
Joined: Mon Oct 17, 2005 11:56 pm
Location: Caracas, Venezuela

Postby INFORMAIS » Tue Jun 20, 2006 10:58 am

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)
INFORMAIS
 
Posts: 33
Joined: Wed Apr 05, 2006 12:22 am


Return to FiveWin para CA-Clipper

Who is online

Users browsing this forum: No registered users and 6 guests