VB编写文件或文件夹复制粘贴问题（万分火急）

来源：百度知道 编辑：UC知道 时间：2024/05/06 20:25:14
在vb窗体上做一个Toolbar控件上面有两个按钮，一个复制一个粘贴，并且有文件夹列表和文件列表，请问下如何编写程序可以让我选择了文件列表中的一个文件按下复制后在换个文件夹按粘贴可以让文件复制过来~，课程设计万分火急麻烦那位帮我解决下难题，谢谢了。（新号分不多见谅啊）

'分二步
'一、把下面代码复制到模块中：
Option Explicit
Private Type POINTAPI
x As Long
y As Long
End Type

Private Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As String
End Type
Private Declare Function SHFileOperation Lib "shell32.dll" Alias _
"SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

''剪贴版处理函数
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long
Private Declare Func