TOTVSTEC

Árvore de páginas

Tempo aproximado para leitura: 2 minutos

Retorna as unidades (drives), e/ou seus respectivos tipos, da máquina que está executando o TOTVS | Application Server ou o TOTVS | SmartClient.

Sintaxe

ListDrives( [ @aUnits ], [ @aTypes ], < nWhere > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

aUnits

vetor

Retorna todas as unidades da máquina.

 

X

aTypes

vetor

Retorna o tipo das unidades listadas.

 

X

nWhere

numérico

Indica se será listado da máquina do TOTVS | Application Server ou do TOTVS | SmartClient.

X

 

Retorno

Nome

Tipo

Descrição

lRet

lógico

Retorna .T. se conseguiu listar o que foi solicitado; caso contrário, retorna .F..

Observações

  • Função apenas para ambiente Windows.
  • Não compatível com SmartClient HTML.

  • Cada índice de <aTypes> pode conter um dos seguintes valores:

    Número

    Descrição

    0

    Tipo de drive não conhecido

    1

    Unidade inválida

    2

    Mídia removível (pen drive, disquete)

    3

    Drive Fixo (Hard Disk local)

    4

    Drive remoto (Unidade mapeada)

    5

    CD-ROM/DVD-ROM

    6

    RAM Drive

  • <nWhere> pode conter os valores 0 (Application Server) ou 1 (SmartClient).
  • Caso <nWhere> tenha um valor inválido, a função retornará um erro AdvPL com a mensagem "Invalid nWhere parameter, should be 0 or 1".
  • Caso ocorra um erro, um warning aparecerá no console do TOTVS | Application Server com a mensagem "listDrives() failed - " seguido da mensagem de erro.
  • Caso haja mais de 1024 drives, a função retornará .F. e mostrará um warning no console do TOTVS | Application Server com a mensagem "listDrives() failed - Too many logical drives.".
  • Se <nWhere> for igual 0 e não for utilizado Application Server Windows, a função retornará .F. e mostrará no console do TOTVS | Application Server um warning com a mensagem "Warning - listDrives not available on APPServer Unix/Linux".
  • Se <nWhere> for igual 1 e não for utilizado SmartClient Windows (QT), a função retornará .F. e mostrará no console do TOTVS | Application Server um warning com a mensagem "Warning - listDrives not available on Smartclient (RemoteType=i)", onde i é o retorno de GetRemoteType.

Exemplos

Exemplo 1
User function ListarDrives()
  Local drives := {}
  Local tipos := {}
  Local n
  
  ListDrives( drives, tipos, 0 )
  for n := 1 to Len( drives )
    conout( drives[n] )
    conout( tipos[n] )
  next
Return

Abrangência

Disponível em builds superiores a 7.00.121227P.

  • Sem rótulos