Dim ftp1 As New FtpClient
ftp1.Host= DataTables("config").Find("item='R_ip'")("value")
ftp1.Account = DataTables("config").Find("item='R_user'")("value")
ftp1.Password = DataTables("config").Find("item='R_pass'")("value")
Dim s As String
If ftp1.Connect=True
Vars("state") =True
S="Y"
If StatusBar.Message3<>"状态:已连接" Then
StatusBar.Message3="状态:已连接"
End If
Else
Vars("state") =False
S="N"
if StatusBar.Message3<>"状态:未连接" then
StatusBar.Message3="状态:未连接"
end if
End If
[此贴子已经被作者于2016/7/20 15:54:52编辑过]