检查FTP Server 文件 size 问题

[jackyluck]

最近写了一个FTP下载功能 , 其中需下载前检查文件Size , 下载后再检查文件Size确保下载是完成 ,
下载前检查代码是
Dim response As FtpWebResponse = ftp.GetResponse '总是在代码报550错
GetFileSize = response.ContentLength (返回Long值)

下载后检查代码是:
File.ReadAllbytes(Path) (返回Bytes值 )

请问如何可以把下载检查前返的Long值改为Bytes ?

[沐NeMo]

还没有用过FtpWebResponse .用过web下载。

[jackyluck]

原代码写漏呢:

下载前检查 :
Dim response As FtpWebResponse = ftp.GetResponse '总是在代码报550错
Dim GetFileSize as Long = response.ContentLength

下载后检查:
Dim donwLoadSize as Long = File.ReadAllbytes(Path)..Length

最的结果是 如果 xp FTP server 和 xp 客户端 GetFileSize = donwLoadSize ,
如果 unix FTP server 和 xp 客户端 GetFileSize > donwLoadSize ?

[jackyluck]

重新测试后发现不是bytes 和 long 类型的问题 , xp ftp server 和 xp 客户端测试时结果是一样的 ,
但是 unix fpt server 和 xp 客户端组合测试检查文件size 时就有差别 , unix 结果比 xp 结果大 ?

[以专业开发人员为伍]

[Quote=引用楼主 jackyluck 的回复:]
请问如何可以把下载检查前返的Long值改为Bytes ?[/Quote]

比较字节数怎么能把long转为bytes呢？应该是极端bytes的字节数才对。

假设从文件中读取的bytes在变量Datas中，那么你应该取

Dim DataCount as long= datas.length

然后与GetFileSize 比较大小。