Dim t As Integer: t = 0
Temparray为下载文件名数组
Do Until t > UBound(Temparray)
bDownloadFinished = false ' 重置下载是否完成的flag
If Len(Temparray(t)) Then
Inetftp.Execute , "GET " & "\b\" & Temparray(t) & " " & "E:\Download\mdb\" & Temparray(t)
t = t + 1
End If
Do Until bDownloadFinished = true ' 检查flag
DoEvents
Loop
Loop
Dim t As Integer: t = 0
Temparray为下载文件名数组
Do Until t > UBound(Temparray)
If Len(Temparray(t)) Then
Inetftp.Execute , "GET " & "\b\" & Temparray(t) & " " & "E:\Download\mdb\" & Temparray(t)
t = t + 1
End If
Do Until Inetftp.StillExecuting = False
DoEvents
Loop
Loop