vb FTP 怎么多个上传，一次性传输多个文件，我只有传输一个的代码

Dim host_name As String
Enabled = False
MousePointer = vbHourglass
txtResults.Text = "Working"
txtResults.SelStart = Len(txtResults.Text)
DoEvents
host_name = txtHost.Text
If LCase$(Left$(host_name, 6)) <> "ftp://" Then host_name = "ftp://" & host_name
inetFTP.URL = host_name
inetFTP.UserName = txtUserName.Text
inetFTP.Password = txtPassword.Text
inetFTP.Execute , "Put " & _
App.Path & "\编号.txt" & " " & txtRemoteFile.Text & "/编号.txt"

重复执行最后一行是没错了 ,但是会出错,原因是 在还没有上传完上一个文件的时候你就叫它上传下一个文件了,你要给它充足的时间 或者你 有充足的理由知道它已经上传完了文件后你才能叫它继续上传下一个文件
所以你可以把最后一行代码改写成:
inetFTP.Execute , "Put " & _
App.Path & "\编号.txt" & " " & txtRemoteFile.Text & "/编号.txt"
do
DoEvents
isRight = inetFTP.StillExecuting
Loop While isRight
inetFTP.Execute , "Put " & _
App.Path & "\编号2.txt" & " " & txtRemoteFile.Text & "/编号2.txt"
这样第一个文件传输完后有个事件是等待传输结束的,等传输完毕后就传编号2了

重复最后一行不就行了 再看看别人怎么说的。