2 questions. How would I's

[Beacon]

1) How would i detect all mp3's on a system and add the name of them all to a text file?
Or a way of seeing a particular folder on a person har drive?

2) Let other users know what mp3's they have on thier computer and/or search them?

[CyberCarsten]

I have a program that does exactly what you are looking for!
Let me know of you want it....

[Beacon]

Yes please!
I can send and recieve files but i want to search/browse others computers/specified folders.

[CyberCarsten]

Here it is....use it wisely....

[Beacon]

thanks CyberCarsten exactly what i wanted. Except do you know how i can browse/search another computer? Not on a network!

Could i use the ip address instead of c:\??
Stuck!!!

[CyberCarsten]

On the Internet?? Well, that requires a server on the other computer, which scans the harddisk for mp3 files, and then sends the directory listing back to you...It can be done if you are familiar with Internet programming...

[Beacon]

Could you define server for me!
Because i have this: using winsock! Could i do it this way if the computer where running the server!

Dim Total

Private Sub Form_Load()
WS.Listen
End Sub

Private Sub WS_ConnectionRequest(ByVal requestID As Long)
WS.Close
L.Caption = "Connected"
WS.Accept requestID
End Sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim dat$, a

WS.GetData dat$
DoEvents
a = InStr(1, dat$, ",")
If a > 0 Then
a = Mid(dat$, 1, a - 1)
End If
If a = "File" Then
a = InStr(1, dat$, ",")
a = a + 1
a = Mid(dat$, a, Len(dat$) - a + 1)
Open App.Path & "\" & a For Binary As #1
WS.SendData "ok"
Exit Sub
ElseIf UCase(a) = "CLOSE" Then
Close #1
DoEvents
L.Caption = "Received file"
Exit Sub
End If

Put #1, , dat$
WS.SendData "ok"
Total = Total + bytesTotal
L.Caption = "Received " & Total
End Sub

[CyberCarsten]

I guess you could use that.
The serverprogram will be the source I sent you.
Then, just run it, and send the files it finds back to your computer.....
You can find great WinSock examples at www.planetsourcecode.com

[Beacon]

But my problem is that it will be several computers running it!
So it will send the data back as perhaps a text file then put all that into a list box which when you exit is saved as another text file locally.

I'll see how i go and let you know if your interested?

[CyberCarsten]

That sounds great!