如何将局域网内某台计算机上的文件复制到局域网另一台计算机上?

Question

如何将局域网内某台计算机上指定文件夹下的文件复制到局域网另一台计算机上呢?
大虾们游过请留声:)

Answer 1

用ftp控制吧,或者目标电脑上建共享文件夹

Answer 2

不了解FTP的原理,大概是个什么思路呢?是不是较麻烦的

Answer 3

Declare Function CopyFileEx Lib "kernel32.dll" Alias "CopyFileExA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal lpProgressRoutine As Long, lpData As Any, ByRef pbCancel As Long, ByVal dwCopyFlags As Long) As LongDeclare Function MoveFileWithProgress Lib "kernel32.dll" Alias "MoveFileWithProgressA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByRef lpProgressRoutine As Long, lpData As Any, ByVal dwFlags As Long) As Longor...FSOor...SHFileOperation

Answer 4

用VB的FTP函数比较好点 也效率一点'模块一Public bActiveSession As Boolean '用以标示已经建立了FTP连接
Public hOpen As Long '用InternetOpen（）函数建立Internet对话后返回的句柄
Public hConnection As Long '用InternetConnect（）函数建立FTP连接后返回的句柄
Public dwType As Long
Public EnumItemNameBag As New Collection '用以存放查找到的FTP目录下的文件名
Public EnumItemAttributeBag As New Collection '用以存放与EnumItemNameBag中相对应的文件名的属性
Public Function OPEN_FTP() As Boolean ' 连接FTP
Dim nFlag As Long
On Error GoTo ErrHand
    bActiveSession = False
    hOpen = 0
    hConnection = 0
    hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PROXY, SERVER_IP, vbNullString, 0)
  
    If hOpen = 0 Then
         OPEN_FTP = False
         Exit Function
    Else
         dwType = FTP_TRANSFER_TYPE_BINARY
    End If
       
    If Not bActiveSession And hOpen <> 0 Then
    nFlag = INTERNET_FLAG_PASSIVE
    PORT = Val(SERVER_PORT)
    hConnection = InternetConnect(hOpen, SERVER_IP, PORT, STRUser, STRPass, INTERNET_SERVICE_FTP, nFlag, 0)
    
        If hConnection = 0 Then
            bActiveSession = False
            OPEN_FTP = False
        Else
            bActiveSession = True
            OPEN_FTP = True
        End If
    End If
   Exit Function
ErrHand:
    OPEN_FTP = False
End FunctionPublic Function CLOSE_ftp() As Boolean '关闭FTP
   If hConnection <> 0 Then
      InternetCloseHandle hConnection
  End If
      hConnection = 0
      bActiveSession = False
End Function
Public Function Look_FTPpath(ByVal FTP_pathname As String) As Integer
Dim Ftp_state As Boolean
On Error GoTo ErrHand
 
    If bActiveSession Then
       If FTP_pathname <> "" Then
         Ftp_state = FtpSetCurrentDirectory(hConnection, FTP_pathname)
         If Ftp_state Then
             Look_FTPpath = 0
         Else
             Look_FTPpath = 1
         End If
       Else
        Look_FTPpath = 2
       End If
    Else
           Look_FTPpath = 3
    End If
      Exit Function
ErrHand:
    Look_FTPpath = 4
End FunctionPublic Function MD_FTPpath(ByVal FTP_pathname As String) As Integer
Dim Ftp_state As Boolean
On Error GoTo ErrHand
   If bActiveSession Then
     If FTP_pathname <> "" Then
        Ftp_state = FtpCreateDirectory(hConnection, FTP_pathname)
         If Ftp_state Then
            MD_FTPpath = 0
         Else
             MD_FTPpath = 1
         End If
     Else
        MD_FTPpath = 2
       End If
   Else
        MD_FTPpath = 3
   End If
   Exit Function
   
ErrHand:
    MD_FTPpath = 4
End FunctionPublic Function UP_FTPfile(ByVal LOCAL_filename As String, ByVal FTP_pathname As String, ByVal FTP_filename As String) As Integer
Dim Ftp_state As Boolean
Dim szFileRemote As String, szFileLocal As String
On Error GoTo ErrHandIf bActiveSession Then
    szFileLocal = LOCAL_filename
    szFileRemote = "\" + FTP_pathname + "\" + FTP_filename
    Ftp_state = FtpPutFile(hConnection, szFileLocal, szFileRemote, dwType, 0)
      If Ftp_state Then
            UP_FTPfile = 0
      Else
            UP_FTPfile = 1
      End If
 Else
   UP_FTPfile = 2
 End If
 Exit Function
   
ErrHand:
    UP_FTPfile = 4
End Function'模块2
Option Explicit
Public Const MAX_PATH = 260
Public Const NO_ERROR = 0
Public Const FILE_ATTRIBUTE_READONLY = &H1  '只读文件
Public Const FILE_ATTRIBUTE_HIDDEN = &H2   '隐含文件
Public Const FILE_ATTRIBUTE_SYSTEM = &H4   '系统文件
Public Const FILE_ATTRIBUTE_DIRECTORY = &H10   '目录文件（所获取的文件类型是目录）
Public Const FILE_ATTRIBUTE_ARCHIVE = &H20   '存档文件
Public Const FILE_ATTRIBUTE_NORMAL = &H80   '文件没有的其他属性值
Public Const FILE_ATTRIBUTE_TEMPORARY = &H100  '临时文件
Public Const FILE_ATTRIBUTE_COMPRESSED = &H800  '被压缩的文件和目录
Public Const FILE_ATTRIBUTE_OFFLINE = &H1000
Public Const INTERNET_FLAG_RELOAD = &H80000000
Public Const GENERIC_READ = &H80000000
Public Const GENERIC_WRITE = &H40000000
Public Const scUserAgent = "FTP CLIENT"
Public Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Public Const INTERNET_OPEN_TYPE_DIRECT = 1
Public Const INTERNET_OPEN_TYPE_PROXY = 3
Public Const INTERNET_INVALID_PORT_NUMBER = 0
Public Const FTP_TRANSFER_TYPE_ASCII = &H1
Public Const FTP_TRANSFER_TYPE_BINARY = &H1
Public Const INTERNET_FLAG_PASSIVE = &H8000000
Public Const ERROR_INTERNET_EXTENDED_ERROR = 12003
Public Const INTERNET_DEFAULT_FTP_PORT = 21
Public Const INTERNET_DEFAULT_GOPHER_PORT = 70
Public Const INTERNET_DEFAULT_HTTP_PORT = 80
Public Const INTERNET_SERVICE_FTP = 1
Public Const INTERNET_SERVICE_GOPHER = 2
Public Const INTERNET_SERVICE_HTTP = 3
Type FILETIME
        dwLowDateTime As Long
        dwHighDateTime As Long
End Type
Type WIN32_FIND_DATA
        dwFileAttributes As Long '文件的属性
        ftCreationTime As FILETIME '文件的创建时间
        ftLastAccessTime As FILETIME '文件的最后一次被读写的时间
        ftLastWriteTime As FILETIME '文件的最后一次修改的时间
        nFileSizeHigh As Long
        nFileSizeLow As Long
        dwReserved0 As Long
        dwReserved1 As Long
        cFileName As String * MAX_PATH  '用于存放文件名的字符串
        cAlternate As String * 14
End TypePublic Const ERROR_NO_MORE_FILES = 18
Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, _
ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Public Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUsername As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Public Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
Public Declare Function FtpFindFirstFile Lib "wininet.dll" Alias "FtpFindFirstFileA" (ByVal hFtpSession As Long, ByVal lpszSearchFile As String, lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags As Long, ByVal dwContent As Long) As Long
Public Declare Function InternetFindNextFile Lib "wininet.dll" Alias "InternetFindNextFileA" (ByVal hFind As Long, lpvFindData As WIN32_FIND_DATA) As Long
Public Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean
Public Declare Function FtpCreateDirectory Lib "wininet.dll" Alias "FtpCreateDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean
Public Declare Function FtpGetCurrentDirectory Lib "wininet.dll" Alias "FtpGetCurrentDirectoryA" (ByVal hFtpSession As Long, lpszCurrentDirectory As String, lpdwCurrentDirectory As Long) As Boolean
Public Declare Function FtpRemoveDirectory Lib "wininet.dll" Alias "FtpRemoveDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean
Public Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" (ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean
Public Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" (ByVal hFtpSession As Long, ByVal lpszLocalFile As String, ByVal lpszRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean
Public Declare Function FtpOpenFile Lib "wininet.dll" Alias "FtpOpenFileA" (ByVal hFtpSession As Long, ByVal sFileName As String, ByVal lAccess As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Public Declare Function FtpDeleteFile Lib "wininet.dll" Alias "FtpDeleteFileA" (ByVal hFtpSession As Long, ByVal lpszFileName As String) As Boolean
Public Declare Function InternetGetLastResponseInfo Lib "wininet.dll" Alias "InternetGetLastResponseInfoA" (lpdwError As Long, ByVal lpszBuffer As String, lpdwBufferLength As Long) As Boolean

Answer 5

http://www.m5home.com/bak_blog/article/169.html给你一个局域网文件传输的例子

Answer 6

遇到相同问题，VB编的软件要求能自动定时备份到另一台PC。

Answer 7

net use Y: \\192.168.1.101\c$ password1
net use Z: \\192.168.1.102\c$ password2
copy /y Y:\mydir\test.txt Z:\mydir\test.txt
net use Y: /DELETE
net use Z: /DELETE