Winsock problem..

[nstrg]

What i'm trying to do is make a program somewhat simaliar to Napster. Everything works great so far, execpt that when 2 users try to search for a file at the sametime.. It stops sending the information to the first user and starts on the second, then when the second user has received all the messages, it starts back up on the first. My question is, is there anyway to get it to do both searchs at the sametime?

here is how i do the search:

****************

Public Function SearchFolder(folderpath As String, SearchSTR As String, num As Integer)

Dim thisFolder As Folder
Dim sFolder As Folders
Dim AllFiles As Files
Dim fileItem As File, folderitem As Folder
Dim tStream As TextStream
Dim line As String
Dim userid As String
Dim fName As String
Dim filedata As String
Dim t As Integer
Dim str11 As String
Dim str12 As String

Set thisFolder = Fsys.GetFolder(folderpath)
Set sFolder = thisFolder.SubFolders
Set AllFiles = thisFolder.Files


For Each folderitem In sFolder

DoEvents

SearchFolder App.Path & "\data\files\", SearchSTR, num
Next

For Each fileItem In AllFiles

DoEvents

Set tStream = Fsys.OpenTextFile(fileItem.Path, ForReading, False)

line = tStream.ReadLine
userid = TrimNull(line)

Do Until tStream.AtEndOfStream

DoEvents
line = tStream.ReadLine

If InStr(1, line, SearchSTR, vbTextCompare) Then

Sleep 140

t = InStr(1, line, "::")

If t Then

str11 = Left(line, t - 1)
str12 = Mid(line, t + 2, Len(line) - t)

End If

Sleep 110

fName = GetFileName(str11)

Call Sendout("[SRE]" & LCase(userid) & "::" & fName & "!L" & str12, num)

End If

Loop
Next

End Function

****************

Thanks -
Nate

You could use a timer, and instead of keep searing search one folder at a time when the timers fires an event, this way you don't have the problem that it get stuck in a loop nd needs to finish it first.

[wicked_2k]

r u using the winsock api calls for your napster thingy or r u using the winsock control?