Copy Befehl in VB ...

Hallo,
ich habe hier ein kleines Script, dass den openfile Dialog aufruft. Nun soll die ausgewählte Datei nach
c:\temp kopiert werden, aber ich bekomme das nicht hin.. Könnte mir hierbei bittejemand behilflich sein?
Vielen Dank für dieses super Forum

Set Dialog = CreateObject("UserAccounts.CommonDialog")
' Dialog.Filter = "Text Files|*.txt|All Files|*.*" ' zeigt nur *.txt
' Dialog.Filter = "Excel-Arbeitsmappen|*.xls|Alle Dateien|*.*" ' zeigt nur *.xls
' Dialog.Filter = "Alle Dateien|*.*" ' zeigt nur *.* - also ALLES
Dialog.Filter = "Textdateien|*.txt|Excel-Arbeitsmappen|*.xls|Alle Dateien|*.*"
Dialog.FilterIndex = 2 ' von den drei auswählbaren Filtern wird der 2. eingesetzt
Dialog.ShowOpen
DateiPfad = Dialog.FileName

MsgBox DateiPfad, , WScript.ScriptName