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中filecopy拷贝文件

FileCopy("源文件名","目标文件名") 两个参数都是必选的,且都包含路径。 在VB中filecopy函数可以直接调用。而CopyFile函数则不能要先定义filesystemobjec...
  • myinc
  • myinc
  • 2013年12月05日 17:03
  • 4031

VB.Net语言 复制、删除文件案例

VB.NET语言经过长时间的发展,很多用户都很了解VB.NET语言了,这里我发表一个关于VB.Net语言 复制、删除文件的例子,和大家一起分享一下。   VB.Net语言 复制、删除文件代码:  ...

源代码 在文件中删除一行 vb

  • 2009年06月17日 12:41
  • 2KB
  • 下载

VB.Net语言 复制、删除文件

VB.NET版  转http://blog.sina.com.cn/s/blog_4cda671e010008ng.htmlImports System.IO Imports System.IO.D...
  • wybshyy
  • wybshyy
  • 2016年08月01日 16:56
  • 219

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

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

vb-复制ie临时文件夹下所有mp3文件到指定目录,并且将utf8编码转换过来

Option Explicit '引用Microsoft Scripting RunTime Dim m_objFSO As New FileSystemObject '定义文件系统对象 P...
  • sysdzw
  • sysdzw
  • 2011年04月27日 18:35
  • 1776
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB复制文件源代码
举报原因:
原因补充:

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