How can you deselect all documents in a view using LotusScript?

[Replicator]

The only way I know is to run an agent that processes selected documents.
Is there any way to deselect documents without running an agent?

 

[arpita123]

WELL U CAN HAVE THE @COMMAND([EDITDESELCTALL])IN AN AGENT AND THEN RUN THE AGENT THROUGH UR SCRIPT. HOPE IT WORKS

 

[Replicator]

Thanks. It works!

 

[Replicator]

I've now found a better solution....
Sub Deselect_All_Docs
Dim ws As New Notesuiworkspace
Dim uiview As Notesuiview
Dim Doc As NotesDocument

Set uiview = ws.Currentview
Set collection = uiview.documents

For I% = 1 To collection.count
Set Doc = collection.getnthdocument( I% )
Call uiview.documents.Deletedocument( Doc )
Next
End Sub