Ich habe Dokumentation dazu gesehen, aber bisher nichts, was ich für mein bestimmtes Projekt replizieren konnte.

Mein Code zeigt auf ein Verzeichnis, das etwa 60 Unterordner enthält. In diesen Unterordnern befinden sich mehrere Dateien .PDF / .XLS usw. Der folgende Code funktioniert einwandfrei, wenn die Dateien nicht in den Unterordnern eingebettet sind. Ich muss jedoch in der Lage sein, die Unterordner zu durchlaufen und die Dateien selbst zu verschieben. Gibt es auch eine Möglichkeit, Dateien nach Platzhalternamen zu ziehen? Vielen Dank im Voraus für jede Hilfe.

  Dim FSO As Object
  Dim FromPath As String
  Dim ToPath As String
  Dim Fdate As Date
  Dim FileInFromFolder As Object

  FromPath = "H:\testfrom\"
  ToPath = "H:\testto\"

  Set FSO = CreateObject("scripting.filesystemobject")
  For Each FileInFromFolder In FSO.getfolder(FromPath).Files
  Fdate = Int(FileInFromFolder.DateLastModified)
      If Fdate >= Date - 1 Then

        FileInFromFolder.Copy ToPath

    End If
Next FileInFromFolder
End Sub