VB复制文件源代码

Private Sub Command1_Click() '确认数据备份

Dim s As String

s = MsgBox("准备好了吗？", vbYesNo + vbQuestion, "提示")

If s = vbNo Then

Exit Sub

End If

On Error GoTo errprompt

Me.MousePointer = 11

If Dir(Text1.Text & ":/数据备份", vbDirectory) = "" Then

MkDir Text1.Text & ":/数据备份"

Set bf = CreateObject("Scripting.FileSystemObject")

bf.CopyFile App.Path & "system.dll", Text1.Text & ":/数据备份/system" & Date & ".dll"

Me.MousePointer = 0

s = MsgBox("数据已备份完毕!", vbInformation, "提示")

errprompt:

Me.MousePointer = 0

Select Case Err.Number

Case 57

s = MsgBox("磁盘已满！", vbCritical, "提示")

Case 70

s = MsgBox("磁盘写保护！请回到原文件进行复制system.dll", vbCritical, "提示")

End Select

Else

On Error GoTo errprompt1

Set bf = CreateObject("Scripting.FileSystemObject")

bf.CopyFile App.Path & "system.dll", Text1.Text & ":/数据备份/system" & Date & ".dll"

Me.MousePointer = 0

s = MsgBox("数据已备份完毕!", vbInformation, "提示")

errprompt1:

Me.MousePointer = 0

Select Case Err.Number

Case 57

s = MsgBox("磁盘已满！", vbCritical, "提示")

Case 70

s = MsgBox("磁盘写保护！请回到原文件进行复制system.dll", vbCritical, "提示")

End Select

End If

End Sub