[VB学习]VB6.0中怎么复制、移动文件？.doc.doc

文档介绍：[VB 学****中怎么复制、移动文件? 转自: [url]http://zhidao./question/[/url] 有两种方法可以实现,第一使用 API 函数代码如下: Option Explicit '声明移动文件的 API 函数 Private Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long Private mand1_Click() Dim str1 As String '存放原始路径 Dim str2 As String '要复制的路径 str1 = "c:\123\" str2 = "c:\456\" str1 = str1 + "" '倘若原始文件不存在 If Dir(str1) = "" Then MsgBox "原始文件未找到!", vbOKOnly + vbExclamation Exit Sub End If'移动文件 MoveFile str1, str2 MsgBox "文件移动成功!", vbOKOnly + vbInformation End Sub 首先你要先在 c盘下面建立 123 和 456 这两个文件。++++++++++++++++++++++++++++++++= 第二种方法,使用 VB 自身的函数实现,代码稍有变动,具体如下: Option Explicit Private mand1_Click() Dim str1 A