Função: DiskSpace
Retorna o número de bytes que estão disponíveis em uma determinada unidade de disco da estação remota.
DiskSpace ( [ nDrive] ) --> nBytesFree
| Nome | Tipo | Descrição | Obrigatório | Referência |
| nDrive | Numérico | Indica o número da unidade de disco (drive). Sendo: 0=Unidade de disco atual da estação (Padrão), 1=Drive A: da estação remota, 2=Drive B da estação remota, 3=Drive C: da estação remota, 4=Drive D: da estação remota e etc. | | |
nBytesFree(numérico)- Retorna o número de bytes que estão disponíveis na unidade de disco.
- Em caso de erro, retorna -1.
- Esta função obtém a informação sempre relativa à estação em que o Smart Client está sendo executado.
- A função funciona somente na versão Windows do SmartClient.
- Caso essa função seja executada através de JOB (Processo isolado no servidor, sem interface remota), ou seja, passado um parâmetro de unidade de disco inexistente ou indisponível, o retorno será -1.
- O parâmetro <nDrive> passado com 0 (opção padrão) nunca foi considerado, logo, retorna -1.
// Retorna o tamanho em bytes do HD
nRet := DISKSPACE( 3 ) // Resultado: 1356947456
Exemplo 2
// No exemplo abaixo, obtemos os espaços em disco do drive A:
// da estação local, verificando se houve sucesso na operação.
nBytes_A := DISKSPACE( 1 ) // Retorna o espaço disponivel no drive A: local ( remote ).
If nBytes_A == -1
MsgStop('Unidade A: não está disponível ou não há disco no Drive')
ElseIf nBytes_A < 8192
MsgStop('Não há espaço disponível no disco. Substitua o disco na Unidade A:')
Else
MsgStop('Unidade A: Verificada . '+str(nBytes_A,12)+' bytes livres.')
Endif
Abrangência
Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server