剪切的代码怎么写 - 编程论坛

snrtjat2013-08-23 14:30

我猜楼主想实现对象转移功能吧
百度的两种方法:将C盘的ABC文件剪切到D盘的ABC
1、使用VB自带的函数:

程序代码：

Private Sub Command1_Click()
FileCopy "C:\abc", "D:\abc" '文件"C:\abc"复制到"D:\abc"
Kill "C:\abc" '删除源文件
End Sub

2、使用API函数:

程序代码：

'先在(声明)部分声明API函数：
Private Declare Function MoveFileEx& Lib "kernel32" Alias "MoveFileExA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal dwFlags As Long)
Private Const MOVEFILE_COPY_ALLOWED = &H2
'然后是移动文件的代码:

Private Sub Command1_Click()
MoveFileEx& "C:\abc", "D:\abc", MOVEFILE_COPY_ALLOWED '移动文件C:\abc至D:\abc
End Sub