View Single Post
Old 10-21-2013, 05:11 PM
aaroncrt aaroncrt is offline Windows 7 32bit Office 2010 32bit
Join Date: Oct 2013
Posts: 2
aaroncrt is on a distinguished road

Thanks for the reply.

I managed to get it working by searching the Public Folders sub folders for a match to the input variable string.
I added the following.

ReDim sArray(0) As String
If fld.Folders.Count Then
  For i = 1 To fld.Folders.Count
    If Left(fld.Folders(i).Name, 3) = strProject Then
        iElement = IIf(sArray(0) = "", 0, UBound(sArray) + 1)
        ReDim Preserve sArray(iElement) As String
        sArray(iElement) = fld.Folders(i).Name
    End If
  Next i
Reply With Quote