Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
928to932
928to932
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

heute geänderte Dateien sichern

Forumthread: heute geänderte Dateien sichern

heute geänderte Dateien sichern
28.11.2007 09:28:41
Gregor
Hallo
Nachdem ich nun 2 Stunden in der Recherche erfolglos gesucht habe, wende ich mich an euch:
Suche eine Möglichkeit, die heute geänderten Excel-Dateien im Hauptverzeichnis C:\ inkl. Unterverzeichnisse auf dem Laufwerk G:\ zu sichern (Originaldateien nicht löschen; suche in C:\ + Unterverzeichnisse, Änderungsdatum [heute], *.xls kopieren nach G:\)
Da es sich um mehrere Tausend Dateien handelt (auf dem C:\), müsste der Code relativ schnell sein, damit die Verarbeitung über VBA überhaupt Sinn macht.
Kann mir jemand helfen?
Grüsse
Gregor

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: heute geänderte Dateien sichern
28.11.2007 09:44:00
Rudi
Hallo,

Option Explicit
Sub prcFilesKopieren()
Dim FSO As Object, oFolder As Object
Dim strFolder As String
Application.ScreenUpdating = False
strFolder = "c:\"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = FSO.GetFolder(strFolder)
prcFiles oFolder
prcSubFolders oFolder
Application.ScreenUpdating = True
End Sub
Private Sub prcSubFolders(oFolder)
Dim oSubFolder As Object
For Each oSubFolder In oFolder.subfolders
prcFiles oSubFolder
prcSubFolders oSubFolder
Next
End Sub
Private Sub prcFiles(oFolder)
Dim oFile As Object
For Each oFile In oFolder.Files
If Int(oFile.datelastmodified) = Date And oFile Like "*.xls" Then
oFile.Copy "g:\"
End If
Next
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: heute geänderte Dateien sichern
28.11.2007 09:52:00
Gregor
Hallo Rudi
Merci für die Hilfe!
Tip Top!
Grüsse
Gregor
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige