VB复制文件源代码

原创 2007年09月27日 18:33:00
Private Sub Command1_Click() '确认数据备份
Dim s As String
= 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
= MsgBox("数据已备份完毕!", vbInformation, "提示")
errprompt:
Me.MousePointer 
= 0
Select Case Err.Number
Case 57
= MsgBox("磁盘已满!", vbCritical, "提示")
Case 70
= 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
= MsgBox("数据已备份完毕!", vbInformation, "提示")
errprompt1:
Me.MousePointer 
= 0
Select Case Err.Number
Case 57
= MsgBox("磁盘已满!", vbCritical, "提示")
Case 70
= MsgBox("磁盘写保护!请回到原文件进行复制system.dll", vbCritical, "提示")
End Select
End If
End Sub
 
版权声明:本文为博主原创文章,未经博主允许不得转载。 举报

相关文章推荐

VB源代码

1  课前体验   Private Sub Form_Click()  For i = 1 To 10  For j = 1 To ...

VB学习第十三周几种常见程序源代码

'(1) Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System....

精选:深入理解 Docker 内部原理及网络配置

网络绝对是任何系统的核心,对于容器而言也是如此。Docker 作为目前最火的轻量级容器技术,有很多令人称道的功能,如 Docker 的镜像管理。然而,Docker的网络一直以来都比较薄弱,所以我们有必要深入了解Docker的网络知识,以满足更高的网络需求。

修复Dex文件头--Java源代码

由于需要在android项目中修改dex文件,所以自己实现了一个dex文件头修复。代码如下,可以直接拿来用。比较简单所以就不注释了。 public class FixDexHeaderUti...

源码文件复制工具 for ACMer

介于每次在OJ上做完一题要手动复制粘贴保存一份源文件,所以自己写了一个简单的工具代替手动操作,现与大家分享。 功能 1、提供源文件复制到指定目录的功能; 2、在文件目标文件开始部分加了文件信息,...

复制文件 C代码实现

复制文件过程,即从一个文件中读取内容,然后输出到另一个文件中去,这里用C代码实现,练习一下标准I/O相关的知识。如下所示: 代码文件main.c #include #include ...

Excel 文件复制操作vba代码

worksheet 的代码Const SourceFiledConfigStart As Integer = 2 Const SourceFiledConfigEnd As Integer = 27 ...

vb 整图复制

form1 Private Sub Command_Click() With Picture1 .AutoRedraw = True .ScaleMode = 3 ....

IO流之复制文件

1.使用FileInputStream package cn.itcast.io; import java.io.FileInputStream; import java.io.FileNotFo...

一个经典的文件拷贝程序

今天用到文件复制,总是想不起来这个代码具体怎么写的了,特此记下来,以后不要忘记。 #include #include #include #include ...

Java复制文件:字节流、字符流、数据流

package stream;import java.io.DataInputStream; import java.io.DataOutputStream; import java.io.File;...
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)