如何用VB实现文件传输?

'// Server

Option Explicit

Dim m_sockets As Integer
Dim srvpath As String
Dim IsReceived As Boolean
Dim onlines As Long

Const PORT = 32654

Private Sub Form_Load()

onlines = 0
m_sockets = 0

Winsock1(m_sockets).LocalPort = PORT
Winsock1(m_sockets).Bind
Winsock1(m_sockets).Listen

End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer

For i = 0 To m_sockets
If Winsock1(i).State = sckConnected Then
Winsock1(i).SendData "close"
End If
Winsock1(i).Close
Next i

End Sub

Private Sub Winsock1_Close(I