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

《[VB学习]VB6.0中怎么复制、移动文件》由会员分享，可在线阅读，更多相关《[VB学习]VB6.0中怎么复制、移动文件（2页珍藏版）》请在装配图网上搜索。

1、VB学习VB6.0中怎么复制、移动文件？转自：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 要复制的路径

2、str1 = c:123 str2 = c:456123.exe str1 = str1 + 123.exe 倘若原始文件不存在 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 Sub

3、 Command1_Click() Dim str1 As String 存放原始路径 Dim str2 As String 要复制的路径 str1 = c:123 str2 = c:456123.exe str1 = str1 + 123.exe 倘若原始文件不存在 If Dir(str1) = Then MsgBox 原始文件未找到!, vbOKOnly + vbExclamation Exit Sub End If FileCopy str1, str2 FileCopy是复制文件的函数Kill str1复制好了，删除原始文件！ MsgBox 文件移动成功!, vbOKOnly + vbInformation End Sub