请看我这段在服务器上使用FSO的小代码如何修改？谢谢！

Question

一段小程序，使用FSO建立文件夹和拷贝文件，在本地机上已经通过，现在问题是：如何登陆某个FTP，在其上面进行文件夹和拷贝文件。
已知：
ftp id :   ftp://10.10.10.10
uesername : a
password :  a原有的代码为：
Public Function upload(filename() As String, Drive As String, Folder() As String)    Dim Fso As New FileSystemObject '创建 FSO 对象实例
   Dim Dest_path As String
   Dest_path = Drive & ":" & "\"
   For i = 0 To 3
        Dest_path = Dest_path & Folder(i) & "\"
        If Not Fso.FolderExists(Dest_path) Then '如果目标文件夹不存在，创建之
          Fso.CreateFolder Dest_path
        End If
   Next
   For i = 1 To fujiangeshu
        Fso.CopyFile filename(0, i - 1), Dest_path & filename(1, i - 1), True '上传文件
        MsgBox " 文件上传完毕。", vbOKOnly
   Next
   Set Fso = Nothing
End Function 请问如何修改？谢谢！！

Answer 1

怎么能这样做呢，你以为你建立了VPN阿，随便就拷贝阿
FTP的协议是不支持这个东东的。

Answer 2

我是在公司局域网内做的，ftp 的地址是局域网的IP

Answer 3

Dest_path = Drive & ":" & "\"
驱动器不是这样么   C:

Answer 4

Drive & ":" & "\"不多了么

Answer 5

drive 是变量，程序中已经赋过值“d”了。在ftp 中已经将d盘的权限交给用户：a 了。就是不知道如何在里面写文件夹和文件？