Título: Dudas con Tranferencia de Archivos
Publicado por: kakinets en 9 Septiembre 2005, 03:23 am
hola a todos tengo un robrema... va mas q un problema es un duda le queria pedir un favor a ver quien me explica estos codigos q no llego a entenderlo On Error Resume Next
Dim datos As String
ws.GetData datos
If datos = "enviar" Then
progreso = True
ws.SendData filedata
End If
If datos = "recibido" Then
'ws.SendData "cierra"
End If
If Left(datos, 7) = "archivo" Then
send = True
filesize = Mid(datos, 8)
ws.SendData "enviar"
datos2 = ""
Else
If Len(datos2) <> filesize And send = True Then
datos2 = datos2 + datos
pb.Min = 0
pb.Max = filesize
pb.Value = Len(datos2)
pb.Refresh
End If
If Len(datos2) = filesize And send = True Then
ws.SendData "recibido"
pb.Value = 0
cd.Filter = "Archivos " & ext & "| *" & ext
cd.FileName = ""
cd.ShowSave
Open cd.FileName For Binary As #1
Put #1, 1, datos2
Close #1
End If
End If
Título: Re: Dudas con Tranferencia de Archivos
Publicado por: NYlOn en 9 Septiembre 2005, 03:43 am
Che pero estas seguro que eso funciona ?? tengo mis dudas... y no hay ganas de probarlo xDDD Aca te los comento ;) '¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬
On Error Resume Next
Dim datos As String
ws.GetData datos 'obtiene los datos que llegan del WS
If datos = "enviar" Then 'si los datos que llegaron dicen "Enviar" entonces
progreso = True 'iniciamos el "Progreso" ??
ws.SendData filedata 'mandamos el archivo
End If
If datos = "recibido" Then 'si los datos que llegaron dicen "Recibido" entonces
ws.SendData "cierra" 'manda la orden para que se cierre el archivo
End If
If Left(datos, 7) = "archivo" Then 'si las primeras 7 leras de los datos dicen "Archivo" entonce
send = True 'manda
filesize = Mid(datos, 8) 'el tamaño del archivo
ws.SendData "enviar" 'envia la orden
datos2 = ""
Else
If Len(datos2) <> filesize And send = True Then 'si los datos que llegaron NO son el tamaño del archivo entonces
datos2 = datos2 + datos
pb.Min = 0 'pone la progressbar ? en 0
pb.Max = filesize 'y el maximo es el tamaño del archivo
pb.Value = Len(datos2)
pb.Refresh
End If
If Len(datos2) = filesize And send = True Then 'si los datos que llegan SI es el tamaño del archivo entonces
ws.SendData "recibido" 'manda la señala de que lo recibio
pb.Value = 0
cd.Filter = "Archivos " & ext & "| *" & ext
cd.FileName = ""
cd.ShowSave 'Muestra la ventana para guardar el archivo
Open cd.FileName For Binary As #1 'abre el archivo para comenzar a guardarlo
Put #1, 1, datos2 'introduce los datos
Close #1 'se cierra
End If
End If
'¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬
un abraz0 G0nz4
|