highpriest
Goto Top

VBScript um alle Dateien aus verschiedenen Ordner in die andere Ordner zu verschieben

Hallo VBS-Experten,

da ich wenig Ahnung von VBScripten habe, benötige ich Eure Hilfe.

Ich brauche einen VBScript, das folgende Aufgabe erfüllen soll:

In den Quellordnern "E:\test\test\a", "E:\test\test\b", "E:\test\test\c" liegen Dateien,
die (alle) in die Zielordner "E:\test\test1\1", "E:\test\test1\2", "E:\test\test1\3"
entsprechend verschoben werden sollen (also a zu 1, b zu 2, c zu 3).
Die Zielordner sind zu diesen Zeitpunkt sind immer leer, also die Abfrage ist nicht wirklich nötig.

Ich bedanke mich im Voraus!

highpriest

Content-ID: 185112

Url: https://administrator.de/forum/vbscript-um-alle-dateien-aus-verschiedenen-ordner-in-die-andere-ordner-zu-verschieben-185112.html

Ausgedruckt am: 23.12.2024 um 00:12 Uhr

60730
60730 17.05.2012 um 01:22:08 Uhr
Goto Top
Moin,

Ich hoffedass ihr mir einen passenden Script schreiben könnt (die Pfade werde ich versuchen selber anzupassen).
  • ymmd schönen Vatertag face-wink

Gruß
netzwerkknecht
netzwerkknecht 17.05.2012 um 14:26:15 Uhr
Goto Top
TsukiSan
TsukiSan 17.05.2012 um 14:31:15 Uhr
Goto Top
/OT
Hi Timo,

ist dein Bier schon kalt? Wenn JA, dann schick doch mal von DEINEM Kühlschrank in MEINEN
und das ganze ohne Nachfrage face-wink Also immer schön auffüllen, egal zu welcher Zeit face-wink

Schönen Vatertag!

Tsuki
/<OT
highpriest
highpriest 17.05.2012 um 17:45:54 Uhr
Goto Top
@timobeil, @TsukiSan

Wie hilfreich!
Auch Euch wünsche ich einen schönen Vatertag!

@netzwerkknecht

Leider komme ich nicht weiter.
Trotzdem Danke für die Antwort.
netzwerkknecht
netzwerkknecht 17.05.2012 um 18:45:04 Uhr
Goto Top
Zitat von @highpriest:
Leider komme ich nicht weiter.

Vielleicht hilft Dir eine deutschsprachige Darlegung zu Robocopy eher weiter: http://www.wintotal.de/artikel/artikel-2007/91.html

netzwerkknecht auf Windows Intune: http://bit.ly/wide12hp
highpriest
highpriest 19.05.2012 aktualisiert um 01:24:13 Uhr
Goto Top
Ich habe jetzt was gefunden, was auch die Dateien verschiebt:

Option Explicit
Dim fso, oFile, oFiles, oFolder
Dim sQuelle, sZiel

Set fso = CreateObject("Scripting.FileSystemObject")
Set oFolder = fso.GetFolder("E:\test\test\a\")
Set oFiles = oFolder.Files

sZiel = "E:\test\test1\1\"

For Each oFile In oFiles
sQuelle = fso.GetAbsolutePathName(oFile)
fso.MoveFile sQuelle, sZiel
Next

Wie kann ich Script jetz so anpassen, damit es mit drei verschiedenen Ordner funktioniert?
highpriest
highpriest 23.05.2012 um 21:15:33 Uhr
Goto Top
Hat sich erledigt.