将文件从本地机拷贝到远程

Option Explicit

Private Sub Command1_Click()
Dim DstFilePath As String
Dim fs As Object

DstFilePath = "//chenfeng/c:/"    '目标文件路径
Set fs = CreateObject("Scripting.FileSystemObject")   '创建文件系统对象
If fs.FileExists(DstFilePath & "csTest.txt") Then
    If MsgBox("你的试卷已经发送,再次发送将覆盖原有试卷", vbCritical + vbOKCancel, "提示") = vbCancel Then End
    fs.DeleteFile DstFilePath & "csTest.txt", True
End If

Me.MousePointer = 11
  fs.CopyFile "c:/csTest.txt", DstFilePath  '复制文件到目标文件夹
Me.MousePointer = 0
End Sub