主题：[求助]如何避免执行FTP多个任务，项目卡死的情况

例子

测试，没问题。而且你例子不要做那么复杂。在线程里面写一句upload就好了嘛。

我简化了，多个进程同时upload的时候，不会卡住。

呃，不应该卡。测试代码如下

调用

Dim drs As List(Of DataRow)
drs = DataTables("TempTable").Select("")
For Each dr1 As DataRow In drs
    Dim t1 As New System.Threading.Thread(AddressOf s1)
    t1.Start()
Next

全局代码

重复测试多次，确认，确实是没有问题的啊。

用了一个200M的zip文件，循环upload，然后可以在ftp后台看到它们一点一点的上传。

1、是不是你的ftp有连接数限制啊，比如超过20就不行了；

2、每次使用完ftp。要close一下啊，如 ftp.Close

不，可，能。

测试数次了，没有任何问题。成功上传，而且项目没有卡住。全局代码

Public Sub s1()
try
    Dim dr As DataRow
    dr = DataTables("ServeIP").DataRows(0)
    Dim ftp As new FTPClient
    ftp.Host = dr("IP")
    ftp.Account = dr("Account")
    ftp.Password = dr("Password")
    ftp.Port = dr("Port")
    ftp.UTF8 = True
   
    If ftp.Connect = True
        Dim fname As String = Rand.NextString(12)
        FileSys.CopyFile("E:\ftp_test/test.zip", "e:\ftp_test\" & fname)
        output.show(ftp.Upload("E:\ftp_test/" & fname, "/" & fname & ".ftp"))
    Else
        output.show("ftp连接失败")
    End If
    ftp.close
catch ex As exception
    output.show(ex.message)
End try
End Sub