Public Sub CanCopyTestFolder()
' Check if user can copy a test folder

    Dim ActPer As ActionPermission

    'tdc is a TDConnection object
    Set ActPer = tdc.ActionPermission

    If ActPer.ActionEnabled("ac_copy_folder") Then

     ' current user allowed to copy test folder
     ' .... your code here

    Else
      ' current user not allowed to add copy test folder
       ' .... your code here

    End If
End Sub