Question

写一个vbs——脚本——编程语言—— D:\a 是当前打开的文件夹，把某个文件复制到D:\a

————————我所说的 D:\a 文件是指当前打开的最前的文件夹，每次都不一样——————写一个vbs ，该vbs不在 D:\a 内，运行该vbs后 把D:\b\1.txt复制到D:\a —————— D:\b\1.txt 和 D:\a 不一样，D:\b\1.txt 是固定路径， D:\a 是当前打开的文件夹 不是固定的 ，而vbs不在 D:\a 内

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏50（财富值+成长值）

Answer 1

dim s
s=createobject("Scripting.FileSystemObject").GetFolder(".").Path & "\" & replace(now,":","_") & ".txt"
CreateObject("Scripting.FileSystemObject").CopyFile "d:\b\1.txt",s ,true

追问

不行啊，这个vbs的结果是把D:\b\1.txt复制到了 vbs所在的文件夹 ，而不是 在运行vbs之前 的那个当前文件夹D:\a ，我是想把D:\b\1.txt复制到D:\a ，而不是复制到vbs所在的文件夹(vbs不在D:\a 内)——————就是把文件复制到 上一任的 当前文件夹，或者 发送按键alt+tab 再运行之后的语句，可以吗？ws.SendKeys "%{tab}"

还是谢谢了