7
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
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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 185112
Url: https://administrator.de/contentid/185112
Printed on: April 25, 2024 at 08:04 o'clock
7 Comments
Latest comment
Moin,
Gruß
Ich hoffedass ihr mir einen passenden Script schreiben könnt (die Pfade werde ich versuchen selber anzupassen).
- ymmd schönen Vatertag
Gruß
Nimm dafür einfach ROBOCOPY (http://en.wikipedia.org/wiki/Robocopy), http://technet.microsoft.com/de-de/library/cc733145(WS.10).aspx).
netzwerkknecht auf Windows Intune: http://bit.ly/wide12hp
netzwerkknecht auf Windows Intune: http://bit.ly/wide12hp
/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 Also immer schön auffüllen, egal zu welcher Zeit
Schönen Vatertag!
Tsuki
/<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
Also immer schön auffüllen, egal zu welcher Zeit Schönen Vatertag!
Tsuki
/<OT
@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.
Wie hilfreich!
Auch Euch wünsche ich einen schönen Vatertag!
@netzwerkknecht
Leider komme ich nicht weiter.
Trotzdem Danke für die Antwort.
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
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?
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?
Hat sich erledigt.
