kopieren von Dateien in mehrere Unterordner mit vba

Ich habe gesehen, einige Dokumentation, die auf dieser aber bisher nichts, dass ich schon in der Lage zu replizieren, die für mein spezielles Projekt.

Mein code verweist auf ein Verzeichnis mit 60 oder so Unterordnern. Innerhalb dieser Unterordner sind mehrere Dateien .PDF/.XLS etc. Der folgende code funktioniert einwandfrei, wenn die Dateien nicht eingebettet sind in die Unterordner, aber das, was ich tun müssen, ist in der Lage sein, um eine Schleife durch die Unterordner und ziehen Sie die Dateien selbst zu bewegen. Auch ist es ein Weg, um schließlich ziehen Sie Dateien durch Platzhalter Namen? 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
  • Haben Sie überprüft, this?
  • Ich.. ich bin mir nicht sicher, wie Sie Sie zu integrieren, die mit dem, was ich bereits habe.
InformationsquelleAutor gfuller40 | 2014-10-01
Schreibe einen Kommentar