How do I create a toolbar button that will remove a folder?

How do I create a button on my toolbar that I can click to remove (delete) the currently selected folder? I understand how to create a custom toolbar but do not how to create a button that will perform the remove folder action.

I am running Lotus Notes client 8.0.1.
zipwilly05Asked:
Who is Participating?
 
Bill-HansonConnect With a Mentor Commented:
Sorry.  I answered assuming you were adding a button to an Action Bar in a Notes application.

There is no solution for what you are trying to do since you can only use @Formula in the toolbar and @Formula does not have any fuctions for removing a folder.

I usually just right-click on the folder name and select "Remove Folder".
0
 
Bill-HansonCommented:
You'll have to use LotusScript for this.

Here's a function that will remove a folder from the current database.  Just change the action type to LotusScript and paste this code into the 'Declarations' module.   Then call the function from the action's click event like this:

Call RemoveFolder("Folder Name")
Sub RemoveFolder(Byval folderName As String)
	
	Dim sess As New NotesSession
	Dim db As NotesDatabase
	Dim folder As NotesView
	Set db = sess.CurrentDatabase
	Set folder = db.GetView(folderName)
	If (folder Is Nothing) Then
		Msgbox "The folder does not exist!"
	Else
		Call folder.Remove
		Set folder = db.GetView(folderName)
		If (folder Is Nothing) Then
			Msgbox "The folder has been removed"
		Else
			Msgbox "Unable to remove the folder!"
		End If
	End If
	
End Sub

Open in new window

0
 
zipwilly05Author Commented:
I have not written a LotusScript before.

How do I tie the execution of this script to toolbar button? Do I paste something into the Formuia box of the dialog that appears when I create a new toolbar button (see attachment)?

Where is the action that you reference in your response?
snap033.bmp
0
 
zipwilly05Author Commented:
I did not realize that command was available. Your answer is most helpful.
0
All Courses

From novice to tech pro — start learning today.