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

列虚子

On Error Resume Next
str="这里是你想说的话str1"
Set Wshshell=WScript.CreateObject("WScript.Shell")
WshShell.run"mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(close)",0,true
WshShell.run"这里是你要发送到对方QQ的快捷方式str2"
WScript.Sleep 1000
WshShell.SendKeys"^v"
WScript.Sleep 1000
WshShell.SendKeys "%s"
WScript.Sleep 1000
WshShell.SendKeys"%{F4}"
复制代码

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

列虚子

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