用VB如何实现在两台机之间传输文件。。。？

Question

如题，了解的大虾们请复一下。
谢谢。

Answer 1

握写的
http://community.csdn.net/Expert/topic/3515/3515059.xml?temp=.9407617

Answer 2

两台机器，是局域网还是WEB？
如果是局域网的话，一种是实用WINSOCK控件来传送文件内容，一台发，一台收，收完之后写文件，还有一个方法就是直接映射驱动器，就象在自己的电脑上拷贝文件一样（这个最简单）

Answer 3

Private Sub Command1_Click()
   '引用Microsoft Scripting Runtime
    Dim FSO As New FileSystemObject    Dim mfolder As Folder
    Set mfolder = FSO.GetFolder("\\PC025\D$\X\") '指定文件位置
    Dim mfile As File
    For Each mfile In mfolder.Files                '循环文件
        FSO.CopyFile mfile, "\\PC015\XXX\" + mfile.Name '拷贝的指定位置
    Next
    Set mfile = Nothing
    Set mfolder = Nothing
    Set FSO = Nothing
End Sub

Answer 4

Private Sub Command1_Click()
   '引用Microsoft Scripting Runtime
    Dim FSO As New FileSystemObject    Dim mfolder As Folder
    Set mfolder = FSO.GetFolder("\\PC025\D$\X\") '指定文件位置
    Dim mfile As File
    For Each mfile In mfolder.Files                '循环文件
        FSO.CopyFile mfile, "\\PC015\XXX\" + mfile.Name '拷贝的指定位置
    Next
    Set mfile = Nothing
    Set mfolder = Nothing
    Set FSO = Nothing
End Sub

Answer 5

可是我试了这个方法但是只是得到了文件的文件名字并没有把具体的文件拷贝下来，不知道是为什么，希望高手指点一二   谢谢to ：programfish(紫夜) ，你能把你的例子给我也发一份吗？谢谢了！！！

Answer 6

不是有 fileCopy(源路径，目标路径)函数吗？