关闭

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

749人阅读 评论(0) 收藏 举报

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

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:20018次
    • 积分:241
    • 等级:
    • 排名:千里之外
    • 原创:0篇
    • 转载:17篇
    • 译文:0篇
    • 评论:1条
    文章分类
    文章存档
    最新评论
    小说