如何实现局域网内的文件复制？？？

[scand]

假设除了服务器main，局域网内还有从s1-s6的6台机器，如何实现在s1上把s2-s5的e盘的所有文件复制到服务器？？？

[scand]

因为是多台机器的文件拷贝，而且要用vb编程实现，不是只打dos命令那么简单。

[scand]

Dim i As Integer
For i = 0 To File1.ListCount - 1
If File1.Selected(i) Then
FileCopy File1.Path + " \ " + File1, "\\S14\e\lunwen\*.doc"

End If
Next
End Sub


Private Sub Form_Load()
Dim comname, keyname As String
Dim i, j, count As Integer
count = GetPrivateProfileInt("networks", "count", 0, App.Path + "\lunwen.ini")
For i = 1 To count
keyname = "computer" + Trim(Str(i))
j = GetPrivateProfileInt("networks", keyname, 0, App.Path + "\lunwen.ini")
' j = GetPrivateProfileString("networks", keyname, "123", computername, Len(computername), "E:\毕业设计\lunwen.ini")

List1.AddItem "S" + Trim(Str(j))
Next
File1.Pattern = "*.doc"

End Sub


Private Sub List1_Click()
On Error Resume Next

File1.Path = "\\" + List1 + "\e\lunwen\"
If Err.Number <> 0 Then MsgBox "这台机器没开或者没有共享"
End Sub


谁帮我看看语句的错误。

[Triumph]

类似于：
Copy \\S2\E\*.* \\Main\AAA
当然，首先要设置共享，比如上面的 E 和 AAA 就分别是S2和MAIN上的共享文件夹。