Da_Basco
Level-1
- Beiträge
- 104
- Reaktionspunkte
- 21
-> Hier kostenlos registrieren
Guten Abend,
ich habe ein Script erstellt, das Dateien aus einem bestehenden Ordner in einem vorher generierten Ordner kopieren und im Anschluss den Quellordner löschen soll:
Wenn ich jetzt das Script in der RT aufrufe dann erscheint die Fehlermeldung "Fehler: Objekt erforderlich... (Bild im Anhang). Zeile 28 ist die mit "Set cf = fso.CopyFolder(Quelle, Ziel)"
Diese Funktion wird aber ausgeführt weil die Dateien in den durch die vorher ausgeführte Funktion erstellten Ordner "Ziel" kopiert werden. Die nachfolgende Funktion "Delete Folder" wird nicht mehr ausgeführt.
Weiss jemand von euch Rat?
Vielen Dank schon mal!
ich habe ein Script erstellt, das Dateien aus einem bestehenden Ordner in einem vorher generierten Ordner kopieren und im Anschluss den Quellordner löschen soll:
Code:
'--------------------------------------------------------------------
'-------------------------Trend Abschluss---------------------------
'--------------------------------------------------------------------
'---------------Trendaufzeichnung sperren-------------------------
SmartTags("trend_run")=False
'------------------Skriptvariablen deklarieren-----------------------
Dim fso,f,cf,df, Kalenderwoche, Jahr, Quelle, Ziel
'--------------------Skriptvariablen zuweisen-------------------------
Kalenderwoche = DatePart("ww", Date(), vbMonday, vbFirstFourDays)
Jahr = Year(Now)
Quelle = "C:\TREND"
Ziel = "C:\TREND_KW"&Kalenderwoche&"_"&Jahr
Set fso = CreateObject("Scripting.FileSystemObject")
'--------------------Zielordner generieren-------------------------
Set f = fso.CreateFolder(Ziel)
'-------------Quellordner auf Zielordner umkopieren----------------
Set cf = fso.CopyFolder(Quelle, Ziel)
'---------------------Quellordner löschen--------------------------
'Set df = fso.DeleteFolder(Quelle)
Set fso=Nothing
'---------------------Trenderstellung aufrufen--------------------------
A_trend_erstellung
Wenn ich jetzt das Script in der RT aufrufe dann erscheint die Fehlermeldung "Fehler: Objekt erforderlich... (Bild im Anhang). Zeile 28 ist die mit "Set cf = fso.CopyFolder(Quelle, Ziel)"
Diese Funktion wird aber ausgeführt weil die Dateien in den durch die vorher ausgeführte Funktion erstellten Ordner "Ziel" kopiert werden. Die nachfolgende Funktion "Delete Folder" wird nicht mehr ausgeführt.
Weiss jemand von euch Rat?
Vielen Dank schon mal!