Vb中读取USB存储设备的序列号

是否可以使用VB读取USB驱动器的序列号。

这将为您提供 .net 中驱动器的信息，包括 USB 设备 只需导入这些

导入脚本 导入系统.IO

Private Class USBsn
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim driveNames As New List(Of String)
       For Each drive As DriveInfo In My.Computer.FileSystem.Drives
          Try
            Dim fso As Scripting.FileSystemObject
            Dim oDrive As Drive

            fso = CreateObject("Scripting.FileSystemObject")

            oDrive = fso.GetDrive(drive.Name)

            ListBox1.Items.Add(drive.Name & "   " & oDrive.SerialNumber)
        Catch ex As Exception
        End Try

        Next
    End Sub
End Class