Hallo Zusammen,

wie könnte ich hier die zweite FileSystemObjektvariable "fdateien_Response" so auslesen,

dass ich innerhalb der  "for each" Klausel auf den Inhalt dieser so zugreiffen kann, dass die auskommenzierten Zeilen

mir ein Ergebnis liefern?

Vielen Dank im Voraus

Sub test()

Dim fs As Object
Dim fVerz_Request As Object
Dim fVerz_Response As Object
Dim fDatei_Request As Object
Dim fDatei_Response As Object
Dim fdateien_Request As Object
Dim fdateien_Response As Object
Dim Zeile As Integer


Set fs = CreateObject("scripting.FileSystemObject")
Set fVerz_Request = fs.getFolder("C:\Users\rokotok\Desktop\Test\Request")
Set fVerz_Response = fs.getFolder("C:\Users\rokotok\Desktop\Test\Response")

Set fdateien_Request = fVerz_Request.Files
Set fdateien_Response = fVerz_Response.Files

Zeile = 1

For Each fDatei_Request In fdateien_Request

        Zeile = Zeile + 1
        
        Cells(Zeile, 1) = fDatei_Request.Name
     '  Cells(Zeile, 2) = fDatei_Response.Name
        
        Cells(Zeile, 3) = Format(fDatei_Request.datelastmodified, "dd-mm-yy")
     '  Cells(Zeile, 4) = Format(fDatei_Response.datelastmodified, "dd-mm-yy")
        
        Cells(Zeile, 5) = Format(fDatei_Request.datelastmodified, "hh:mm:ss")
      ' Cells(Zeile, 6) = Format(fDatei_Response.datelastmodified, "hh:mm:ss")
 
 
Next fDatei_Request

End Sub