Crie uma procedure que retorne os dados de um USB em um array


ChatGPT
Para retornar as informações de um dispositivo USB em um array em vez de uma tabela, podemos criar uma procedure que recebe o caminho da unidade USB como parâmetro e retorna um array com as informações solicitadas.

Segue abaixo um exemplo de como implementar isso em WLanguage:

scss
Copy code
//##############################
// Obtendo informações de um dispositivo USB em um array
//##############################

PROCEDURE ObterInformacoesUSB(usbPath is string, info is string[])
// Obtém as informações sobre o dispositivo USB
info[1] = DriveType(usbPath)
info[2] = DriveCapacity(usbPath)
info[3] = DriveFreeSpace(usbPath)
info[4] = DriveSerial(usbPath)
info[5] = DriveManufacturer(usbPath)
info[6] = DriveModel(usbPath)

// Retorna as informações no array
RETURN info
END PROCEDURE
Nessa procedure, recebemos o caminho do dispositivo USB como um parâmetro (usbPath) e retornamos um array de strings (info) contendo as informações solicitadas. Cada elemento do array contém uma informação diferente, seguindo a ordem da tabela do exemplo anterior.

Para utilizar essa procedure, basta chamá-la com o caminho da unidade USB desejada e armazenar o resultado em uma variável.

scss
Copy code
//##############################
// Exemplo de uso da procedure ObterInformacoesUSB
//##############################

// Chama a procedure para obter as informações sobre a unidade USB "F:"
infos is string[] = ObterInformacoesUSB("F:", New string[6])

// Exibe as informações na saída Trace
Trace("Tipo: " + infos[1])
Trace("Capacidade: " + infos[2])
Trace("Espaço livre: " + infos[3])
Trace("Número de série: " + infos[4])
Trace("Fabricante: " + infos[5])
Trace("Modelo: " + infos[6])
No exemplo acima, chamamos a procedure ObterInformacoesUSB com o caminho da unidade USB "F:" e armazenamos as informações retornadas em uma variável chamada infos. Em seguida, exibimos essas informações na saída Trace.

Caso tenha alguma dúvida, por favor, pergunte.