⑴ 如何使用VBS腳本編寫U盤插入自動復制電腦指定文件至U盤
打開文本文檔，輸入：
COPY D:\data\*.* f:\ '假設你要復制D盤下的data文件夾到U盤上，U盤盤符是F然後保存文件，將該文件擴展名改為bat。
想要復制的時候，直接雙擊U盤上這個文件就行。這個代碼適合自己電腦經常需要備份某個文件，手動操作步驟繁瑣，利用這個代碼來自動完成數據備份。如果稍加改進這個代碼可能就會被安全軟體攔截。。。，工具本身沒有邪惡和正義之分，是正是邪還是看使用者的意圖。
⑵ 請修改VBS代碼讓U盤插入後能自動復制電腦"指定盤符"的文件到U盤指定文件夾。謝謝
代碼如下:
Const STR_TARGET_DRIVES = "D:|E:|F:"
'目標驅動器（指定磁碟，多個磁碟請用"|"隔開,盤符後面不準帶有""符號）
Const STR_EXTS = "jpg|png|jpeg|doc|docx|txt"
'文件類型(多個類型請用"|"隔開)
Const STR_COPYTO = "%USBDevicePath%123"
'復制到...(變數說明:%CurrentPath% - 腳本所在目錄的路徑;%USBDevicePath% - U盤路徑)
On Error Resume Next
Dim FSO,WS,C,I,Drive,USBPath,ArrDrives,CopyTo,FoundUSB
'Dim variables.
C=Chr(34)
Set FSO=WScript.CreateObject("Scripting.FileSystemObject")
Set WS=WScript.CreateObject("WScript.Shell")
'Create objects.
MsgBox "程序已運行!請關閉此對話框並插入U盤!(不關閉此對話框插入U盤無效)",64,"Info"
Do
FoundUSB = False
For Each Drive In FSO.Drives
If Drive.IsReady Then
If Drive.DriveType = 1 Then
USBPath = Drive.Path
FoundUSB = True
End If
End If
Next
If FoundUSB Then Exit Do
WScript.Sleep 3000
Loop
'等待U盤插入
WS.Run "mshta VBScript:CreateObject(""WScript.Shell"").Popup(""正在復制..."",3,""提示"")(Close)",0
CopyTo = LCase(STR_COPYTO)
CopyTo = Replace(CopyTo,"%currentpath%",WS.CurrentDirectory)
CopyTo = Replace(CopyTo,"%usbdevicepath%",USBPath)
If(Right(CopyTo,1)<>"" And Right(CopyTo,1)<>"/") Then CopyTo = CopyTo & ""
'fix path format.
ArrDrives = Split(STR_TARGET_DRIVES,"|")
For I=0 To UBound(ArrDrives)
GetAllFilesAndFolders ArrDrives(I) & ""
Next
'//
MsgBox "復制完成!!",64,"系統提示"
WS.Run C+CopyTo+C,1
'===================================================
Private Sub GetAllFilesAndFolders(Path)
Dim File,Folder
For Each File In FSO.GetFolder(Path).Files
If CheckExt(FSO.GetExtensionName(File.Path)) Then
FSO.CopyFile File.Path,CopyTo
End If
Next
For Each Folder In FSO.GetFolder(Path).SubFolders
GetAllFilesAndFolders Folder.Path
Next
End Sub
Private Function CheckExt(ExtName)
Dim A,ArrExts,OK
OK = False
ArrExts = Split(STR_EXTS,"|")
For A=0 To UBound(ArrExts)
If ExtName = ArrExts(A) Then
OK = True
Exit For
End If
Next
CheckExt = OK
End Function
⑶ 找一個U盤一插入電腦.電腦就將指定文件夾自動拷貝到U盤的工具
U盤拷貝者 是一款在後台偷偷復制U盤內容的工具，自動監測U盤插入事件，後台拷貝U盤文件內容到指定目錄，後台隱藏模式隱蔽運行，可選隨系統自動啟動，按ctrl+alt+u調出設置頁面。可設置拷貝的文件的目錄和開機啟動。 http://www.softjie.cn/2010/10/29/udiskmonitor/
⑷ 如何使用VBS腳本編寫U盤插入自動復制電腦指定文件至U盤
vbs可以調用wmi類庫里win32_VolumeChangeEvent來監控本機盤符的變化事件，所以樓主的問題可以實現。下面是代碼：
Dim fso
Dim objWMIService
strComputer = "." '句點代表本機
set fso = createobject("scripting.filesystemobject") '創建文件系統操作的對象
filePath = "" '這里定義你要從本機電腦拷貝的文件的全路徑，如c:\1.txt
'創建WMI的連接
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
'對系統盤符變更事件建立通知查詢，即有盤符的增加或刪除都會被捕獲
Set colMonitoredEvents = objWMIService. _
ExecNotificationQuery( _
"Select * from Win32_VolumeChangeEvent")
Do '循環，不間斷查詢 有無盤符變更事件
Set objLatestEvent = colMonitoredEvents.NextEvent
path = objLatestEvent.DriveName & "\" '得到u盤的盤符
fso.CopyFile filePath, path '把本機電腦文件拷貝到u盤里
Loop
set fso = Nothing '收尾處理
set objWMIService = nothing
'這個腳本保存為任何的vbs都可以，也不用開機就自動運行，你想用的時候提前打開此文件就行。但是不打開這個腳本是沒用的，因為捕獲不了插入u盤的動作。
⑸ 如何實現U盤插入電腦中自動把電腦中的某個制定程序下載到U盤中，然後U盤插入其它電腦自動運行這個程序
自動運行倒是可以做到，只要你的電腦支持自動運行程序打開這個功能就行，但是，自動下載就不好做了，因為不同電腦安裝的軟體也不一樣，安裝的位置也不一樣，這就是比較麻煩的問題。
⑹ 求一腳本：自動地把計算機桌面上的ppt格式的文件復制到U盤的指定文件夾
這個不一定行、要看電腦有沒有打開自動運行、還有腳本問題
⑺ 如何使用腳本編寫U盤插入自動復制某類文件至U盤
餓 這個貌似可以通過預先植入病毒來實現的 可以網上找駭客們問問 做個病毒！