hola a todos nuevamente me dirijo a los que mas saben a pedir ayuda para un programa que me quiero crear
veran:
encontre en la web este codigo:
Private Sub Command1_Click()
'Propiedades para el control inet ( AccessType y URL )
With Inet1
.AccessType = icUseDefault
'Indicamos el url del archivo
.URL = Trim(Text1.Text)
'Indicamos que vamos a descargar o recuperar un archivo desde una url
.Execute , "GET"
End With
End Sub
Private Sub Form_Load()
Command1.Caption = " Descargar "
Me.Caption = " Ejemplo del control Inet para " & _
"descargar un fichero con progreso"
End Sub
Private Sub Inet1_StateChanged(ByVal State As Integer)
On Error GoTo Err_Sub
Dim tempArray() As Byte ' Un array para grabar los datos en un archivo
Dim bDone As Boolean
'Para el tamaño del archivo en bytes que se usa para el array
Dim filesize As Long
' Acá almacenamos los datos
Dim vtData As Variant
Select Case State
Case icResponseCompleted
bDone = False
'Para saber el tamaño del fichero en bytes
filesize = Inet1.GetHeader("Content-length")
'Creamos y abrimos un nuevo archivo en modo binario
Open Text2.Text For Binary As #1
' Leemos de a 1 Kbytes. El segundo parámetro indica _
el tipo de fichero. Tipo texto o tipo Binario, en este caso binario
vtData = Inet1.GetChunk(1024, icByteArray)
DoEvents
'Si el tamaño del fichero es 0 ponemos bDone en _
True para que no entre en el bucle
If Len(vtData) = 0 Then
bDone = True
End If
With ProgressBar1
.Value = 0
.Max = filesize
End With
Do While Not bDone
'Almacenamos en un array el contenido del archivo que se va leyendo
tempArray = vtData
'Escribimos los datos en el archivo
Put #1, , tempArray
'Leemos datos de a 1 kb (1024 bytes)
vtData = Inet1.GetChunk(1024, icByteArray)
DoEvents
'Aumentamos la barra de progreso
ProgressBar1.Value = ProgressBar1.Value + (Len(vtData) * 2)
If Len(vtData) = 0 Then
bDone = True
End If
Loop
Close #1
MsgBox "Archivo descargado correctamente", vbInformation
ProgressBar1.Value = 0
End Select
Exit Sub
Err_Sub:
MsgBox Err.Description, vbCritical
On Error Resume Next
Inet1.Cancel
ProgressBar1.Value = 0
End Sub
pues para probarlo le pongo en el text1 la url de descarga y en el text2 el destino por ejemplo c:\
y cuando lo ruedo me da el error no coinciden los tipos
probe poniendo en el text2 c:\fichero.text y el error es el mismo
alguien puede ayudarme
muchas gracias por anticipado
ya agregaste todos los controles???????????????????????????????
Si te refieres a si hice el form con un comand button, dos textbox,un control inet,y una progress bar. si si lo hice
gracias
ya solucione el problema
era culpa del link de descarga
muchas gracias
doy el tema por terminado