I want to send the document from view to folder

Hi can anyone help me

I write an agent to move the document from to folder named sushant but it is not working can anyone help me

Sub Click(Source As Button)

Dim ws As New NotesUIWorkspace

Call ws.folder("sushant", True)

End Sub

Subject: I want to send the document from view to folder

if u have a whole document collection that has to be put in folder then use Call documentcollection.PutAllInFolder(“sushant”)

if there is a single document then use call document.PutInFolder(“sushant”)

Subject: RE: I want to send the document from view to folder

and you cannot remove the document from the view. views display documents based on a selection formula. The only wayt to remove the coument from the view is to modify it in some way so that it does not meet the selection criteria. The easiest way to do this is to set a field, maybe call it ExcludeFromView and set it’s value to “Y” then in your view’s selection formula add: & ExcludeFromView != “Y”