SuperShinta
Member
- Joined
- Oct 8, 2011
- Messages
- 12
- Programming Experience
- Beginner
Imports System.Net Imports System.IO ------------------------------------------------------------------------------------------------------------------ Public Class Form4 Private Sub listFTP(ByVal URL As String, ByVal UserName As String, ByVal Password As String) URL = "ftp://" & txturl.Text Dim requ As FtpWebRequest = Nothing Dim resp As FtpWebResponse = Nothing Dim reader As StreamReader = Nothing Try requ = CType(WebRequest.Create(URL), WebRequest) requ.Credentials = New NetworkCredential(UserName, Password) requ.Method = WebRequestMethods.Ftp.ListDirectory resp = CType(requ.GetResponse(), FtpWebResponse) reader = New StreamReader(resp.GetResponseStream()) While (reader.Peek() > -1) lstFileList.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 downloadFTP(ByVal URL As String, ByVal UserName As String, ByVal Password As String) URL = "ftp://" & txturl.Text Dim requ As FtpWebRequest = Nothing Dim resp As FtpWebResponse = Nothing Dim respStrm As Stream = Nothing Dim fileStrm As FileStream = Nothing Try requ = CType(WebRequest.Create(URL), FtpWebRequest) requ.Credentials = New NetworkCredential(UserName, Password) requ.Method = WebRequestMethods.Ftp.DownloadFile resp = CType(requ.GetResponse(), FtpWebResponse) respStrm = resp.GetResponseStream() SaveFileDialog1.FileName = Path.GetFileName(requ.RequestUri.LocalPath) If (SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then fileStrm = File.Create(SaveFileDialog1.FileName) Dim buff(1024) As Byte Dim bytesRead As Integer = 0 While (True) bytesRead = respStrm.Read(buff, 0, buff.Length) If (bytesRead = 0) Then Exit While fileStrm.Write(buff, 0, bytesRead) End While ToolStripStatusLabel1.Text = "Download komplett!" End If Catch ex As UriFormatException ToolStripStatusLabel1.Text = ex.Message Catch ex As WebException ToolStripStatusLabel2.Text = ex.Message Catch ex As IOException ToolStripStatusLabel2.Text = ex.Message Finally If respStrm IsNot Nothing Then respStrm.Close() If fileStrm IsNot Nothing Then fileStrm.Close() End Try End Sub ---------------------------------------------------------------------------------------------------------------------------------- Private Sub cmdList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdList.Click lstFileList.Items.Clear() listFTP(txturl.Text, txtusername.Text, txtpassword.Text) End Sub Private Sub cmdDowload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDownload.Click downloadFTP(TextBox1.Text, txtusername.Text, txtpassword.Text) End Sub ----------------------------------------------------------------------------------------------------------------------------------------- Private Sub lstFileList_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstFileList.SelectedIndexChanged TextBox1.Text = txturl.Text & "/" & lstFileList.SelectedItems(0).ToString() End Sub End Class
On ToolStripStatusLabel2.Text it appears the error when i click the download button
The error is this: [the requested uri is invalid for this ftp command]
Please help me. I'm running out of time (
Thanks in advance ! i'm working for my thesis
Last edited by a moderator: