Histórico da Página
| Inclusão de trecho | ||||||
|---|---|---|---|---|---|---|
|
| Composition Setup |
|---|
import.css=/download/attachments/ |
...
6062824/ |
...
tecnologia.css |
...
|
| Pagetitle |
|---|
...
|
...
...
...
|
Retorna
...
o
...
número
...
de
...
bytes
...
que
...
estão
...
disponíveis
...
em
...
uma
...
determinada
...
unidade
...
de
...
disco
...
da
...
estação
...
remota.
Sintaxe
| Bloco de código | ||
|---|---|---|
| ||
DiskSpace( [ nDrive ] ) |
...
|
Parâmetros
...
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. |
|
|
Retorno
Nome | Tipo | Descrição |
|---|
...
nBytesFree |
...
numérico |
...
Retorna o número de bytes que estão disponíveis na unidade de disco. |
...
<br>Em caso de erro, retorna -1. |
Observações
- 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.
Exemplos
| Bloco de código | ||||||||||
|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
User Function Exemplo() // Retorna o tamanho em bytes do HD |
...
nRet := DISKSPACE( 3 ) // Resultado: 1356947456 |
...
Return User Function Exemplo2() // 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
Return
|
Abrangência
Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server
...