Advertisement
jsbsan

ExtraerConWget

Jan 1st, 2014
794
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
GAMBAS 0.50 KB | None | 0 0
  1. Public Function usandoComandoWget(DireccionUrl As String) As String
  2.  
  3.   Dim contenido As String
  4.  
  5.   'Extraigo eel contenido de la direccion DireccionUrl y lo mando al archivo datos.txt en la carpeta temporal donde se borrara cuando se apaque el equipo.
  6.   Shell "wget \"" & DireccionUrl & "\" -O /tmp/datos.txt" Wait 'con Wait espero a que se descargue...
  7.  
  8.   contenido = File.Load("/tmp/datos.txt") 'cargo el contenido del fichero de datos en la variable contenido
  9.  
  10.   Return contenido
  11.  
  12. End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement