vbs复制 如何把指定路径复制到指定路径

如:"E:\相片"到"G:\新建文件夹"非常感谢简单一些的让白痴也能看懂的谢谢... 如:"E:\相片" 到"G:\新建文件夹" 非常感谢
简单一些的让白痴也能看懂的 谢谢
展开
 我来答
z849104803
2012-07-12
知道答主
回答量:7
采纳率:0%
帮助的人:8.7万
展开全部
createobject("scripting.filesystemobject").copyfile "E:\相片\*.*" "G:\新建文件夹\"

楼上是胡扯的!
yu_6337
2012-07-05 · TA获得超过192个赞
知道答主
回答量:23
采纳率:0%
帮助的人:19.3万
展开全部
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
具体思路就是这样,其他方面你可以自定义。
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式