DriveWatcher Class

Public Class DriveWatcher
	Inherits NativeWindow
	Implements IDisposable

Dim instance As DriveWatcher

public ref class DriveWatcher : public NativeWindow, 
	IDisposable

type DriveWatcher = 
    class
        inherit NativeWindow
        interface IDisposable
    end

No code example is currently available or this language may not be supported.

Friend WithEvents DriveMon As New DriveWatcher

''' <summary>
''' Handles the <see cref="DriveWatcher.DriveStatusChanged"/> event of the <see cref="DriveMon"/> instance.
''' </summary>
Private Sub DriveMon_DriveStatusChanged(ByVal sender As Object, ByVal e As DriveStatusChangedEventArgs) _
Handles DriveMon.DriveStatusChanged

    Select Case e.DeviceEvent

        Case DevCase.Interop.Unmanaged.Win32.DeviceEvents.Arrival
            Dim sb As New Global.System.Text.StringBuilder
            sb.AppendLine("New drive connected...'")
            sb.AppendLine(String.Format("Type......: {0}", e.DriveInfo.DriveType.ToString()))
            sb.AppendLine(String.Format("Label.....: {0}", e.DriveInfo.VolumeLabel))
            sb.AppendLine(String.Format("Name......: {0}", e.DriveInfo.Name))
            sb.AppendLine(String.Format("Root......: {0}", e.DriveInfo.RootDirectory))
            sb.AppendLine(String.Format("FileSystem: {0}", e.DriveInfo.DriveFormat))
            sb.AppendLine(String.Format("Size......: {0} GB", (e.DriveInfo.TotalSize / (1024 ^ 3)).ToString("n1")))
            sb.AppendLine(String.Format("Free space: {0} GB", (e.DriveInfo.AvailableFreeSpace / (1024 ^ 3)).ToString("n1")))
            Console.WriteLine(sb.ToString())

        Case DevCase.Interop.Unmanaged.Win32.DeviceEvents.RemoveComplete
            Dim sb As New Global.System.Text.StringBuilder
            sb.AppendLine("Drive disconnected...'")
            sb.AppendLine(String.Format("Name: {0}", e.DriveInfo.Name))
            sb.AppendLine(String.Format("Root: {0}", e.DriveInfo.RootDirectory))
            Console.WriteLine(sb.ToString())

    End Select

End Sub

Private Sub StartMon_Click(ByVal sender As Object, ByVal e As EventArgs) _
Handles Button_StartMon.Click

    Me.DriveMon.Start()

End Sub

Private Sub StopMon_Click(ByVal sender As Object, ByVal e As EventArgs) _
Handles Button_StopMon.Click

    Me.DriveMon.Stop()

End Sub

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.