Wait For (FTP_PING) Complete(Connected As Boolean)
If Not(Connected) Then
' ...
End If
Private Sub FTP_PING As ResumableSub
FTP.SendCommand("NOOP","")
Wait For FTP_CommandCompleted (Command As String, Success As Boolean, ReplyCode As Int, ReplyString As String)
Return (ReplyCode = 200)
End Sub