Groupwise Developer's Guide

On Error GoTo FldrErr
gwMainFolder.Delete
Exit Sub
FldrErr:
Msgbox “Error Deleting Folder: ” & Err.Description & Err.Number
Exit Sub
46
Example in Delphi:
//gwAccount is a valid Account object
procedure DeleteFolder;
var gwAllFolders, gwFolder:variant;
MainFolder:string;
begin
MainFolder:='MainFolder';
gwAllFolders:=gwAccount.AllFolders;
try
gwFolder:=AllFolders.ItemByName(MainFolder);
gwFolder.Delete;
except
ShowMessage('Error Deleting Folder');
end;
end;
Moving a Folder
To move a folder, use Folder.Move(). This method takes one parameter
called DestFolder which must be a valid Folder object. The Mailbox,
Calendar, and Query folders should not be used. The following code example
moves the first folder in the cabinet, if it exists, into the RootFolder:
Example in VB:
'gwAccount is a valid Account object
Dim gwFolders As GroupwareTypeLibrary.Folders
Dim gwFolder1 As GroupwareTypeLibrary.Folder2
Dim gwFolder2 As GroupwareTypeLibrary.Folder2
Private Sub MoveFolder()
Set gwFolders = gwAccount.Cabinet.Folders
If gwFolders.Count > 0 Then
Set gwFolder1 = gwAccount.Cabinet.Folders.Item(1)
Set gwFolder2 = gwAccount.RootFolder
On Error GoTo FldrErr
gwFolder1.Move gwFolder2
End If
Exit Sub
FldrErr:
Msgbox “Error with move: ” & Err.Description & Err.Number
End Sub
www.novell.com/appnotes