Diesen S*****ing-Code einfach als .VBS Datei speichern und durch einen Doppelklick ausführen.
Ggf. noch den Quellpfad + Quelldatei anpassen. (rot markiert)
Für einzelne Dateien:
Code:
Const OverwriteExisting = TRUE
Set objFSO = CreateObject("S*****ing.FileSystemObject")
strDest = InputBox("Bitte das Ziel (z.B. C:\Ordner\Unterordner) angeben, wohin die Datei(en) kopiert werden soll.")
objFSO.CopyFile "D:\test.txt" , strDest & "\", OverwriteExisting
---
Für mehrere Dateien:
Code:
Const OverwriteExisting = TRUE
Set objFSO = CreateObject("S*****ing.FileSystemObject")
strDest = InputBox("Bitte das Ziel (z.B. C:\Ordner\Unterordner) angeben, wohin die Datei(en) kopiert werden soll.")
objFSO.CopyFile "D:\*.txt" , strDest & "\", OverwriteExisting
Viele Grüße,
haze303