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