ayuda multidescargas

20/07/2007 - 21:36 por daniel | Informe spam

Hola a todos
haber si me podeis ayudar con lo siguiente:
tengo una hoja excel en la columna A tengo la lista con las direcciones de
la descarga de los archivos
y en la columna B la ruta donde se deben guardar el archivo descargado.
y necesito que en un listbox1 me muestre la lista de archivos y en el
listbox con la opcion multiselect poder descargar los archivos seleccionados
y en el label1 me muestre los archivos que van descargados ejemplo 1/10.
uso la siguiente macro para descargar uno:
'-

Option Explicit

Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _
szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As _
Long

Public Function DownloadFromUrl(strFullUrl As String, _
strSaveFile As String) As Boolean

Dim RetVal As Long

RetVal = URLDownloadToFile(0, "ruta del archivo", _
"c:\Documents and Settings\DANIEL\Escritorio\Yahoo.htm", 0, 0)

If RetVal = 0 Then
DownloadFromUrl = True
End If

End Function

Sub Prueba()

Dim x As String

If DownloadFromUrl("ruta del archivo", x) Then
MsgBox "Ok ...Descarga exitosa"
Else
MsgBox "Imposible :-( ..., intentolo en otro momento :-P "
End If
End Sub

un saludo y muchas gracias
Daniel

Siga el debate

6 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#6 daniel

24/07/2007 - 19:08 | Informe spam

Hola Hector Miguel
Muchisimas gracias era justo lo que necesitaba

mil gracias
un saludo
Daniel
"Héctor Miguel" escribió en el mensaje
news:

hola, daniel !

donde habria que cambiar el codigo para que hiciese lo siguiente
1 que aparezca un mensaje al terminar de descargar todos los archivos
seleccionados
2 que muestre un mensaje si a habido algun fallo en la descarga
3 que en el label3 muestre el archivo que se esta descargando en ese
momento.
4 en un checkbox poner si esta marcado que internet se desconecte al
terminar las descargas
5 si al abrir el userform internet no esta conectado que muestre la
ventana de conectar

1, 2 y 3) [una alternativa]:
-> una vez terminado el proceso de las descargas, comprobar por un nuevo
bucle si todos los archivos *existen*
modifica el codigo en el commandbutton +/- a lo siguiente:

Private Sub CommandButton1_Click()
Dim Msj As String
With ListBox1
For Sig = LBound(Procesar) To UBound(Procesar)
If Procesar(Sig) Then
Procesando = Procesando + 1
Label1.Caption = Procesando & " / " & Seleccionados
Label3.Caption = "Procesando: " & .List(Sig, 0)
Me.Repaint
URLDownloadToFile 0, .List(Sig, 0), .List(Sig, 1), 0, 0
End If:
Next
For Sig = LBound(Procesar) To UBound(Procesar)
If Procesar(Sig) Then If Dir(.List(Sig, 1)) = "" Then Msj = vbCr &
Msj & .List(Sig, 0)
Next
End With
If Msj <> "" Then Msj = vbCr & "Los siguientes archivos NO se
descargaron:" & Msj
MsgBox "Proceso terminado." & Msj
End Sub

4 y 5) considerando que existen varias alternativas de conexion a
internet -?-
-> revisa/adapta/comenta/... ejemplos desde la pagina de Randy Birch
Visual Basic Network Services
InternetGetConnectedState: Determine Network Connection Type
http://vbnet.mvps.org/code/network/...dstate.htm

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2

Busqueda sugerida