000
25.02.2009, 13:02 Uhr
Angelika_25
|
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:
| Code: |
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 |
