Hallo all ich wolte mal fragen obs ne möglichkeit gibt irgentwie FTP check zu machen wo mir ein Wert zurückgibt wen erfolgreich eine Verbindung aufgebaut ist ohne das eine datei hoch b.z.w runtergeladen wird.
danke schonmal für die antworten :)
mfg Nox
Private Function FTPCheck(ByVal uri As String, ByVal user As String, ByVal pass As String, ByRef errmsg As String) As Boolean
Try
Dim req As Net.FtpWebRequest = Net.FtpWebRequest.Create(uri)
req.Credentials = New Net.NetworkCredential(user, pass)
req.Method = Net.WebRequestMethods.Ftp.PrintWorkingDirectory
Dim response As Net.FtpWebResponse = req.GetResponse()
Return True
Catch ex As Exception
errmsg = ex.Message
Return False
End Try
End Function
Dim errmsg As String = ""
If FTPCheck("ftp://ftp.microsoft.com", "anonymous", "blub", errmsg) Then
MessageBox.Show("check ok")
Else
MessageBox.Show("check not ok: " + errmsg)
End If
Powered by vBulletin® Copyright ©2024 Adduco Digital e.K. und vBulletin Solutions, Inc. Alle Rechte vorbehalten.