vbs复制 如何把指定路径复制到指定路径
2个回答
展开全部
Dim fso
Dim objHTML
Dim myfile
Set fso = CreateObject("scripting.filesystemobject")
Set objHTML=CreateObject("htmlfile") ‘vbs难以自己访问剪切板,但是我们可以用强大的htmlfile或者internet等,调用它们的对象即可轻松访问剪切板
ClipboardText = objHTML.ParentWindow.ClipboardData.GetData("text")
Set myfile = fso.OpenTextFile("文件路径全名",2)'这里定义你自己的文件路径,文件一定要能用记事本读写的,不然会打不开
myfile.SkipLine
myfile.Write ClipboardText '这里写你剪切板里的东西,不要拷贝一些莫名其妙的东西,比如图片啊或者带有非正式换行回车的字符串体,不然也会报错
myfile.Close
Set myfile = Nothing
Set fso = Nothing
Set objHTML = Nothing
具体思路就是这样,其他方面你可以自定义。
Dim objHTML
Dim myfile
Set fso = CreateObject("scripting.filesystemobject")
Set objHTML=CreateObject("htmlfile") ‘vbs难以自己访问剪切板,但是我们可以用强大的htmlfile或者internet等,调用它们的对象即可轻松访问剪切板
ClipboardText = objHTML.ParentWindow.ClipboardData.GetData("text")
Set myfile = fso.OpenTextFile("文件路径全名",2)'这里定义你自己的文件路径,文件一定要能用记事本读写的,不然会打不开
myfile.SkipLine
myfile.Write ClipboardText '这里写你剪切板里的东西,不要拷贝一些莫名其妙的东西,比如图片啊或者带有非正式换行回车的字符串体,不然也会报错
myfile.Close
Set myfile = Nothing
Set fso = Nothing
Set objHTML = Nothing
具体思路就是这样,其他方面你可以自定义。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询