关于文件发送?

[visualbasic999]

在局域网中如何实现文件的传送，如何得到文件的大小？

[shawls]

你发送包的时候，需要先 发送几个数据包，里面存放总共多少个数据报，每个多大，数据的解码方式，这样，就可以计算了！

[visualbasic999]

关于解码，可以讲讲吗？

[visualbasic999]

有人会吗？

[water_j]

文件的传送最简单的可以用
【函数】
CopyFile

【操作系统】
Win9X:Yes
WinNT:Yes

【声明】
CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

【说明】

复制文件。与vb的filecopy命令相似

【返回值】

Long，非零表示成功，零表示失败。会设置GetLastError

【其它】


【参数表】
lpExistingFileName - String，源文件名

lpNewFileName -- String，目标文件名

bFailIfExists -- Long，如果设为TRUE（非零），那么一旦目标文件已经存在，则函数调用会失败。否则目标文件被改写

不过只是建立在有信任关系的基础上的！！



LOF 函数


返回一个 Long，表示用 Open 语句打开的文件的大小，该大小以字节为单位。

语法

LOF(filenumber)

必要的 filenumber 参数是一个 Integer，包含一个有效的文件号。

注意 对于尚未打开的文件，使用 FileLen 函数将得到其长度。
LOF 函数示例
本示例使用 LOF 函数来得知已打开文件的大小。本示例假设 TESTFILE 文件内含文本数据。

Dim FileLength
Open "TESTFILE" For Input As #1 ' 打开文件。
FileLength = LOF(1) ' 取得文件长度。
Close #1 ' 关闭文件。