求大哥们帮忙，怎么写一个复制粘贴的VBS代码？

列虚子

1. On Error Resume Next
   
2. str="这里是你想说的话str1"
   
3. Set Wshshell=WScript.CreateObject("WScript.Shell")
   
4. WshShell.run"mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(close)",0,true
   
5. WshShell.run"这里是你要发送到对方QQ的快捷方式str2"
   
6. WScript.Sleep 1000
   
7. WshShell.SendKeys"^v"
   
8. WScript.Sleep 1000
   
9. WshShell.SendKeys "%s"
   
10. WScript.Sleep 1000
    
11. WshShell.SendKeys"%{F4}"

复制代码

我照着这个代码，想把它改成，运行该vbs后，复制某个指定目录的文件，到QQ对话框然后发送。
比如复制C：111.exe 我是个门外汉，自己搞了一下午头都快大了，求大家帮帮我吧！

列虚子

后面那些我都看得懂，就是不知道怎么改成复制某个文件