Function FileDownLoad(ByVal ObjInet As Control, ByVal strURL As String, ByVal strSaveFile As String) As Boolean
'功能:文件下载函数
'ObjInet:Inet控件
'strURL:Ftp服务器的地址
'strSaveFile:下载文件保存地址
'Designed by Mr.Wangrong
'QQ : 28830832
'DATE: 2004-07-01
On Error GoTo errhandel
Dim b() As Byte
Dim StrShell As String