老师好，下列程序是用高开版文件监控事件上传文件，发布前运行没问题，发布后不能上传文件了，请老师解决一下，谢谢！

Dim bn As String = args(0)
Dim cn As String = args(1)
Dim e =  args(2)
If CurrentTable.name = bn Then
    With CurrentTable
        If .Cols.Contains(cn)  Then
            If .Current IsNot Nothing Then               
                Dim ftp As New FTPClient
                ftp = Functions.Execute("ftp")
                Dim r As Row = .Current
                Dim ls = r.DataRow.Lines(cn)               
                Dim file = "/" & .name & "/" & e.name
                If ftp.DirExists("/ " & .name ) = False Then
                    ftp.MakeDir("/" & .name)
                End If
                If  ftp.Upload(e.FullPath,file,True) = True Then
                    ls.add(file)
                Else
                    msgbox("上传" & e.FullPath & "失败")
                End If               
                r.DataRow.lines(cn) = ls
                ftp.Close
            End If
        End If
    End With
End If