Veja se ajuda:
FUNCTION VERIFICA_HD()
LOCAL nSpaceDisk, lsucesso := .F.
nSpaceDisk := DISKSPACE()
// ? Tran( nSpaceDisk, "@E 999,999,999,999,999" )
// @ 2,2 Say Tran( nSpaceDisk, "@E 999,999,999,999,999" )
IF ( DISKSPACE() < 25000000.0 )
MsgStop( OemToAnsi("ATEN€ÇO USUµRIO: PERIGO EXTREMO - CUIDADO!!")+CRLF+;
OemToAnsi("O ESPA€O DISPONÖVEL NO HD DO SERVIDOR ONDE ")+CRLF+;
OemToAnsi("ESTµ INSTALADO O PROGRAMA DO PLENO, ESTµ MUITO ")+CRLF+;
OemToAnsi("PEQUENO(Cheio). POSSIVELMENTE PODERÇO OCORRER ")+CRLF+;
OemToAnsi("ERROS QUANDO TENTAR USAR O PLENO NO SERVIDOR. ")+CRLF+;
OemToAnsi("ACONSELHAMOS UMA SELEۂO DOS ARQUIVOS QUE ")+CRLF+;
OemToAnsi("SE ENCONTRAM ATUALMENTE NO SEU SERVIDOR. ")+CRLF+;
OemToAnsi("OU TROQUE O HD(Hard Disk) DO COMPUTADOR... ")+CRLF+;
OemToAnsi("RECOMENDAMOS UM HD DE NO MINIMO: 500 Gigas. ")+CRLF+;
OemToAnsi("PE€A AO PESSOAL PARA SAIR DA REDE E NÇO USAR ")+CRLF+;
OemToAnsi("MAIS O PLENO, AT QUE SE RESOLVA O PROBLEMA. ")+CRLF+;
OemToAnsi("VERIFICAR ESPA€O(HD) DO SERVIDOR DE ARQUIVOS. ")+CRLF+;
OemToAnsi("ESPA€O DISPONIVEL NO HD DO SERVIDOR: " +;
Tran( nSpaceDisk, "@E 999,999,999,999,999" + " Bytes Livres(Disponivel) POUCO!!" ) )+CRLF+;
OemToAnsi("COMUNIQUE ESTA MENSAGEM IMEDIANTAMENTE AO SEU ")+CRLF+;
OemToAnsi("TCNICO DE INFORMµTICA. CHAME UM TCNICO AGORA!!! ")+CRLF+;
OemToAnsi("URGENTE: CHAME O SEU TCNICO DE INFORMµTICA. ")+CRLF+;
OemToAnsi("NÇO TENTE GERAR NOTAS FISCAIS AT O SEU TCNICO ")+CRLF+;
OemToAnsi("LIBERAR ESPA€O NO HD DO SERVIDOR DE ARQUIVOS. ")+CRLF+;
OemToAnsi("FA€A UM <PRINT SCREEN> DESTA TELA E MOSTRE AO ")+CRLF+;
OemToAnsi("GERENTE, OU AO PROPRIETµRIO DA EMPRESA, URGENTE!!! ")+CRLF+;
OemToAnsi("Pressione <ENTER> Para Continuar... "), ;
OemToAnsi("Disco R¡gido(Servidor) Super Lotado(Cheio) Cuidado!") )
ENDIF
RETURN NIL