Option Explicit
 
' Variablendeklaration
  Dim objFSO, objShell
  Dim strUser
  Dim strPathQuelle, strPathZiel
  Dim strFile, strFileQuelle, strFileziel
 
' Objekte erzeugen
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objShell = CreateObject("Wscript.shell")
 
' Jetzt den Usernamen ermitteln
 
  Const strBaseKey = _
    "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Logon User Name"
  strUser = objShell.regread(strBaseKey)
 
' Jetzt die weiteren Aktionen starten…
 
  strPathZiel = "K:\" & strUser & "\blablabla"
  strPathQuelle = "Z:\blabla"
 
  strFile ="Datei.xls"	
 
  strFileQuelle = strPathQuelle & strFile
  strFileziel = strPathZiel & strFile
 
  If objFSO.FileExists(strFileQuelle) = True And objFSO.FileExists(strFileziel) _
    = False Then
    ' kopiere die Datei wenn Sie auf dem Quelllaufwerk vorhanden ist aber nicht 
    ' auf dem Ziellaufwerk
    objFSO.Copyfile strFileQuelle, strFileziel, True
  ElseIf objFSO.FileExists(strFileQuelle) = True And objFSO.FileExists( _
    strFileziel) = True Then
    ' kopiere die Datei wenn die auf dem Quelllaufwerk aktueller ist als die 
    ' auf dem Ziellaufwerk
    Set FileQuelle = objFSO.getfile(strFileQuelle)
    Set FileZiel = objFSO.getfile(strFileziel)
    If FileQuelle.DateCreated > FileZiel.DateCreated Then
      objFSO.Copyfile strFileQuelle, strFileziel, True
    End If
  ElseIf objFSO.FileExists(strFileQuelle) = False And objFSO.FileExists( _
    strFileziel) = True Then
    ' lösche die Datei wenn Sie auf dem Quelllaufwerk nicht vorhanden ist aber 
    ' auf dem Ziellaufwerk
    objFSO.DeleteFile strFileziel
  End If