Dim lLenFile As Long
Dim f
f = FreeFile
Open strFileName For Binary As #f \’strFileName是文件名
lLenFile = LOF(f)
ReDim bytData(1 To bytesTotal)
Winsock1.GetData bytData
If lLenFile = 0 Then \’lLenFile=0表示是第一次打开文件，这里有个问题，就是\’如果如果该文件存在的话，就会出错，应该在打开前检查文件是否存在。（这里省略了）
Put #f, 1, bytData
Else
Put #f, lLenFile + 1, bytData
End If
Close #f
End Sub
责任编辑：小草
