ListDrives

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

Retorno

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

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.