Проверьте, находится ли FTP в сети/в автономном режиме

Question

Каков наилучший способ определить, является ли ftp-сервер онлайн или оффлайн в Visual Basic? Я пробовал много различных способов пинговать сервер FTP, но все, что я стараюсь, я получаю эту ошибку:

An exception occurred during a Ping request. 

Является ли это легко поправимо? Или есть лучший метод, чем то, что я использую?

Answer 1

Используя WebRequest, попробуйте этот код я нашел

Привет, это должно работать нормально:

Imports System.Net 

    Dim request = _ 
    DirectCast(WebRequest.Create _ 
    ("ftp://ftp.example.com/folder_here/"), FtpWebRequest) 

    request.Credentials = _ 
    New NetworkCredential("user_here", "pass_here") 

    request.Method = WebRequestMethods.Ftp.ListDirectory 

    Try 
     Using response As FtpWebResponse = _ 
     DirectCast(request.GetResponse(), FtpWebResponse) 
      ' Folder exists here 
      MsgBox("exists!") 
     End Using 

    Catch ex As WebException 
     Dim response As FtpWebResponse = _ 
     DirectCast(ex.Response, FtpWebResponse) 
     'Does not exist 
     If response.StatusCode = _ 
     FtpStatusCode.ActionNotTakenFileUnavailable Then 
      MsgBox("Doesn't exist!") 
     End If 
    End Try 

..следующие Идея заключается в том, что мы используем класс FtpWebRequest и передать имя папки с слэш "/", если папка найдена, тогда ответ будет обработан в блоке Try-Catch, если папка не может быть найдена, мы обрабатываем контроль исключения с помощью statusCode (ActionNotTakenFileUnavailable), чтобы определить, не вызывает ли отсутствие папки исключение. Это должно работать нормально.

Sources First answer

--------------- Пожалуйста, попробуйте --------------------- -

Public Function CheckIfFtpFileExists(ByVal fileUri As String) As Boolean 
    Dim request As FtpWebRequest = WebRequest.Create(fileUri) 
    request.Credentials = New NetworkCredential("username", "password") 
    request.Method = WebRequestMethods.Ftp.GetFileSize 
     Try 
     Dim response As FtpWebResponse = request.GetResponse() 
     ' THE FILE EXISTS 
    Catch ex As WebException 
     Dim response As FtpWebResponse = ex.Response 
     If FtpStatusCode.ActionNotTakenFileUnavailable = response.StatusCode Then 
      ' THE FILE DOES NOT EXIST 
      Return False 
     End If 
    End Try 
    Return True 
End Function 

Get называеться так:

If CheckIfFtpFileExists("ftp://ftp.domain.com/filename.txt") Then 
    ' Do something 
End If 

Sources

Answer 2

вы можете не только сделать это:

If My.Computer.Network.Ping("IP HERE") Then 
     ' Success 
    Else 
     'fail 
    End If 

Благодаря

Пол

Answer 3

Обычно вы пишете свой код таким образом, что предполагает, что все идеально, а затем добавить обработку ошибок для случаев, когда соединение не работает.

Проверка того, что сервер находится в сети заранее, не гарантирует, что он будет оставаться таким образом в течение всего сеанса пользователя.

Answer 4

- (void)newBuddyOnline:(NSString *)buddyName { 

[onlineBuddies addObject:buddyName]; 
[self.TableView reloadData]; 

} 

- (void)buddyWentOffline:(NSString *)buddyName { 

[onlineBuddies removeObje` 
`ct:buddyName]; 
[self.TableView reloadData]; 
} 

Это может помочь.