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