per VBScript sendkeys dateien u. ordner in anderes verzeichnis verschieben

Hallo,
ich habe im Explorer einige Dateien und Ordner ausgewählt. Nun möchte ich mit "Sendkeys"
die Elemente ausschneiden, dann den anderen Ordner (wenn es geht minimiert) öffnen und dann mit "Sendkeys" den Inhalt einfügen. Leider klappt es nicht, woran könnte es liegen?
Dim Jahr,Monat,Tag,Datum,fso
pfad="X:\Papierkorb"
Set fso = CreateObject("Scripting.FileSystemObject") 
Set wshshll=CreateObject("WScript.Shell")
Jahr=year(Date)
Monat=Month(Date)
Tag=Day(Date)
Datum=Jahr & "-" & Monat & "-" & Tag
If Not fso.FolderExists(pfad & "\" & Datum) Then fso.CreateFolder(pfad & "\" & Datum)
wshshll.Sendkeys "%x"
WScript.Sleep 2000
wshshll.Run("explorer.exe"&" X:\Papierkorb\" & Datum),1
WScript.Sleep 2000
wshshll.Sendkeys "%v"
Viele Grüße, je77

Hallo,
ich werde es nicht mehr mit sendkeys versuchen, sondern die Dateien auf das Skript ziehen, um die Argumente zu übergeben. Deswegen braucht ihr euch keine Mühe mehr mit der Lösung mit sendkeys zu machen. Sollte es mit dem aufs Skript ziehen Probleme geben, dann melde ich mich nochmal. Vielen Dank!
Viele Grüße, je77