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

不行，按老师的代码不变，仅仅改了ftp地址和文件大小！项目卡死，必须等到上传完成才进入激活状态。是何问题？

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

 

用了一个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

是不是Windows10的问题？换个地方试试，谢谢老师！