Winsock File Transfer Problem

[Servus123]

Hallo,
nachdem ich nun viele Stunden mit diesem Problem verbracht habe, wende ich mich nun an dieses Board.
Ich bin dabei ein File Transfer Programm zu schreiben, mit welchem ich mir von dem Server Dateien zuschicken lassen kann und dies ist mein bisheriger Code:

Der Client sendet einen String mit "Get|" + Pfad an den Server und dieser reagiert wie folgt:

If InStr(data, "Get|") Then
Dim Pfad As String
Pfad = Right$(data, Len(data) - 4)
Open Pfad For Binary Access Read As #1
Do Until EOF(1)
Dim datei(0 To 1024) As Byte
Get #1, , datei
Server.SendData datei
Loop
Close #1

Nachdem der Server die Dateien versand hat kommt jetzt der Code für den Client:

Dim datei2(0 To 1024) As Byte
Client.GetData datei2
pos = pos + 1
Open FormTransfer.txtZielpfad.Text For Binary Access Write As #2
Seek #2, pos
Put #2, , datei2
Close #2

Schonmal danke im Vorraus für jegliche Rückmeldung.
MfG,
Servus123

 

[Elvan]

Hmm sorry aber ein bisschen mehr Zeit und Lust hättest Du schon mitbringen können, als...
Hier dann macht mal.

Gruß Elvan

 

[Servus123]

Ich glaube ich hab mich etwas schlecht ausgedrückt..
Mein Problem ist, dass ich nicht weiß wo da der Fehler drin steckt.
Meiner Meinung nach müsste es ja gehen und ich hab die Funktion auch schon mindestens 5 mal grundlegend neu geschrieben und schon Google zum glühen gebracht, aber trotzdem konnte ich es nie hinkriegen ein funktionierendes Script zu erstellen, weshalb ich jetzt versuche hier jemanden zu finden, der mir sagen kann warum das Script eben nicht funktioniert.
Lg,
Servus123