I guess I should not be finding this difficult but I am getting Subscript out of range error with the following code and don't seem to be able to fix it.
I need to build an array of PST filestore names. Each PST file store begins with "~" with no spaces. I also want to add the Mailbox OST filestore as simply "Mailbox".
Thanks for the help
'Build Array of open filestores
i = 0
For Each oPST In oApp.Session.Folders
If Left(oPST.Name, 1) = "~" Then
'Add filestore to Array aMyStores
aMyStores(i) = CStr(oPST.Name)
i = i + 1
aMyStores(i) = "Mailbox"