VB断点拷贝大文件

小弟以前租碟在电脑上看VCD，有时候拷贝经典的影片到硬盘上
可惜碰到比较粗糙的碟子就很难拷贝过去，因此编了个断点拷贝
文件的程序。本程序用于拷贝大文件，并可在旧文件上接着拷贝
本程序能在无法读取数据的情况下复制空白数据并跳过坏数据区
接着拷贝，专门对付烂盘.
本程序特别适合在恶劣的环境下拷贝大文件，比如拷盘，在网络中拷
大文件等。
本程序是一个VB程序，包括5个文件，主窗口为 frmCopy 
使用了 Microsoft Common Dialog Control6.0 和
Micorsoft Windows Common Controls 6.0 两个控件库
拷贝文件使用了Win32API,速度比较快。

###############################################################################
      frmCopy.frm  内容
      
###############################################################################
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmCopy 
   Caption         =   "断点拷贝"
   ClientHeight    =   3555
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9135
   LinkTopic       =   "Form1"
   MaxButton       =   0   ''''False
   ScaleHeight     =   3555
   ScaleWidth      =   9135
   StartUpPosition =   3  ''''窗口缺省
   Begin VB.TextBox TextStart 
      Height          =   300
      Left            =   6330
      TabIndex        =   17
      Text            =   "-1"
      Top             =   735
      Width           =   1410
   End
   Begin VB.PictureBox picStatus 
      Appearance      =   0  ''''Flat
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   195
      Left            =   75
      ScaleHeight     =   165
      ScaleWidth      =   150
      TabIndex        =   14
      Top             =   3075
      Width           =   180
   End
   Begin VB.CheckBox chkFillData 
      Caption         =   "遇到错误时自动填充空白数据"
      Height          =   225
      Left            =   6090
      TabIndex        =   13
      Top             =   405
      Value           =   1  ''''Checked
      Width           =   2670
   End
   Begin VB.CheckBox chkShutdown 
      Caption         =   "完成任务后关机"
      Height          =   315
      Left            =   6090
      TabIndex        =   12
      Top             =   45
      Width           =   1680
   End
   Begin VB.CommandButton cmdCopy 
      Caption         =   "开始拷贝(&S)"
      Height          =   360
      Left            =   6225
      TabIndex        =   10
      Top             =   2535
      Width           =   1170
   End
   Begin VB.CommandButton cmdStop 
      Caption         =   "停止"
      Height          =   360
      Left            =   6255
      TabIndex        =   9
      Top             =   3015
      Width           =   1170
   End
   Begin MSComctlLib.ProgressBar myProc 
      Height          =   360
      Left            =   270
      TabIndex        =   7
      Top             =   2985
      Width           =   5385
      _ExtentX        =   9499
      _ExtentY        =   635
      _Version        =   393216
      Appearance      =   1
      Scrolling       =   1
   End
   Begin MSComDlg.CommonDialog dlgFile 
      Left            =   5265
      Top             =   1395
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
      CancelError     =   -1  ''''True
   End
   Begin VB.CommandButton cmdTo 
      Caption         =   "..."
      Height          =   345
      Left            =   5235
      TabIndex        =   5
      Top             =   1005
      Width           =   510
   End
   Begin VB.CommandButton cmdFrom 
      Caption   
[1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  下一页

没有相关教程


 

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18