VB中把文字上传到FTP空间

新建一个form1窗体，然后增加一个文本框和一个命令按钮。

运行，在文本中输入一些内容，然后按确定按钮，文本框中的内容就上传到指定的FTP空间。

这个代码怎么写？

Dim FileName As String
Private Sub Command1_Click()
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
FileName = CommonDialog1.FileTitle
End Sub

Private Sub Command2_Click()
Inet1.Protocol = icFTP
Inet1.RemoteHost = "192.168.1.1" '服务器地址
Inet1.RemotePort = 21 'FTP端口
Inet1.UserName = "user " '用户名
Inet1.Password = "password" '密码
Me.Caption = "正在上传……"
Dim aa As String
Inet1.Execute "", "PUT " & Text1.Text & " " & FileName
ri = Inet1.StillExecuting
Do While ri
ri = Inet1.StillExecuting
DoEvents
Loop
Me.Caption = "上传完毕！"
End Sub

常来网免费空间(TheC.Cn) - 国内最大的免费空间站 ASP . FTP. PHP空间 【注册地址】：

http://web.99081.com/sysweb/RegTrans.aspx?CodeProvider=sky521 http://web.TheC.Cn/sysweb/RegTrans.aspx?CodeProvider=sky521

【特色介绍】：

『空间无限 永久免费』 免费为您提供无限大的存储空间，足以容纳成千上万甚至上百万计的网页文件，并可永久免费使用!

『域名绑定及转发』 您可以绑定(或转发)自己的域名，还可以将域名绑定(或转发)到子目录!另外赠送xxx.Qyun.Net的免费域名供您使用!

『WEB管理 FTP管理』 通过在线(Web)和FTP两种方式及在线解压/压解等强大功能，可以轻松完成网站发布及维护任务，使文件管理易如反掌!

『多种脚本支持』 支持HTML、ASP、ASP.NET1.0、ASP.NET2.0及PHP多种脚本，使您的选择更加灵活!

『数据库支持』 系统同进支持ACCESS、MSSQL、MYSQL三种数据库，使您的选更加全面，满足您的多种需要!

『组件齐全』 支持FSO、Zend、Jmail、AspJepg等多种流行组件，全面支持，并且不断完善，不断更新，体验更多建站乐趣! http://web.99081.com/sysweb/RegTrans.aspx?CodeProvider=sky521

Inet1.Protocol = icFTP Inet1.RemoteHost = ServerName'服务器地址 Inet1.RemotePort = 21'FTP端口 Inet1.UserName = uName'用户名 Inet1.Password = uPWS'密码

'生成文件： Open "d:\1.txt" For Output As #1

Print #1, text1.text

Close #1

'上传文件： Inet1.Execute "", "PUT d:\1.txt 1.txt" ri = Inet1.StillExecuting Do While ri ri = Inet1.StillExecuting DoEvents Loop