Enviar archivos con winsock

blinski
05 de Febrero del 2004
Estoy intentando enviar archivos con winsock, tengo un codigo pero no funciona, aqui va el trozo de codigo que tiene problemas:
(Esto es del lado del servidor)
Private Sub wsTCP_DataArrival(Index As Integer, ByVal bytesTotal As Long)
If Not bOK Then
wsTCP(1).GetData FNombre
If InStr(FNombre, vbCrLf) <> 0 Then FNombre = Left(FNombre, InStr(FNombre, vbCrLf) - 1)
bOK = True
If Dir(Dir1.Path + "" + FNombre) <> "" Then Kill (Dir1.Path & "" & FNombre)
Open Dir1.Path & "" & FNombre For Binary As 1
lPos = 1
wsTCP(1).SendData "OK" & vbCrLf
Else
lPos = 1
Dim buffer() As Byte
wsTCP(1).GetData buffer
Put #1, lPos, buffer
lPos = lPos + UBound(buffer) + 1
End If
End Sub

el problema esta esta en el dir() la variable bOK entra con valor false y se hace una limpieza del nombre de archivo Fnombre, eso va bien, pero al pasar como argumento el path con el nombre de archivo me dice que no se encuentra el nombre de archivo, cosa que es logico porque el archivo todavia no se guardo en ese directorio...
Ahora les paso el codigo del lado del cliente, ahi es donde abre y copia el archivo en el buffer y veamos:

Private Sub cmdEnvia_Click()
CmdEnvia.Enabled = False
lBytes = 0
ReDim buffer(FileLen(dlg.FileName) - 1)
Open dlg.FileName For Binary As 1
Get #1, 1, buffer
Close #1
wsTCP(1).RemoteHost = "192.168.0.2"
wsTCP(1).RemotePort = 2000
wsTCP(1).Connect
Lblstatus.Caption = "Conectando..."
End Sub

Este codigo lo consegui en una pagina en portugues, le echo coco pero no me sale la solucion, si alguien con la mente mas fresca me ayuda se lo voy a agradecer
Salu2!!!!