Dim oFSO As New FileSystemObject
        Dim oDrive As Drive

        Dim oFSO As New Scripting.FileSystemObject
        Dim oDrive As Scripting.Drive

Imports System
Imports System.IO
 
Public Class Form1
 
    Dim drives As DriveInfo() = DriveInfo.GetDrives()
 
    'Public oFSO As New FileSystemObject
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
 
        Dim oFSO As New Scripting.FileSystemObject
        Dim oDrive As Scripting.Drive
        oDrive = oFSO.GetDrive("\\192.168.2.199\U$")
 
        MsgBox(oDrive.SerialNumber)
 
        ListBox1.Items.Add(oDrive.SerialNumber)
 
    End Sub
 
End Class