4
Dateien verschieben mit VBScript
Skript zum Dateien verschieben mit VBScript funktioniert nicht...
Hallo Leute, ich habe mir ein Skript gebastgelt, dass Dateien aus einem Quellpfad in einen Zielpfad verschieben soll.
Das ganze habe ich in eine Funktion gepackt, damit ich mehrere Pfade angeben kann:
Ich will also alle Dateien vom Pfad D:\TEST\TEMP3 ins Verzeichnis D:\TEST\TEMP verschieben.
Nun krieg ich leider bei
den Fehler "Die Datei ist bereits vorhanden" - was aber nicht der Fall ist, der Zielordner ist leer.
Ich bin noch nicht so fit mit VBScript, vielleicht kann mir diesbezüglich jemand weiterhelfen
Das ganze habe ich in eine Funktion gepackt, damit ich mehrere Pfade angeben kann:
Function Move(Quellpfad, Zielpfad)
Dim FSO : Set FSO = CreateObject("Scripting.FileSystemObject")
Dim Quelle : Set Quelle = FSO.GetFolder(Quellpfad)
Dim Ziel : Set Ziel = FSO.GetFolder(Zielpfad)
For Each Datei In Quelle.Files
FSO.MoveFile Datei, Ziel
Next
End Function
Move "D:\TEST\TEMP3", "D:\TEST\TEMP" Ich will also alle Dateien vom Pfad D:\TEST\TEMP3 ins Verzeichnis D:\TEST\TEMP verschieben.
Nun krieg ich leider bei
FSO.MoveFile Datei, Zielden Fehler "Die Datei ist bereits vorhanden" - was aber nicht der Fall ist, der Zielordner ist leer.
Ich bin noch nicht so fit mit VBScript, vielleicht kann mir diesbezüglich jemand weiterhelfen
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: 135255
Url: https://administrator.de/contentid/135255
Printed on: April 19, 2024 at 20:04 o'clock
4 Comments
Latest comment
Hallo Imrazor!
Versuch es so:
bzw so:
Grüße
bastla
Versuch es so:
Move "D:\TEST\TEMP3", "D:\TEST\TEMP\"
FSO.MoveFile Datei, Ziel & "\"
bastla
Hallo Imrazor, Hallo bastla!
Wenn's doch eh alle Dateien aus dem Quellpfad sein sollen, dann so:
Gruß Dieter
Wenn's doch eh alle Dateien aus dem Quellpfad sein sollen, dann so:
FSO.MoveFile Quellpfad & "\*.*", Zielpfad & "\" Gruß Dieter
Zitat von @76109:
Hallo Imrazor, Hallo bastla!
Wenn's doch eh alle Dateien aus dem Quellpfad sein sollen, dann so:
Gruß Dieter
Hallo Imrazor, Hallo bastla!
Wenn's doch eh alle Dateien aus dem Quellpfad sein sollen, dann so:
> FSO.MoveFile Quellpfad & "\*.*", Zielpfad & "\"
> Gruß Dieter
Super, hat wunderbar funktioniert, Danke!
morgen Imrazor,
wenn dein Problem gelöst ist dann makieren den Thread doch bitte noch als gelöst
mfg
David
wenn dein Problem gelöst ist dann makieren den Thread doch bitte noch als gelöst
mfg
David
