Thema Datum  Von Nutzer Rating
Antwort
Rot Auslesen eines Objektes
 03.07.2014 16:55:14 Robert
NotSolved
03.07.2014 19:15:12 Gast67899
NotSolved

Ansicht des Beitrags:
Von:
Robert		 Datum:
03.07.2014 16:55:14		 Views:
1278		 Rating:
     
Antwort:
  Ja
Thema:
Auslesen eines Objektes

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Auslesen eines Objektes
 03.07.2014 16:55:14 Robert
NotSolved
03.07.2014 19:15:12 Gast67899
NotSolved