Hallo ich möchte einen Upload auf einen FTP-Server machen. Das Komplizierte an der Sache ist, dass ich in einen Ordner schauen möchte (lokaler Rechner) und erstmal gucke, ob .txt Dateien vorhanden sind. Sind sie vorhanden, möchte ich, dass sie auf den FTP-Server in einen bestimmten Ordner gelegt werden. Ich habe bisher folgenden Code:
Alles anzeigen
" listFTP2(Upload_File)"--> Upload_File ist der Ordner auf meinem lokalen Rechner, in denen die verschiedenen Dateien drin liegen.
Das soll noch kein Upload sein, lediglich, dass alle Dateien in meinem Ordner (auf dem lokalen PC) in einer ListBox angezeigt werden sollen.
Allerdings scheinen sich dort noch Fehler zu befinden, denn es funktioniert nicht.
Ich würde mich so freuen wenn mir da einer helfen könnte!....
Viele liebe Grüße
Quellcode
- Private Sub listFTP2(ByVal URL As String)
- Dim requ As FtpWebRequest = Nothing
- Dim resp As FtpWebResponse = Nothing
- Dim reader As StreamReader = Nothing
- Try
- requ = CType(WebRequest.Create(URL), FtpWebRequest)
- ' requ.Credentials = New NetworkCredential(bk, pw)
- 'Auszuführende Aktion festlegen:
- requ.Method = WebRequestMethods.Ftp.ListDirectory
- resp = CType(requ.GetResponse(), FtpWebResponse)
- reader = New StreamReader(resp.GetResponseStream())
- While (reader.Peek() > -1)
- ListBox4.Items.Add(reader.ReadLine())
- End While
- 'ToolStripStatusLabel1.Text = "Auflistung komplett!"
- Catch ex As UriFormatException
- 'ToolStripStatusLabel1.Text = ex.Message
- Catch ex As WebException
- 'ToolStripStatusLabel2.Text = ex.Message
- Finally
- If reader IsNot Nothing Then reader.Close()
- End Try
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
- System.EventArgs) Handles Button1.Click
- ListBox4.Items.Clear()
- listFTP2(Upload_File)
- End Sub
" listFTP2(Upload_File)"--> Upload_File ist der Ordner auf meinem lokalen Rechner, in denen die verschiedenen Dateien drin liegen.
Das soll noch kein Upload sein, lediglich, dass alle Dateien in meinem Ordner (auf dem lokalen PC) in einer ListBox angezeigt werden sollen.
Allerdings scheinen sich dort noch Fehler zu befinden, denn es funktioniert nicht.
Ich würde mich so freuen wenn mir da einer helfen könnte!....
Viele liebe Grüße