在局域网内，把一个文件传送到另一台计算机的指定目录。

Question

请教高手，我想实现文件传送的功能，从一台计算机传送到另一台计算机的指定目录，如果有用户名密码怎么实现。

Answer 1

用FSO，他支持UNC路径：Option ExplicitPrivate Sub Command1_Click()
   '需要引用Microsoft Scripting Runtime
    Dim FSO As New FileSystemObject
    Dim mfolder As Folder
    Set mfolder = FSO.GetFolder("\\server1\aaa\")
    Dim mfile As File
    For Each mfile In mfolder.Files
        FSO.CopyFile mfile, "\\server2\bbb\" + mfile.Name
    Next
    Set mfile = Nothing
    Set mfolder = Nothing
    Set FSO = Nothing
End Sub

Answer 2

可以参考
http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=183685

Answer 3

如果有用户名密码，参考API函数：WNetCancelConnection2