Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1032to1036
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Datei lt.Änderungsdatum kopieren

Datei lt.Änderungsdatum kopieren
18.12.2008 12:23:00
Robert
Hallo,
ich bring's nicht fertig:
ich möchte von A nach B Dateien kopieren-
allerdings nur die, deren Änderungsdatum auf A jünger ist, als das Datum auf B
wenn Datei auf B noch nicht vorhanden, von A nach B kopieren
um Hilfe bittet
mit Gruß
Robert

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

Betreff
Datum
Anwender
Anzeige
AW: Datei lt.Änderungsdatum kopieren
18.12.2008 13:21:08
Tino
Hallo,
teste mal diesen Code, Pfad entsprechend anpassen!
Komentare stehen im Code.
Modul Modul1
Option Explicit 
 
Sub Kopiere_Dateien() 
Dim Fso, Ordner, varDatei 
Dim SucheDatei As String, strDatei As String 
Dim strPfad1 As String, strPfad2 As String 
Dim F1, F2 
 
strPfad1 = "J:\Quelle\" 'Quelle 
strPfad2 = "J:\Ziel\" 'Ziel 
 
SucheDatei = ".xls" 'welche Dateien? 
 
Set Fso = CreateObject("Scripting.FileSystemObject") 
Set Ordner = Fso.getfolder(strPfad1) 'Ordner Quelle 
 
'Schleife über alle Dateien im Ordner 
For Each varDatei In Ordner.Files 
  
     'Dateifilter, Platzhalter verwenden 
    If varDatei Like "*" & SucheDatei Then 
     strDatei = Right$(varDatei, Len(varDatei) - InStrRev(varDatei, "\")) 
     Set F1 = Fso.getfile(varDatei) 
        
       If Dir$(strPfad2 & strDatei) <> "" Then 'Datei in Ziel vorhanden? 
           Set F2 = Fso.getfile(strPfad2 & strDatei) 
           If F1.DateLastModified > F2.DateLastModified Then 'Datum letzte Änderung prüfen 
            F1.Copy (strPfad2 & strDatei) 'kopiere 
           End If 
       Else 
           F1.Copy (strPfad2 & strDatei) 'kopiere 
       End If 
     
    End If 
 
Next varDatei 
 
End Sub 
 


Gruß Tino

Anzeige
AW: Super-Tino-Danke!!! owt
18.12.2008 13:44:59
Robert

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige