Set fs = CreateObject("Scripting.FileSystemObject")
    Set F = fs.GetFile(strConfPath)
 
    Set strStream = F.OpenAsTextStream(ForReading, TristateUseDefault)
    'Anzahl der zu überwachenden Verzeichnisse
    AnzahlDir = 0
 
    Do Until strStream.AtEndOfStream
        ' String aus der Datei lesen
        strText = strStream.ReadLine
        i = 1
        pos1 = 1
        pos2 = pos1 + 1
        'Extrahieren der einzelnen Zeileneinträge
        Do
            pos2 = InStr(pos1, strText, ";")
            If pos2 = 0 Then
                vConf(i) = Mid(strText, pos1)
            Else
                vConf(i) = Mid(strText, pos1, pos2 - pos1)
            End If
            i = i + 1
            pos1 = pos2 + 1
        Loop Until i > 4
 
        ' und eintragen
        Me.Add vConf(1), _
            vConf(2), _
            vConf(3), _
            vConf(4)
 
     Loop