PUBLIC SUB Button1_Click()
DIM direccion AS String[]
DIM Contadordev AS Integer
DIM Contadorrem AS Integer
DIM path AS String[]
DIM removable AS String
DIM removableleer AS String[]
DIM unidades AS String
DIM Vendedor AS String
DIM Modelo AS String
DIM Reno AS String
DIM Tamano AS String
DIM f AS File
unidades = Temp
SHELL "ls /sys/block | grep sd >> " & unidades WAIT ' ############ SACO EL CONTENIDO DE UNIDADES SD ##############
SHELL "ls /sys/block | grep hd >> " & unidades WAIT ' ############ SACO EL CONTENIDO DE UNIDADES HD ##############
direccion = Split(File.Load(unidades), gb.NewLine) ' ############ LISTO LAS UNIDADES SOLAS SIN DEV ##############
path = Split(File.Load(unidades), gb.NewLine) ' ############ LISTO LAS UNIDADES PARA AÑADIR DEV ############
direccion.Resize(direccion.Length - 1)
path.Resize(path.Length - 1)
KILL unidades
FOR Contadordev = 0 TO path.Max ' ##############################################################################
path[Contadordev] = "/dev" &/ path[Contadordev] ' ############## AÑADO EL /DEV/ A PATH PARA USARLO DE REFERENCIA ###############
NEXT ' ##############################################################################
removable = Temp
f = OPEN removable FOR CREATE
FOR Contadorrem = 0 TO direccion.Max
SHELL "cat /sys/block/" & direccion[Contadorrem] & "/device/vendor" TO Vendedor ' ######## METO EL FABRICANTE EN UNA VARIABLE Vendedor ########
SHELL "cat /sys/block/" & direccion[Contadorrem] & "/device/model" TO Modelo ' ######## AÑADO MODELO A una variable Modelo #################
SHELL "cat /sys/block/" & direccion[Contadorrem] & "/removable" TO Reno ' ######## AÑADO REMOVABLE A UNA VARIABLE Reno ################
SHELL "cat /sys/block/" & direccion[Contadorrem] & "/size" TO Tamano ' ######## AÑADO TAMAÑO A VARIABLE TAMANO #####################
PRINT #f, direccion[Contadorrem] & "\n" & Vendedor; Modelo; Tamano; Reno ' ######## AÑADIR TODO A ARCHIVO ##############################
NEXT
CLOSE #f
f = OPEN removable FOR INPUT
DO WHILE NOT Eof(f)
INPUT #f, direccion; Vendedor; Modelo; Tamano; Reno
list1.add(direccion & Vendedor & Modelo & (Tamano / 2 / 1024) & "K" & IIf(Reno = "1", "Si", "No"))
LOOP
CLOSE #f
KILL removable
END
DIM direccion AS String[]
DIM Contadordev AS Integer
DIM Contadorrem AS Integer
DIM path AS String[]
DIM removable AS String
DIM removableleer AS String[]
DIM unidades AS String
DIM Vendedor AS String
DIM Modelo AS String
DIM Reno AS String
DIM Tamano AS String
DIM f AS File
unidades = Temp
SHELL "ls /sys/block | grep sd >> " & unidades WAIT ' ############ SACO EL CONTENIDO DE UNIDADES SD ##############
SHELL "ls /sys/block | grep hd >> " & unidades WAIT ' ############ SACO EL CONTENIDO DE UNIDADES HD ##############
direccion = Split(File.Load(unidades), gb.NewLine) ' ############ LISTO LAS UNIDADES SOLAS SIN DEV ##############
path = Split(File.Load(unidades), gb.NewLine) ' ############ LISTO LAS UNIDADES PARA AÑADIR DEV ############
direccion.Resize(direccion.Length - 1)
path.Resize(path.Length - 1)
KILL unidades
FOR Contadordev = 0 TO path.Max ' ##############################################################################
path[Contadordev] = "/dev" &/ path[Contadordev] ' ############## AÑADO EL /DEV/ A PATH PARA USARLO DE REFERENCIA ###############
NEXT ' ##############################################################################
removable = Temp
f = OPEN removable FOR CREATE
FOR Contadorrem = 0 TO direccion.Max
SHELL "cat /sys/block/" & direccion[Contadorrem] & "/device/vendor" TO Vendedor ' ######## METO EL FABRICANTE EN UNA VARIABLE Vendedor ########
SHELL "cat /sys/block/" & direccion[Contadorrem] & "/device/model" TO Modelo ' ######## AÑADO MODELO A una variable Modelo #################
SHELL "cat /sys/block/" & direccion[Contadorrem] & "/removable" TO Reno ' ######## AÑADO REMOVABLE A UNA VARIABLE Reno ################
SHELL "cat /sys/block/" & direccion[Contadorrem] & "/size" TO Tamano ' ######## AÑADO TAMAÑO A VARIABLE TAMANO #####################
PRINT #f, direccion[Contadorrem] & "\n" & Vendedor; Modelo; Tamano; Reno ' ######## AÑADIR TODO A ARCHIVO ##############################
NEXT
CLOSE #f
f = OPEN removable FOR INPUT
DO WHILE NOT Eof(f)
INPUT #f, direccion; Vendedor; Modelo; Tamano; Reno
list1.add(direccion & Vendedor & Modelo & (Tamano / 2 / 1024) & "K" & IIf(Reno = "1", "Si", "No"))
LOOP
CLOSE #f
KILL removable
END