[VB6] Winsock - FTPupload problem

[Bl4dE]

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)



Private Sub Command1_Click()
    Randomize
    CmdSock.Close
    DownSock.Close
    CmdSock.Connect
    DownSock.LocalPort = Round(Rnd * 10000 + 1, 0)
    DownSock.Listen
End Sub

Private Sub Command3_Click()
    CmdSock.Close
    End
End Sub

Private Sub CmdSock_DataArrival(ByVal bytesTotal As Long)
    Dim data As String
    CmdSock.GetData data
        If InStr(data, "220") Then
            CmdSock.SendData "USER <user> & vbCrLf
            Sleep 1000
            CmdSock.SendData "PASS <pass>" & vbCrLf
        End If
        If InStr(data, "230") Then
            Dim Buffer As Variant
            CmdSock.SendData "PORT " & DownSock.LocalPort & vbCrLf
            CmdSock.SendData "STOR log" & Round((Rnd * 5000), 0) & ".log" & vbCrLf
                   Open "file"  For Binary Access Read Lock Read Write As #1
                   Buffer = Input(LOF(1), #1)
                   Close #1 
            CmdSock.SendData Buffer & vbCrLf
        End If
    
End Sub

Ich wollte immer meine log's hochladen ... und ich kann auch auf den ftp wunderbar connecten etc.
und bis zum datei'n erstellen komm ich auch wunderbar.
mein problem liegt dann nur bei der datenübertragung, die datein bleiben immer 0kb groß ich hab einfach keine ahnung warum.
wenn jmd. ne ahnung hat kann er sich ja melden
thx im voraus