Actually I "solved" it.
In the GetFileList Function is the following code
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.
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
:-)