El código que tengo para la descarga es este:
PRIVATE SUB wget_file(file AS String, path AS String)
DIM proceso AS Process
DIM _pos AS Integer
DIM _wget AS String
DIM _aux AS String
_pos = RInStr(file, ":")
_wget = Right(file, - _pos)
_aux = Left(file, _pos - 1)
IF NOT _aux THEN
_aux = _wget & ".js"
ENDIF
SELECT CASE _wget
CASE "jquery"
proceso = EXEC ["wget", "http:/librerias_a_descargar.com", "-O", path & _aux]
END SELECT
END
DIM proceso AS Process
DIM _pos AS Integer
DIM _wget AS String
DIM _aux AS String
_pos = RInStr(file, ":")
_wget = Right(file, - _pos)
_aux = Left(file, _pos - 1)
IF NOT _aux THEN
_aux = _wget & ".js"
ENDIF
SELECT CASE _wget
CASE "jquery"
proceso = EXEC ["wget", "http:/librerias_a_descargar.com", "-O", path & _aux]
END SELECT
END
Como explique mas arriba me gustaría que en un label se mostrara un mensaje del porcentaje de descarga si es posible o un simple mensaje de "Descargando..." para cuando este terminado ese label se limpie o diga un mensaje de Descarga exitosa.
Mucha gracias por la ayuda ofrecida
dos hermanas, sevilla
Tenochtitlan
