BeforeItemCopy 事件

复制项目时发生。该事件在开始后可以取消。

expression  该表达式返回一个在类模块中以事件形式声明的 Explorer 对象。

Cancel  必选，Boolean 类型。当事件发生时为 False。如果事件过程将此参数设为 True，将不完成该操作，并且不复制项目。

示例

以下示例在复制项目前提示用户。向用户显示一条消息验证是否要复制该项目。如果用户单击“是”，就复制该项目。

Private Sub objExplorer_BeforeItemCopy(Cancel As Boolean)
'Prompts the user before copying an item

   Dim lngAns As Long 'user answer
   'Display question to user
   lngAns = MsgBox("Are you sure you want to copy the item?", vbYesNo)
   If lngAns = vbYes Then
       Cancel = False
   Else
       'Set Cancel argument based on answer
       Cancel = True
   End If

End Sub