471,357 Members | 1,118 Online
Bytes | Software Development & Data Engineering Community
Post +

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 471,357 software developers and data experts.

ftp question using article id 832679

ps
I am using this article to get a list of files in a directory using ftp.
If I run the code without some kind of delay, I only get about half the
files. If I put a debug.write statement it returns all the files. I think
this may be some kind of timing issue. Can anyone help?
URL:http://support.microsoft.com/?scid=kb;EN-US;832679
Here are the two sections of code that I am using:

'Return a list of files from the file system. Return these files in a
string() array.

Public Function GetFileList(ByVal sMask As String) As String()

Dim cSocket As Socket

Dim bytes As Int32

Dim seperator As Char = ControlChars.Lf

Dim mess() As String

Dim strCmd As String

If sMask Is Nothing Then

strCmd = "NLST"

'strCmd = "LIST"

Else

strCmd = "NLST " & sMask

End If

m_sMes = ""

'Check to see if you are logged on to the FTP server.

If (Not (m_bLoggedIn)) Then

Login()

End If

cSocket = CreateDataSocket()

'Send an FTP command.

'SendCommand("NLST " & sMask)

SendCommand(strCmd)

If (Not (m_iRetValue = 150 Or m_iRetValue = 125)) Then

MessageString = m_sReply

Throw New IOException(m_sReply.Substring(4))

End If

m_sMes = ""

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)

Debug.Write(ASCII.GetString(m_aBuffer, 0, bytes)) 'this will
affect the number of files returned. Maybe a timing issue?

If (bytes < m_aBuffer.Length) Then

Exit Do

End If

Loop

mess = m_sMes.Split(seperator)

cSocket.Close()

ReadReply()

If (m_iRetValue <> 226) Then

MessageString = m_sReply

Throw New IOException(m_sReply.Substring(4))

End If

Return mess

End Function

Private Sub cmdRun_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cmdRun.Click

Dim strFileList() As String

Try

'URL:http://support.microsoft.com/?scid=kb;EN-US;832679

ftpServer = New xxxFTP.clsFTP("IP Address", ".", "userId",
"password", 21)

If ftpServer.Login() Then

MessageBox.Show("sucessful login")

'strFileList length will be 88 (files) without the debug.write
statement and 157 with the debug statement

strFileList = ftpServer.GetFileList(Nothing) 'no mask

'strFileList = ftpServer.GetFileList("*.*") 'only files with
extension

Me.lstFiles.Items.Clear()

Dim str As String

For Each str In strFileList

If str.Trim <> "." And str.Trim <> ".." Then

Me.lstFiles.Items.Add(str)

End If

Next

Else

MessageBox.Show("unsucessful login")

End If

Catch ex As Exception

MessageBox.Show(ex.ToString)

Finally

ftpServer.CloseConnection()

End Try

End Sub
Jul 21 '05 #1
0 1921

This discussion thread is closed

Replies have been disabled for this discussion.

Similar topics

1 post views Thread by Rajesh S | last post: by
4 posts views Thread by Steve Richter | last post: by
1 post views Thread by Joris De Groote | last post: by
reply views Thread by XIAOLAOHU | last post: by

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.