'*************************************************************
'*   zuerst wird der pm-Ordner nach .xls-Dateien durchsucht  *
'*************************************************************
 
' Ordner, der durchsucht werden soll (inkl. Subordner)
Path = App.Path & "\pm\"
' Anzahl Dateien ermitteln
Count = VBEX_FileCount(Path, 1, "*.xls", Bytes)
ReDim ProjektPM(Count)
ReDim Files(Count)
Count = VBEX_FileList(Path, 1, "*.xls", ProjektPM(), Bytes)
o = -1
For i = 0 To Count
    If Len(ProjektPM(i)) > 13 Then
        o = o + 1
        y = Len(ProjektPM(i))
        x = Left(ProjektPM(i), y - 13)
        Files(o) = x & ".xls"
    End If
Next
 
 
'*************************************************************
'*   dann werden die passenden .xls-Dateien zu den Dateien   *
'*   im Ordner pm gesucht                                    *
'*************************************************************
 
sPath = "C:\Hauser\"
' Anzahl Dateien ermitteln
nCount = VBEX_FileCount(sPath, 1, "*.xls", nBytes)
 
' Array dimensionieren und füllen
ReDim sFiles(nCount)
ReDim Projekt(nCount)
nCount = VBEX_FileList(sPath, 1, "*.xls", Projekt(), nBytes)
For c = 0 To nCount
    a = InStrRev(Projekt(c), "\")
    b = Mid(Projekt(c), a + 1)
    sFiles(c) = b
Next
 
'*************************************************************
'*   Vergleich der beiden Ergebnisse, wenn sie gleich sind   *
'*   wird der Pfad angezeigt                                 *
'*************************************************************
 
' Vergleich ob Dateien aus Files() gleich den Dateien aus sFiles() sind
w = 0
Do While w <= o
    s = 0
    Do While s < nCount
        If sFiles(s) = Files(w) Then
            ' User-Datum (Textfeld - Umwandlung in Date)
            vDate = CDate(txtVon) ' von
            vDate1 = CDate(txtBis) ' bis
            If Int(FileDateTime(sPath & Projekt(s))) >= vDate And _
                Int(FileDateTime(sPath & Projekt(s))) <= vDate1 Then
                    listErgebnis.AddItem sPath & Projekt(s)
            End If
        End If
        s = s + 1
    Loop
    w = w + 1
Loop