Const pfadServer = "\\server\ablage\zentral\allgemein\"
Const pfadLokal = "D:\versuch\"
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set folderServer = fso.GetFolder(pfadServer)
Set folderZiel= fso.GetFolder(pfadLokal)
Set fileServer = folderServer.Files
Set fileZiel = folderZiel.Files
 
For Each f1 In fileServer
serverName = f1.name
serverLM = f1.DateLastModified
msgbox serverName
msgbox serverLM
 
	For Each f2 In fileZiel
		if StrComp(serverName,f2.name,1)=0 and StrComp(serverLM,f2.DateLastModified) _
  then
 
		else
		fso.CopyFile pfadServer& f2.name,pfadLokal & f2.name,true 
		end if
	Next
 
Next