VB 监听U盘插入并拷贝U盘内容

Set fso = CreateObject("Scripting.FileSystemObject")

Dim state
Dim driver, fromPath, toPath

state = 0
' 要拷贝的U盘符，如[H:\],要事先需要知道那个U盘的盘符
driver = "D:\"
' 同上，指定要拷贝的U盘目录，如[H:\*]（也可以指定格式如H:\*.doc）
fromPath = "D:\*"
' 要拷贝到本地盘的地址，如[E:\]
toPath = "C:\backup\"

On Error Resume Next

Do
    wscript.Sleep 1000
    If fso.DriveExists( driver ) Then
        If state = 0 Then
            fso.CopyFile fromPath, toPath
            'fso.CopyFolder fromPath, toPath
            state = 1
        End If
        Else
            state = 0
    End If
Loop

转载：http://www.zhihu.com/people/hu-xuan-39