我正在尝试创建一个文件共享程序。至此，连接和文件传输部分已经处理完毕。但我目前在如何正确接收和保存文件方面遇到问题。
当且仅当我将在服务器端指定其名称和扩展名时，我才能成功接收文件。现在我的问题是，如何检索文件的名称和扩展名，以便在服务器上成功接收文件？我的意思是我不想在每次收到文件时都指定一个名称。这可能吗？我正在考虑通过另一个网络流发送文件名，但我想有更好的方法来做到这一点。
提前致谢！
这是错误的屏幕截图。
http://i.stack.imgur.com/XkpZ2.png
服务器端代码
While True
Dim c As TcpClient = server.AcceptTcpClient
Dim s As NetworkStream = c.GetStream
FileOpen(1, filePath, OpenMode.Binary)
Dim buffer(1024 - 1) As Byte
Do While True
Dim bytesRead As Integer = s.Read(buffer, 0, buffer.Length)
If bytesRead = 0 Then Exit Do
FilePut(1, buffer)
Loop
FileClose(1)
s.Close()
c.Close()
End While
客户端代码
Dim nstm As Stream = cli.GetStream()
Dim fstm As Stream = New FileStream(filePath, FileMode.Open, FileAccess.Read)
Dim buffer(1024 - 1) As Byte
Do While True
Dim bytesRead As Integer = fstm.Read(buffer, 0, buffer.Length)
If bytesRead = 0 Then Exit Do
nstm.Write(buffer, 0, bytesRead)
Loop
