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

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

转自：[url]http://zhidao.baidu.com/question/10741489.html[/url]

有两种方法可以实现，第一使用API函数代码如下：

Option Explicit

'声明移动文件的API函数

Private Declare Function MoveFile Lib \"kernel32\" Alias \"MoveFileA\" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long

Private Sub Command1_Click()

Dim str1 As String

'存放原始路径

Dim str2 As String

'要复制的路径

str1 = \"c:\\123\\\"

str2 = \"c:\\456\\123.exe\"

str1 = str1 + \"123.exe\"

'倘若原始文件不存在

If Dir(str1) = \"\" Then

MsgBox \"原始文件未找到!\

Exit Sub

End If

'移动文件

MoveFile str1, str2

MsgBox \"文件移动成功!\

End Sub

首先你要先在c盘下面建立123和456这两个文件。

＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＝

第二种方法，使用VB自身的函数实现,代码稍有变动，具体如下：

Option Explicit

Private Sub Command1_Click()

Dim str1 As String

'存放原始路径

Dim str2 As String

'要复制的路径

str1 = \"c:\\123\\\"

str2 = \"c:\\456\\123.exe\"

str1 = str1 + \"123.exe\"

'倘若原始文件不存在

If Dir(str1) = \"\" Then

MsgBox \"原始文件未找到!\

Exit Sub

End If

FileCopy str1, str2 'FileCopy是复制文件的函数

Kill str1 '复制好了，删除原始文件！

MsgBox \"文件移动成功!\

End Sub