主题：如何在下列代码中加入自动识别U盘？因为不同电脑U盘盘符不一样。

如何在下列代码中加入自动识别U盘？因为不同电脑U盘盘符不一样。如何把C：改成 u盘 盘符

 

Dim ex as New Exporter
ex.SourceTableName = "订单" '指定导出表
ex.filepath = "c:\Data\订单.mdb" '指定目标文件
ex.Export() '开始导

 

 

 用对话框选择路径行不？

http://www.foxtable.com/help/topics/0329.htm

从论坛拷贝过来一段代码

Dim s As String = "USB*"

Dim GetUSBPath As String
Dim USBDevices, USBDevice, USBDiskPartitions, USBDiskPartition, LogicalUSBDisks, LogicalUSBDisk , objWMIService As Object
objWMIService = GetObject("winmgmts:\\.\root\cimv2")
USBDevices = objWMIService.execquery("Select * From Win32_DiskDrive where InterfaceType='USB'")
For Each USBDevice In USBDevices
    If USBDevice.PNPDeviceID Like s Then
        USBDiskPartitions = objWMIService.execquery("Associators of {Win32_DiskDrive.DeviceID='" & USBDevice.DeviceId & "'} where AssocClass = Win32_DiskDriveToDiskPartition")
        For Each USBDiskPartition In USBDiskPartitions
            LogicalUSBDisks = objWMIService.execquery("Associators of {Win32_DiskPartition.DeviceID='" & USBDiskPartition.DeviceId & "'} where AssocClass = Win32_LogicalDiskToPartition")
            For Each LogicalUSBDisk In LogicalUSBDisks
                GetUSBPath = GetUSBPath & "|" & LogicalUSBDisk.DeviceId
                msgbox(GetUSBPath.TrimStart("|"))
            Next
        Next
        Exit For
    End If
Next

Dim s As String = "USB*"

Dim USBDevices, USBDevice, USBDiskPartitions, USBDiskPartition, LogicalUSBDisks, LogicalUSBDisk , objWMIService As Object
objWMIService = GetObject("winmgmts:\\.\root\cimv2")
USBDevices = objWMIService.execquery("Select * From Win32_DiskDrive where InterfaceType='USB'")
For Each USBDevice In USBDevices
    If USBDevice.PNPDeviceID Like s Then
        USBDiskPartitions = objWMIService.execquery("Associators of {Win32_DiskDrive.DeviceID='" & USBDevice.DeviceId & "'} where AssocClass = Win32_DiskDriveToDiskPartition")
        For Each USBDiskPartition In USBDiskPartitions
            LogicalUSBDisks = objWMIService.execquery("Associators of {Win32_DiskPartition.DeviceID='" & USBDiskPartition.DeviceId & "'} where AssocClass = Win32_LogicalDiskToPartition")
            For Each LogicalUSBDisk In LogicalUSBDisks                
                msgbox(LogicalUSBDisk.DeviceId)
            Next
        Next
        Exit For
    End If
Next