Script\code for deleting "$polices"

HCL Domino Domino Forum
1

Hello,Can any one provide me script\code for deleting “$polices” from local names.nsf ?

Thanks…

2

Subject: Here’s what I did…

I hung this one on a button hotspot and emailed it to the people who needed to have the $Policies deleted.

Sub Click(Source As Button)

Dim msg As String		'Any messages to user go here

Dim ItemCntr As Integer		'Number of entries in view

'* Get database

Dim db As New notesDatabase("","")	

Call db.Open( "", "Names.nsf" )	'User's NAB

'* Get View

Dim v As NotesView

Set v=db.getview("($Policies)")	'Policy view



Dim delvc As NotesViewEntryCollection	'View Entries to delete

Set delvc = v.Allentries		'Get all entries in view

ItemCntr% = Delvc.count			'and count them

If Delvc.count > 0 Then			'If there are policy documents

	Call Delvc.RemoveAll(True)	'Delete them all

End If

msg$ = Cstr(ItemCntr%) & " items removed." & Chr$(13) & "Task Complete"

Msgbox msg$	'And tell user

End Sub

Good luck,

Jack

3

Subject: $policies

Thanks a lot… Its working fine as I desired.