Question

VB 检验文件

，是这样的，程序会从网上下载文件 1.txt ，保存路径为当前目录

我想点击command1 ，然后程序会检查 1.txt的完整性，再执行

下一个动作，请问如何实现？

假设，1.txt 的正确大小为1000 ，

if 1.txt 的大小 小于 1000 then
msgbox "下载文件失败请选择手动下载"
else
msgbox"下载成功"
执行下一个动作
end

，这是我想到的，用文件大小来检验文件的完整性。
但不知到如何实现，有懂，请写出完整的校验代码

如果没有，就用大小来检查文件吧，如何实现请写出代码

感激不尽！！！

Answer 1

FileLen函数可以获取文件大小

Private Sub Form_Load()
MsgBox "启动菜单文件大小:" & FileLen("c:\boot.ini")
End Sub

追问

你能帮我实现 这个代码吗？
假设，1.txt 的正确大小为1000 ，

if 1.txt 的大小 小于 1000 then
msgbox "下载文件失败请选择手动下载"
else
msgbox"下载成功"
执行下一个动作
end

追答

if FileLen(app.path & "\1.txt") then
msgbox "下载文件失败请选择手动下载"
else
msgbox"下载成功"
执行下一个动作
end if

追问

不对啊，
你给我的代码只是检查文件是否存在
我想要的是，如果1.txt的文件小于1000（单位），
msgbox "下载文件失败请选择手动下载"
else
msgbox"下载成功"
执行下一个动作
end if

追答

if FileLen(app.path & "\1.txt")<1000 then
msgbox "下载文件失败请选择手动下载"
else
msgbox"下载成功"
执行下一个动作
end if

参考资料： 晕 写掉了。

追问

OK了，谢谢你
最后一个问题， 1000这单位是多少?
是Ｋ还是KB 还是？？？

追答

字节 byte