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

答案:2 悬赏:50 手机版

解决时间 2021-03-10 15:50

提问者网友：未信
2021-03-09 19:58

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"

最佳答案

五星知识达人网友：话散在刀尖上
2021-03-09 21:20

重复执行最后一行是没错了 ,但是会出错,原因是在还没有上传完上一个文件的时候你就叫它上传下一个文件了,你要给它充足的时间或者你有充足的理由知道它已经上传完了文件后你才能叫它继续上传下一个文件
所以你可以把最后一行代码改写成:
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了

全部回答

1楼网友：北方的南先生
2021-03-09 22:59

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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息