正如曼弗雷德(Manfred)所说，您没有给予太多帮助.

但是查看您的代码

As Manfred put you haven''t given much to go on.

BUT looking at your code

Dim buffer(2047) As Byte

将缓冲区大小设置为2047，我将检查文件之间的大小差异.

如果即时消息不正常，请扩展错误消息的类型，发生的位置等，这将帮助我们更好地建议您

c#示例，但易于转换为vb .net [ ^ ]

you set the buffer size to 2047, I would check what the size differences are between the files.

If im off the mark please expand on the type of error message, where its happening etc as that will help us advise you better

c# example but easy to convert to vb.net[^]

嗨

My.Computer.Network.UploadFile("d:\reza.txt", "ftp://www.aaaaa.ir/reza.txt", "user name", " Password")