Vielen Dank an euch, wie ihr geschrieben habt funktioniert es!

Hier nochmal der Code:

Code:
'--------------------------------------------------------------------
'-------------------------Trend Abschluss---------------------------
'--------------------------------------------------------------------
 
'---------------Trendaufzeichnung sperren-------------------------
 
SmartTags("trend_run")=False
 
'------------------Skriptvariablen deklarieren-----------------------
 
Dim fso, Kalenderwoche, Jahr, h,m,s, Quelle, Ziel
 
'--------------------Skriptvariablen zuweisen------------------------- 
 
Kalenderwoche = DatePart("ww", Date(), vbMonday, vbFirstFourDays)
Jahr = Year(Now)
h = Hour(Now)
m = Minute(Now)
s = Second(Now)
Quelle = "C:\TREND"
Ziel = "C:\TREND_KW"&Kalenderwoche&"_"&Jahr&"_"&h&m&s
Set fso = CreateObject("Scripting.FileSystemObject")
 
'--------------------Zielordner generieren------------------------- 
If Not fso.FileExists (Ziel) Then
fso.CreateFolder Ziel
End If
 
'-------------Quellordner auf Zielordner umkopieren----------------
 
fso.CopyFolder Quelle, Ziel
 
'---------------------Quellordner löschen--------------------------
 
fso.DeleteFolder Quelle
Set fso=Nothing
 
'---------------------Trenderstellung aufrufen--------------------------
 
A_trend_erstellung