vb编写ftp 能上传下载文件

Question

求高手用vb帮我编写一个能上传下载文件的程序，具体要求：
ftp：204.45.97.59 user：7390 password：123456
窗体上聊个命令按钮 上传 下载
1.点上传 上传c:\test.txt到 ftp://204.45.97.59/test.txt
2.点下载 下载ftp://204.45.97.59/ip.txt 到c:\ip.txt
希望高手给我原封不懂写出来，因为我太笨了。
写好后发给我qq761212385
由于没有分 计算各位大虾做个好事了。
Private Sub Command1_Click() 'FTP下载

lnginet = InternetOpen("FTP Control", 1, vbNullString, vbNullString, 0)
If lnginet Then
lnginetconn = InternetConnect(lnginet, "204.45.97.59", 0, "7390", "123456", 1, 0, 0)
If lnginetconn Then
blnRC = FtpGetFile(lnginetconn, "ip.txt", "c:\ip.txt", 0, 0, 1, 0) '就在这里出了错误！
If blnRC Then
MsgBox "download ok!!!"
End If
InternetCloseHandle lnginetconn
InternetCloseHandle lnginet
MsgBox "close ok!!!"
Else
MsgBox "can't connect"
End If
Else
MsgBox "ftp wrong"
End If
End Sub

这是编写好了的！我发现在 用FtpGetFile函数获取文件的时候出了错误，但是不知道错误来源...

Answer 1

　　1、利用Inet控件上传文件
　　
　　 格式：inet1.execute , "put 本地文件 远程文件"
　　
　　范例：
　　
　　'初始化Inet控件
　　Inet1.Protocol = icFTP
　　Inet1.URL = "ftp://u0501901.k1.13939.org"
　　Inet1.RemotePort = 21
　　Inet1.UserName = "u0501901"
　　Inet1.Password = "750531179574"
　　
　　Label3.Caption = "正在上传....."
　　
　　'先关闭当前的数据库存连接
　　cn.Close
　　
　　Inet1.Execute , "put" & " " & App.Path & "\vbhelp.mdb" & " " & "/vbhelp/vbhelp.mdb"
　　
　　Do While Inet1.StillExecuting
　　 DoEvents
　　Loop
　　Label3.Caption = "上传成功"
　　
　　'重新连接数据库
　　dbconnect
　　
　　 2、利用Inet控件下载文件
　　
　　格式： inet1.execute , "get 远程文件 本地文件"，注意空格
　　
　　 '初始化INET1控件
　　Inet1.Protocol = icFTP
　　Inet1.URL = "ftp://u0501901.k1.13939.org"
　　Inet1.RemotePort = 21
　　Inet1.UserName = "u0501901"
　　Inet1.Password = "750531179574"
　　
　　Label3.Caption = "正在下载...."
　　
　　'格式： inet1.execute , "get 远程文件 本地文件"，注意空格
　　Inet1.Cancel
　　Inet1.Execute , "GET /vbhelp/vbhelp.mdb c:\temp\vbhelp.mdb"
　　Do While Inet1.StillExecuting
　　 DoEvents
　　Loop
　　
　　label3.caption="下载成功"
　　
　　 3、利用INET控件建立远程的文件夹
　　
　　Inet1.AccessType = icUseDefault
　　Inet1.RemotePort = 21
　　Inet1.Protocol = icFTP
　　Inet1.URL = "u0711084.k1.13939.org"
　　Inet1.UserName = "u0711084"
　　Inet1.Password = "750531179574"
　　
　　Inet1.Execute , "mkdir vbtest"
　　Do While Inet1.StillExecuting
　　 DoEvents
　　Loop
　　
　　Inet1.Execute , "close"
　　Inet1.Execute , "quit"
　　MsgBox "成功建立文件夹"
　　
　　 4、利用INET控件删除远程文件夹
　　
　　 方法跟建立文件夹一样，删除命令为rmdir，但只能删除空目录，删除文件用delete