怎样做一个监控USB闪存盘的程序

Question

想做一个程序，当USB闪盘插入计算机时，自动读出里面的文件，并拷到硬盘的某一目录。高手进来帮帮忙，给个思路

Answer 1

给你一个思路：先根据闪盘的类型和大小来确定它所在盘符  '区别于光驱以及其它移动硬盘
然后获取闪盘里面所有的目录以及相应目录下的文件， '使用Dir循环查找
建议用数组保存路径
最后把数组所对应的文件拷贝到硬盘上。'使用CopyFile函数完成

Answer 2

拷所有目录及文件这个没什么问题，只是不知怎样来判断USB闪盘，用sysinfo控件，当新增设备时就会触发。但是当增加的是读卡器时，得到的也是磁盘设备。

Answer 3

用FSOSub GetDrivesInformation()
    Dim dr, fs As New FileSystemObject    For Each dr In fs.Drives
        Print "驱动器名称：" & dr.DriveLetter
        Print "驱动器容量：" & dr.TotalSize / 1024 / 1024 & "M"
        Print "可用空间：" & dr.AvailableSpace / 1024 / 1024 & "M"
        Print "序列号：" & dr.SerialNumber
        Print "类型：" & dr.DriveType
        Print
    Next
End Sub引用Microsoft Script Runtime

Answer 4

HtoFire(冬天里的一把火) ( ) 代码不好用挖

Answer 5

用FSO判断是否有新的磁盘盘符
有就进行你所需要的操作~

Answer 6

我可以給你寫。
不是上面的FSO什麼的。

Answer 7

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Longfor x=67 to 90
Select Case GetDriveType(char(x)&":\")
        Case 2
            Me.Print "Removable"
        Case 3
            Me.Print "Drive Fixed"
        Case  4
            Me.Print "Remote"
        Case  5
            Me.Print "Cd-Rom"
        Case  6
            Me.Print "Ram disk"
        Case Else' I have not a U-Disk
            Me.Print "Unrecognized"
    End Select
nextpast this code to a timer event,It's can check you system disk and report to you on time