Ok here's the question...

With the Dir-function I try to send information via a winsock control
Works but one problem, when the application sends these directories, I receive a large string, containing all directories.

I just want every directory to be send separate of the other one's, and not all together in one string


mydir = Dir(NewPath(pad), vbDirectory) 'newpath just
'checks if
'there is an "\" at the end
Do

If mydir <> "." And mydir <> ".." Then
If (GetAttr(NewPath(pad) & mydir) And vbDirectory) = _ vbDirectory Then

buffer = "F#" & mydir
Form1.WS.SendData buffer
' i get this "F#Dir1#Fdir2F#dir3"
instead of "F#Dir1" "F#Dir2"
End If
End If

mydir = Dir
Loop Until mydir = ""