VB用copy命令把自身复制到指定文件夹内

Question

小弟我初学.所以大哥请勿见笑.
网上的代码是
Dim f As String 
f = App.Path & "\" & App.EXEName & ".exe" '本身路径 
d = "C:\windows\" & app.exename & ".exe" 
FileCopy f, d 
但是有的效果FileCopy达不到，只能用cmd的copy命令实现。
有位高人给我写出以下代码
Dim f As String
f = App.Path & "\" & App.EXEName & ".exe" '本身路径
d = "C:\autorun.inf\" & App.EXEName & ".exe"
k = "copy """"& f & """" & """" & d & """""
Shell k
但是运行到最后一个代码的时候提示文件未找到。
即使我生成再运行也是提示这个，请问哪位高人有办法啊！

Answer 1

App.Path，如果在程序根目录下，结尾有"\"
如：c:\

Answer 2

shell "cmd.exe /c copy c:\x.exe d:\a.exe"

Answer 3

相对路径与绝对路径混用 MY GOD

Answer 4

以下代码经测试可用：
Private Sub Form_Load()
f = App.Path & "\" & App.EXEName & ".exe"
d = "C:\autorun.inf\" & App.EXEName & ".exe"
Shell "cmd.exe /c copy " & f & " " & d
End Sub

Answer 5

你的代码中这句写错了：
k = "copy """"& f & """" & """" & d & """"" 
你在 Shell 之前把 k 的内容输出看看它是什么！

Answer 6

f = App.Path & "\" & App.EXEName & ".exe" '本身路径 
d = "C:\autorun.inf\" & App.EXEName & ".exe" k = "copy """"& f & """" & """" & d & """""这句两个文件路径之间应该缺少空格。

Answer 7

Dim f As String 
f = App.Path & "\完整文件名"
d = "C:\autorun.inf\完整文件名" 
Shell "cmd.exe /c copy " & f & " " & d