'clsUnterordner
Option Explicit
Private m_objUnterordner As Collection
 
Private Sub Class_Initialize()
    Set m_objUnterordner = New Collection
End Sub
Private Sub Class_Terminate()
    Set m_objUnterordner = Nothing
End Sub
Public Property Get UnterordnerIndex(vntIndex As Variant) As clsEigenschaften
    Set UnterordnerIndex = m_objUnterordner(vntIndex)
End Property
Public Property Get Unterordner() As Collection
    Set Unterordner = m_objUnterordner
End Property
Public Property Get UnterordnerAnzahl() As Long
    UnterordnerAnzahl = m_objUnterordner.Count
End Property
Public Function UnterordnerHinzufügen(strPfad As String, strName As String)
    Dim objUnterordner As clsEigenschaften
    If Exists(strPfad & strName) Then
        MsgBox "Dieser Eintrag existiert bereits"
    Else
        Set objUnterordner = New clsEigenschaften
        objUnterordner.Pfad = strPfad
        objUnterordner.Name = strName
        m_objUnterordner.Add objUnterordner, strPfad & strName
    End If
End Function
Public Function Exists(vntIndex As Variant) As Boolean
On Error Resume Next
    Exists = Not CBool(m_objUnterordner(vntIndex) Is Nothing)
End Function
Public Sub Remove(vntIndex As Variant)
    m_objUnterordner.Remove vntIndex
End Sub

'clsDatei
Option Explicit
Private m_objDatei As Collection
 
Private Sub Class_Initialize()
    Set m_objDatei = New Collection
End Sub
Private Sub Class_Terminate()
    Set m_objDatei = Nothing
End Sub
Public Property Get DateiIndex(vntIndex As Variant) As clsEigenschaften
    Set DateiIndex = m_objDatei(vntIndex)
End Property
Public Property Get Datei() As Collection
    Set Datei = m_objDatei
End Property
Public Property Get DateiAnzahl() As Long
    DateiAnzahl = m_objDatei.Count
End Property
Public Function DateiHinzufügen(strPfad As String, strName As String)
    Dim objDatei As clsEigenschaften
    If Exists(strPfad & strName) Then
        MsgBox "Dieser Eintrag existiert bereits"
    Else
        Set objDatei = New clsEigenschaften
        objDatei.Pfad = strPfad
        objDatei.Name = strName
        m_objDatei.Add objDatei, strPfad & strName
    End If
End Function
Public Function Exists(vntIndex As Variant) As Boolean
On Error Resume Next
    Exists = Not CBool(m_objDatei(vntIndex) Is Nothing)
End Function
Public Sub Remove(vntIndex As Variant)
    m_objDatei.Remove vntIndex
End Sub

'clsEigenschaften
Option Explicit
Private m_strName As String
Private m_strPfad As String
 
Public Property Get Name() As Date
    Name = m_strName
End Property
Public Property Get Pfad() As String
    Pfad = m_strPfad
End Property
 
Public Property Let Name(strName As String)
    m_strName = strName
End Property
Public Property Let Pfad(strPfad As String)
    m_strPfad = strPfad
End Property