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.net代码篇)

在数据库中我们既可以手动的进行备份与还原,也可通过sql语句进行备份与还原。也可以根据需求设置成自动在规定的时间内进行自动备份。但是对于一般的系统用户来说直接进入比较陌生的数据库来进行设置则显得不是很...
  • Ljm15832631631
  • Ljm15832631631
  • 2016年05月01日 21:28
  • 1418

VB的CRC32校验代码

提供一段VB的CRC检验代码。
  • zdingyun
  • zdingyun
  • 2015年07月11日 10:31
  • 2188

【Visual Basic】纯代码不拖控件,利用动态生成控件的方式完成一个简单的四则运算计算器

vb6是一个典型的拖控件加代码的编程代表,因此也一直被认为难登大雅之堂,但是,在vb6中可以完全纯粹地使用代码控制这个窗体与窗体的控件。这样生成出来的控件位置摆放精确无比,无须拖好控件之后,再利用工具...
  • yongh701
  • yongh701
  • 2015年05月26日 20:55
  • 2413

文件复制器程序(VB6.0源代码编写)利用FileCopy函数复制文件‘CommonDialog1.Filter

  • 2009年01月13日 15:13
  • 7KB
  • 下载

文件管理系统(VB6.0源代码)

  • 2008年12月11日 16:01
  • 18KB
  • 下载

VB实现文件数据对SQL Server上传下载[code.rar]-精品源代码

  • 2009年10月11日 03:35
  • 3KB
  • 下载

多版本文件管理器vb源代码,批处理

  • 2014年04月11日 14:03
  • 1.1MB
  • 下载

vb 文件粉碎机源代码

  • 2011年05月15日 12:05
  • 6KB
  • 下载

文件修改监视系统[VB.net源代码]

  • 2011年08月16日 15:14
  • 74KB
  • 下载

C和VB两程序比比谁的速度快?有源代码文件

  • 2010年07月20日 10:11
  • 74KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB复制文件源代码
举报原因:
原因补充:

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