如何把数据表导出到U盘？

知难而上

tmtony

Sub DiveOnfo()
Dim objFSO As New Scripting.FileSystemObject
Dim drvLoop As Scripting.Drive

For Each drvLoop In objFSO.Drives
    Debug.Print drvLoop.DriveLetter & ":\"
    If drvLoop.DriveType = Fixed Or drvLoop.IsReady Then
        Debug.Print " Total size: " _
            & Format$(drvLoop.TotalSize / (1024 ^ 2), "#0.00 Mb")
        Debug.Print " Free space: " _
            & Format$(drvLoop.FreeSpace / (1024 ^ 2), "#0.00 Mb")
        Debug.Print " Volume Label: " & drvLoop.VolumeName & vbCrLf _
            & " SN: " & drvLoop.SerialNumber
    Else
        Debug.Print " Disk information unavailable"
    End If
Next drvLoop
Set objFSO = Nothing
End Sub
这个是否可行

tmtony

摘抄:
Sub cc()



On Error Resume Next



Dim objFSO As New Scripting.FileSystemObject



Set objFSO = CreateObject("Scripting.FileSystemObject")



Set colDrives = objFSO.Drives



Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")



Set colItems = objWMIService.ExecQuery("Select * From Win32_USBHub")



For Each objItem In colItems



a = objItem.DeviceID



For Each objDrive In colDrives



If a Like "*VID*" And Len(objDrive.DriveLetter) <> 0 Then b = Split(a, "\"): MsgBox b(UBound(b))

Next



Next



End Sub

黄玉宏　2006.11.23

知难而上

首先谢谢站长的回复
俺是新手，看着这么多代码都眼晕，刚才加进去试了一下，好像不行……提示用户类型未定义