Option Explicit
Private strUser As String
Private strFolder As String
Public colReports As Collection
Public Property Get GetUser() As String
GetUser = strUser
End Property
Public Property Let SetUser(ByVal pUser As String)
strUser = pUser
End Property
Public Property Get GetFolder() As String
GetFolder = strFolder
End Property
Public Property Let SetFolder(ByVal pFolder As String)
strFolder = pFolder
End Property
Public Sub AddReport(ByRef pReport As cReport)
If colReports Is Nothing Then Set colReports = New Collection
colReports.Add pReport
End Sub
Public Sub get_all_reports()
Dim i As cReport
For Each i In colReports
Debug.Print i.GetFilename
Debug.Print vbTab & i.GetMonth
Debug.Print vbTab & i.GetYear
Next i
End Sub