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 = ""
