Dim requ As FtpWebRequest = Nothing
        Dim resp As FtpWebResponse = Nothing
        Dim requStrm As Stream = Nothing
        Dim fileStrm As FileStream = Nothing
        Try
            ' Request(erstellen)
            requ = CType(WebRequest.Create("ftp://" & URL), FtpWebRequest)
            requ.Credentials = New NetworkCredential(bk, pw)
            ' Auszuführende Aktion festlegen
            requ.Method = WebRequestMethods.Ftp.MakeDirectory & fileName
            requ.Timeout = System.Threading.Timeout.Infinite
            requ.Proxy = Nothing       ' kein Http-Proxy-Support beim Upload
            Dim buff(2048) As Byte
            fileStrm = File.OpenRead(fileName)
            requStrm.Write(buff, 0, 0)
            'Antworten(holen)
            requStrm.Close()
            resp = CType(requ.GetResponse(), FtpWebResponse)
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            If resp IsNot Nothing Then resp.Close()
            If fileStrm IsNot Nothing Then fileStrm.Close()
            If requStrm IsNot Nothing Then requStrm.Close()
        End Try
    End Sub