VB.NET FTP Check ?

[Nôx]

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

[inout]

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

[Nôx]

ah cool danke