Question

VB winsock文件传输

Dim myFile() As Byte
Dim myLong As Double
Dim myPath As String

myPath = "c:\qwe.txt"
ReDim myFile(bytesTotal - 1)
Winsock1.GetData myFile

Open myPath For Binary As #1 '新建文件
myLong = FileLen(myPath)
Put #1, myLong + 1, myFile '将收到的数据写入新文件中
Close #1

这段代码怎么改才可以 得到文件名并且保存到指定目录,别人发什么文件过来,这边就是什么文件

Answer 1

在Winsock时你可以像Tcp发送报文一样 规定多少位到多少位是干什么用的
如
Dim s As String * 10
s = "1.txt"
winsock1.senddata s & "yourfile

那么在Winsock.getdata myfile时
trim(left(myfile,10))就是你的文本名称
right (myfile,len(myfile-10))就是你的文本内容
指定文本是你可以在
Winsock1.GetData myFile后用commondialog控件来自己指定或者用Dirver与Dir控件来决定路径