'Datei kopieren
  Dim sFile As String
  Dim sCopyTo As String
 
  'Ausgangsdatei
  sFile = "F:\User\Ofen2\I_Wert\*.*"
 
  'Neues Ziel
  sCopyTo = "F:\Abteilung\Elektro\Datensicherung\Ofen2\" & Date & "\I_Wert\"
 
  'Datei kopieren: Vorhandene Datei nicht überschreiben!
  oFSO.CopyFile sFile, sCopyTo, False

Thanks 4 Help

Das wichtigste ist Ruhe bewaren!

Surftip:
Allroundforum
www.mt-arens.de