Lexua
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
BOObastis
Я согласен, что возможности таблиц тут очень бедно релизованы. Я сделал таблицу дисков системы, может как-то тебе поможет
Цитата: drives = Drive.Enumerate();
all_drives = Table.Concat(drives, "\r\n");
count = Table.Count(drives);
for x = 1, count do
drv_type = Drive.GetType(drives[x]);
drv_size = Drive.GetSize(drives[x]);
drv_freesp = Drive.GetFreeSpace(drives[x]);
if drv_type == 0 then
type_drv = "Unknown";
elseif drv_type == 2 then
type_drv = "Remove";
elseif drv_type == 3 then
type_drv = "Fixed";
elseif drv_type == 4 then
type_drv = "Remote";
elseif drv_type == 5 then
type_drv = "CDROM";
elseif drv_type == 6 then
type_drv = "RAMDisk";
end
if drv_type == 2 and drv_size == -1 then
drv_info = drives[x].." "..type_drv.."\tTotal: Unknown\tFree: Unknown\r\n";
elseif drv_type == 5 and drv_size == -1 then
drv_info = drives[x].." "..type_drv.."\tNo Disk or Disk Error\r\n";
else
drv_info = drives[x].." "..type_drv.."\tTotal: "..drv_size.." Mb \tFree: "..drv_freesp.."Mb\r\n";
end
TextFile.WriteFromString(_TempFolder .. "\\$mcs$.txt", drv_info, true);
drive_table = TextFile.ReadToTable(_TempFolder .. "\\$mcs$.txt");
end
drv_table = Table.Concat(drive_table, "\r\n");
Paragraph.SetText("Drives", "Available Drives:\r\n"..drv_table); |
|
