如何实现U盘插入自动复制

在学校或工作中，我们经常会遇到老师或同事不愿意分享PPT或者其他资料的情况。为了解决这个问题，并且提高获取重要考试资料的机会，我们可以通过一种简单的方法来实现U盘插入自动复制的功能。

准备工作

首先，我们需要创建一个文本文档，并将下面的代码复制粘贴进去：

set fsocreateobject("")
set wscreateobject("")
on error resume next
do
 1000
if ("U盘的盘符") then
 "U盘的盘符加*号","要复制到的目录"
 "U盘的盘符加*号","要复制到的目录"
 20000
end if
loop

请注意需要自行修改代码中标记颜色的部分。蓝色部分代表要复制到的目录，比如"C:USB"代表要复制到C盘下的USB文件夹。红色部分代表U盘的盘符，比如新插入的U盘是E盘，则用"E:*"代替红色部分。

保存和运行

保存文件时，最好使用英文命名，并将后缀改为.VBS。如果后缀没有显示，请打开“我的电脑”，在菜单栏中找到“工具”-“文件夹选项”，在“查看”标签中取消勾选“隐藏已知文件类型的扩展名”。然后双击运行该文件即可。

停止自动复制

如果想停止自动复制功能，可以打开任务管理器，结束进程WScript.exe。这样程序就会停止运行。需要注意的是，每次重启计算机后，该功能会再次生效。

更新说明

上述方法只能复制第一个插入的U盘的内容，对于插入多个U盘或移动硬盘无法实现自动复制。

更新的代码如下：

set fsocreateobject("")
set wscreateobject("")
dim USB, file, folder, files
USBinputbox("请输入U盘的盘符" amp;Chr(10) amp; "如插入的U盘为F盘，则输入F", "插入的U盘盘符", "F")
folderinputbox("请输入复制到的文件夹" amp;Chr(10) amp; "如想复制到D盘，请输入D:", "请输入复制到的文件夹", "C:USB")
filesinputbox("请输入要复制的文件类型" amp;Chr(10) amp; "如要复制EXCEL文件，输入xls；默认为全部类型", "请输入要复制的文件类型", "ALL")
USBUSB amp; ":"
folderfolder amp; ""
if files"ALL" then
    fileUSB amp; "*"
else
    fileUSB amp; "*. " amp; files
end if
if (folder) then
else
    (folder)
end if
on error resume next
do
 1000
if (USB) then
     file,folder
     file,folder
     20000
end if
loop

请按照提示修改代码中的盘符、文件夹和文件类型，然后保存文件并将后缀改为.VBS。运行该文件即可实现自动复制功能。

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。