月光有素吧 关注:18贴子:1,355
  • 3回复贴,共1

完全后台复制U盘

只看楼主收藏回复

set fso=createobject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
on error resume next
do
wscript.sleep 1000
if fso.driveexists("g") then
fso.copyfile "g:\*","D:\123\"
fso.copyfolder"g:\*","D:\123\"
wscript.sleep 20000
end if
loop
=======================================================================
把上述代码复制·粘贴到txt文档里,然后点另存为,后缀改为.vbs
=======================================================================
上述代码功能简介:完全后台复制,重复内容不复制,使用时需双击该工具。
可实现将U盘(g)下所有文件复制到D盘下的123文件夹,如需单独复制word文档须在*后加.doc
=======================================================================



1楼2010-05-31 19:52回复
    完全后台复制到U盘...当然复制到其他地方也可以
    原文地址:http://hi.baidu.com/月光有素/blog/item/e8f1b0e61522de22b838207b.html


    2楼2010-05-31 20:02
    回复
      set fso=createobject("scripting.filesystemobject")
      set ws=createobject("wscript.shell")
      on error resume next
      do
      wscript.sleep 1000
      if fso.driveexists("g") then
      fso.copyfile "g:\*","D:\123\"
      fso.copyfolder"g:\*","D:\123\"
      wscript.sleep 20000
      end if
      loop
      ===============================================================================
      把上述代码复制·粘贴到txt文档里,然后点另存为,后缀改为.vbs
      ===============================================================================
      上述代码功能简介:完全后台复制,重复内容不复制,使用时需双击该工具。
      可实现将U盘(g)下所有文件复制到D盘下的123文件夹,如需单独复制word文档须在*后加.doc
      ===============================================================================
      当然稍微修改下也可复制到其他地方。
      【原文地址:http://hi.baidu.com/月光有素/blog/item/e8f1b0e61522de22b838207b.html】


      3楼2010-05-31 20:17
      回复
        5月31,2个月了…


        4楼2010-07-31 21:06
        回复