VB.NET read all file inside a folder from a FTP Server

Question

4.00/5 (1 vote)

See more:

I'm trying to get all the files inside a folder from a FTP Server
I found a code for doing this in Internet

Dim reqFTP As FtpWebRequest = Nothing
reqFTP = DirectCast(WebRequest.Create("ftp://ftp.microsoft.com/Products/mediaplayer/MACOS/"), FtpWebRequest)
reqFTP.Method = WebRequestMethods.Ftp.ListDirectoryDetails
reqFTP.Credentials = New NetworkCredential(UserID, Password)
response = DirectCast(reqFTP.GetResponse(), FtpWebResponse)
Dim responseStream As Stream = response.GetResponseStream()
Dim reader As New StreamReader(responseStream)
Console.WriteLine(reader.ReadToEnd())

Result in Console.WriteLine is

09-28-98  04:51PM              3149614 MacOSPlayer3.1b1c7.hqx
09-17-98  09:43AM                 6035 MacReadMe.txt

my problem is when I'm using the reader.ReadToEnd()
and put it in a ListBox, the result is just one line.

09-28-98  04:51PM              3149614 MacOSPlayer3.1b1c7.hqx**09-17-98  09:43AM                 6035 MacReadMe.txt**

* is a character i don't know what it is, its kinda a rectangle type character

How can I put the result in a ListBox but the result is the same with the Console.
Any suggestion is appreciated

Thanks....

Posted 2-Jun-11 0:35am

hansoctantan

Updated 2-Jun-11 0:50am

v4

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Ruard · Accepted Answer · 2011-06-02T00:58:00

reader.ReadToEnd returns a string. So this is one result displayed as one line. Use string.split to split the lines.

Dim Lf As Char = ToChar(CByte(10))
Dim Cr As Char = ToChar(CByte(13))
Dim CrLf As Char() = {Cr, Lf}

Dim lines() as string = reader.ReadToEnd().Split(CrLf, StringSplitOptions.RemoveEmptyEntries)

The ** are the cariage return linefeed (CrLf) characters.