Dudas con Tranferencia de Archivos

Iniciado por kakinets, 9 Septiembre 2005, 03:23 AM

0 Miembros y 1 Visitante están viendo este tema.

kakinets

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

NYlOn

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