有关利用FTP服务器上传文件的问题。敬请各位高手给予解决。谢谢！

好奇心

我每天要利用专用的FTP服务器软件上传几个固定的文件，由于上传几个文件的目的地不相同，所以操作较麻烦，我想利用VBA代码一次就上传这几个文件到目的地。我在EH内找到了以下"zyg365"高手的代码：
Private Sub CommandButton1_Click()
'On Error Resume Next
Inet1.URL = "ftp://*.*.*.*/"'IP地址
Inet1.UserName = "***"    'username
Inet1.Password = "***"                  'password
Inet1.Execute , "put C:\123.txt htdocs/myuser/456.txt" '上传文件
'Inet1.Execute , "get htdocs/myuser/456.txt C:\12jj3.txt" '下载文件
MsgBox "Upload done!"
End Sub

'首先引用到microsoft internet  control
'添加控件microsoft internet transfer control

'Put是上传 get是下载——测试成功
我现在的问题是如何添加控件microsoft internet transfer control
谢谢！

猥琐的舌头

建一个socket,用于传输命令就行；如果想发送数据；可再建一个数据通道，专门处理大量数据的传输；

lb_bn

推荐楼主看看彭版主的这两个帖：
http://club.excelhome.net/viewth ... 4001&highlight=
http://club.excelhome.net/viewth ... 0619&highlight=

好奇心

谢谢楼上两位。问仍然未解决。