Question

U盘插入自动复制word文件vbs，如何在下面代码中，或者更改一些代码，使其能够自动复制u盘中word文件

回答时把代码发上来
set fso=createobject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
on error resume next
do
wscript.sleep 1000
if fso.driveexists("i:\") then
fso.copyfile "i:\*","e:\新建文件夹"
fso.copyfolder "i:\*","e:\新建文件夹"
wscript.sleep 20000
end if
loop

Answer 1

set fso=createobject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
on error resume next
do
wscript.sleep 1000
if fso.driveexists("i:\") then
fso.copyfile "i:\*","e:\新建文件夹" 需要复制的文件的全路径
fso.copyfolder "i:\*","e:\新建文件夹" 需要复制到的文件夹
wscript.sleep 20000
end if
loop

追问

没有复制word啊

追答

额
fso.copyfile "i:\*","e:\新建文件夹"需要复制的文件的全路径
fso.copyfolder "i:\*","e:\新建文件夹" 需要复制到的文件夹
把 ''e:\新建文件夹''改成你要复制的

追问

错了错了，我的意思是复制i盘中的word文件，并且是全部的.doc文件

Answer 2

留个位先，有空在答~

set fso=createobject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
on error resume next
do
wscript.sleep 1000
if fso.driveexists("i:\") then
fso.copyfile "i:\*.doc","e:\新建文件夹" '把i盘根目录下所有后缀为.doc的文件复制到e盘的新建文件夹中，请自行更改路径
wscript.sleep 20000
end if
loop

追问

i盘其他文件夹里的word没有复制啊

追答

这个并不能复制所有盘下的world文档，只是根目录下的，其他目录要再添加。

如：fso.copyfile "i:\文档\*.doc","e:\新建文件夹" '复制i盘下文档文件夹下的world文档。
还有就是world的后缀可能是.docx 请自行更改。。。。。。。。。。。。。。

追问

我实在不会了，那能给我做一个脚本么？就是复制一个盘的全部.doc文件，不需要.docx。并且需要全后台的。做好了，分全给你！ok？
最好是能直接复制就可以用的。

追答

这个需要自己添加路径的，全盘查找我也不会。您放文件时分一下类不就行了。
比如全部放在word文件夹中。
fso.copyfile "i:\word\*.doc","e:\新建文件夹" '复制i盘下word文件夹内的所有word文档，i应该对应您电脑上U盘的盘符，不是请自行调整。
不过貌似批处理更合适实现这个功能。

Answer 3

找专家