Option Explicit
 
Dim FSO, file, fileZiel, lastmodified, lastmodifiedZiel, folder, f1, s, _
  Dateiliste, f2, folderZiel, file2, file2Z, t
 
Set fso = CreateObject("Scripting.FileSystemObject")
   Set folder = fso.GetFolder("\\server\ablage\zentral\allgemein\")
   Set folderZiel= fso.GetFolder("D:\versuch\")
   Set file = folder.Files
   Set fileZiel = folderZiel.Files
   For Each f1 in file
      s = s & f1.name
 
	for each f2 in fileZiel
	     t = t & f2.name
    	   	lastmodified = s
		lastmodifiedZiel = t
 
			if lastmodified>lastmodifiedZiel then
 
				FSO.CopyFile lastmodified, lastmodifedZiel, true
 
				Msgbox "Die lokale Datei wurde aktualisiert!" & t
 
			else
 
				Msgbox "Sie haben die aktuelle Datei!" & lastmodified
 
			end if
 
	Next
Next
 
   msgbox "Wenn vor dieser Dialogbox nix kam, ist der Versuch gescheitert"