>>883
シェルオブジェクトを使えばいい。
Set sh = CreateObject("Shell.Application")
Set dst = sh.NameSpace("C:\TEMP")
dst.CopyHere "hoge.txt"
例えばコピー先フォルダ名・元ファイル名を適当に変えて
これを2度実行すれば、2度目は上書き確認のダイアログが出て来るはず。