VB.NET

VB.NET RSS

FTP error

Please support our VB.NET advertiser: Intel Parallel Studio Home

•

Join Date: Aug 2005

Posts: 2

Reputation: mordtechin is an unknown quantity at this point

Solved Threads: 0

mordtechin mordtechin is offline

Offline

Newbie Poster

FTP error

Aug 26th, 2005

Hello all you VB.NET 'ers

This being my first post would first of all like to say "Hallo!" :cheesy:

My problem is with Microsoft's FTP class
http://support.microsoft.com/default...b;en-us;832679

When I use this class, I am calling the
GetFileList Function to populate a listbox so that the user may be able to choose the files to download. However, it does not consistently return all the files. Usually it either 1] return only 1 file in the directory (if lots of files are in directory only returns one) 2] return all files in directory.

Has anyone had the same problem before and know how to fix this or have another FTP class that I could use to achieve this?

Thanks in advance.This should help greatly in several of the programs I need to run that need to retrieve a file from an FTP site to process and such.

•

Join Date: Aug 2005

Posts: 2

Reputation: mordtechin is an unknown quantity at this point

Solved Threads: 0

mordtechin mordtechin is offline

Offline

Newbie Poster

Re: FTP error

Aug 26th, 2005

Actually I "solved" it.

In the GetFileList Function is the following code

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
        Do While (True)
           m_aBuffer.Clear(m_aBuffer, 0, m_aBuffer.Length)
           bytes = cSocket.Receive(m_aBuffer, m_aBuffer.Length, 0)
           m_sMes += ASCII.GetString(m_aBuffer, 0, bytes)
               If (bytes < m_aBuffer.Length) Then
                   Exit Do
               End If
        Loop
        Do While (True)
           m_aBuffer.Clear(m_aBuffer, 0, m_aBuffer.Length)
           bytes = cSocket.Receive(m_aBuffer, m_aBuffer.Length, 0)
           m_sMes += ASCII.GetString(m_aBuffer, 0, bytes)
               If (bytes < m_aBuffer.Length) Then
                   Exit Do
               End If
        Loop

I replaces it with the following which seems to work 100% now.

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
        Do
            m_aBuffer.Clear(m_aBuffer, 0, m_aBuffer.Length)
            bytes = cSocket.Receive(m_aBuffer)
            If bytes > 0 Then
                m_sMes += ASCII.GetString(m_aBuffer, 0, bytes)
            End If
        Loop Until bytes = 0
        Do
            m_aBuffer.Clear(m_aBuffer, 0, m_aBuffer.Length)
            bytes = cSocket.Receive(m_aBuffer)
            If bytes > 0 Then
                m_sMes += ASCII.GetString(m_aBuffer, 0, bytes)
            End If
        Loop Until bytes = 0

This snipped of code which I edited can be obtained from
http://www.mentalis.org/classlib/class.php?id=23

:-)

Quick Reply to Thread

Show Printable Version

Similar Threads

FTP error in Dreamweaver (Site Layout and Usability)
Problem with Dreamweavers FTP (Site Layout and Usability)
URGENT: FTP Client / Server using RMI (Java)
FTP Error in Dreamweaver MX (Networking Hardware Configuration)
Connection Closed. Timeout (20s) FTP Error (Networking Hardware Configuration)
FTP Error 550..no go for deletes or anything! (Windows Software)

Other Threads in the VB.NET Forum

Previous Thread: closing form1 from form2
Next Thread: ComboBox UpDate Problem

Thread Tools	Search this Thread
Show Printable Version Email this Page

DaniWeb Message

Cancel Changes