项目中有多个地方需要判断FTP服务器是否通，想写成函数，但没有参数传递，应该怎么写：
Dim ftp1 As New FtpClient
Dim a As String = DataTables("config").Find("item='R_ip'")("value") ‘记录在表中
Dim b As String =DataTables("config").Find("item='R_user'")("value")
Dim c As String = DataTables("config").Find("item='R_pass'")("value")
If a="" Or b="" Or c=""
MessageBox.Show("未参数远程连接参数,请配置后再执行此操作!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Forms("系统设置").Open
Return ""
End If
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")
Return ftp1.Connect ’ 将状态返回，
加好友 
发短信
Post By：2015/9/17 17:03:00 [只看该作者]
