Передача данных

[Конь]

Спешу разочаровать - не работает.

[uhm]

Зачем ты делаешь cmdStop_click?
Ты знаешь о том, что данные при достаточно большом файле приходят кусками, и что событие DataArrival должно выполниться несколько раз, прежде чем файл будет принят полностью?

[tyomitch]

Нет, я так в виду не имел.
Попытайся понять, зачем там стоит For Append, а не For Output

[Конь]

uhm
Теперь все становится немного понятнее.
tyomitch
Я вообще не знаю, что значит "For Append"

[GSerg]

А ты английский подучи...

[Конь]

Догадался !
Output перезаписывает файл, а Append - дописывает!

Возник другой вопрос: как узнать, закончилась ли передача файла? получение файла?
И еще: зачем все-таки нужна точка с запятой?

P.S.: все-же лучше Output:

Код: Выделить всё


Dim RecievedData As String

Private Sub WSG_DataArrival(ByVal bytesTotal As Long)

    Dim GD As String: WSG.GetData GD
    RecievedData = RecievedData & GD
    Open txtFile.Text For Output As #1
    Print #1, RecievedData;
    Close #1

End Sub