Public Function deleteFile(ByVal S_uri As Uri) As Boolean
        Dim request As FtpWebRequest
        Dim response As FtpWebResponse
        Try
            If S_uri.Scheme = Uri.UriSchemeFtp Then
                request = CType(FtpWebRequest.Create(S_uri), FtpWebRequest)
                Dim cred As New NetworkCredential("Passwort", "sehr geheim")
                request.Credentials = cred
                request.Method = WebRequestMethods.Ftp.DeleteFile
                response = CType(request.GetResponse, FtpWebResponse)
                If response.StatusCode = FtpStatusCode.FileActionOK Then
                    Return True
                Else
                    Return False
                End If
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
    End Function

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus