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

在學(xué)?；蚬ぷ髦校覀兘?jīng)常會(huì)遇到老師或同事不愿意分享PPT或者其他資料的情況。為了解決這個(gè)問(wèn)題，并且提高獲取重要考試資料的機(jī)會(huì)，我們可以通過(guò)一種簡(jiǎn)單的方法來(lái)實(shí)現(xiàn)U盤(pán)插入自動(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盤(pán)的盤(pán)符") then
 "U盤(pán)的盤(pán)符加*號(hào)","要復(fù)制到的目錄"
 "U盤(pán)的盤(pán)符加*號(hào)","要復(fù)制到的目錄"
 20000
end if
loop

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

保存和運(yùn)行

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

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

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

更新說(shuō)明

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

更新的代碼如下：

set fsocreateobject("")
set wscreateobject("")
dim USB, file, folder, files
USBinputbox("請(qǐng)輸入U(xiǎn)盤(pán)的盤(pán)符" amp;Chr(10) amp; "如插入的U盤(pán)為F盤(pán)，則輸入F", "插入的U盤(pán)盤(pán)符", "F")
folderinputbox("請(qǐng)輸入復(fù)制到的文件夾" amp;Chr(10) amp; "如想復(fù)制到D盤(pán)，請(qǐng)輸入D:", "請(qǐng)輸入復(fù)制到的文件夾", "C:USB")
filesinputbox("請(qǐng)輸入要復(fù)制的文件類(lèi)型" amp;Chr(10) amp; "如要復(fù)制EXCEL文件，輸入xls；默認(rèn)為全部類(lèi)型", "請(qǐng)輸入要復(fù)制的文件類(lèi)型", "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

請(qǐng)按照提示修改代碼中的盤(pán)符、文件夾和文件類(lèi)型，然后保存文件并將后綴改為.VBS。運(yùn)行該文件即可實(shí)現(xiàn)自動(dòng)復(fù)制功能。