怎么通过局域网拷文件？

Question

我有源程序，需要的话请发email至[email protected].
可一定要给分哦！

Answer 1

最简单的用
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long【函数】
CopyFile【操作系统】
Win9X:Yes
WinNT:Yes【声明】
CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long【说明】  复制文件。与vb的filecopy命令相似 【返回值】  Long，非零表示成功，零表示失败。会设置GetLastError 【其它】
【参数表】
  lpExistingFileName -  String，源文件名  lpNewFileName --  String，目标文件名  bFailIfExists --  Long，如果设为TRUE（非零），那么一旦目标文件已经存在，则函数调用会失败。否则目标文件被改写
My_month = Month(Now)
    Dest180 = "\\XZ1\180投诉回复" & My_month & "\" & fileN
    DestOther = "\\XZ1\首问责任\" & fileN
    '回单
    If Src <> "" Then
        If InStr(fileN, "180") > 0 Then
            rtn = CopyFile(Src, Dest180, l_flag)
        Else
            rtn = CopyFile(Src, DestOther, l_flag)
        End If
    End If
    

Answer 2

直接  FileCopy "\\Lei\c:\1.txt" "c:\1.txt" 就行 何必多此一举?
或者 使用引用  Microsoft scipting...
dim FSO as new FileSystemObject
FSO.CopyFile "\\Lei\c:\1.txt" "c:\1.txt"