lo estoy tratando de la siguiente forema este code esta en el cliente:
Public Sub enviodefichero()
Dim BuFfile As String
Dim LnFile As Long
Dim fch As String
On Error GoTo error
LnFile = FileLen(Form1.Text1.Text)
Open Form1.Text1.Text For Binary As #2
BuFfile = String(LnFile, " ")
Get #2, , BuFfile
Form1.Winsock1.SendData BuFfile
Close #2
Form1.Text1.Text = ""
Exit Sub
error:
rr = "El fichero que quiere extraer no existe."
MsgBox rr
On Error Resume Next
End Sub
lo que no se es como guardar el fichero en el server..
salu2
