' Display the openFile dialog.
Dim result As DialogResult = openFileDialog1.ShowDialog()

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim cola As String




        If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            cola = FolderBrowserDialog1.SelectedPath

        Else
            'als niet op OK werd  geklikt
            'gebeurt er niets en dit wordt aan gebruiker
            'meegedeeld
            MessageBox.Show("You have to choose somthing, if you don't StickKey can't work!", "Fout", _
                MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            Me.Close()
        End If


    End Sub
    Private Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'HERE HAS TO BE THE SCRIPT THAT CHECKS IF THE DEVICE IS STILL INSERTED,
        'or to say it in another way: a script how checks if the file/folder still can be found,

    End Sub
End Class

Private Function DirExists() As Integer
Dim DirName as String
DirName ="Directory here"
Dim Dir as New DirectoryInfo(DirName)

Return If Not Dir Exists Then
MessageBox.Show("Device Not Present")
Else
MessageBox.Show("Device Found")
End If
End Function

    Private Function DirExists() As Integer
        Dim DirName As String
        DirName = "c:\WINDOWS"
        Dim Dir As New DirectoryInfo(DirName)

        If Not DirExists Then
            MessageBox.Show("Device Found")
        Else
            MessageBox.Show("Device Not Found")
        End If
    End Function

   Private Sub Run()

        Dim args As String
        args = FolderBrowserDialog1.SelectedPath
        ' Create a new FileSystemWatcher and set its properties.
        Dim watcher As New FileSystemWatcher()
        watcher.Path = args
        ' Watch for changes in LastAccess and LastWrite times, and
        ' the renaming of files or directories.
        watcher.NotifyFilter = (NotifyFilters.LastAccess Or NotifyFilters.LastWrite Or NotifyFilters.FileName Or NotifyFilters.DirectoryName)
        ' Only watch text files.


        ' Add event handlers.
        AddHandler watcher.Changed, AddressOf OnChanged
        AddHandler watcher.Created, AddressOf OnChanged
        AddHandler watcher.Deleted, AddressOf OnChanged
        AddHandler watcher.Renamed, AddressOf OnRenamed
        AddHandler watcher.Disposed, AddressOf Onoffline
        AddHandler watcher.Error, AddressOf Onoffline

        ' Begin watching.
        watcher.EnableRaisingEvents = True

        ' Wait for the user to quit the program.
        label1.Text = "FileSystemWatcher() ONLINE"

    End Sub

    ' Define the event handlers.
    Private Sub OnChanged(ByVal source As Object, ByVal e As FileSystemEventArgs)
        ' Specify what is done when a file is changed, created, or deleted.
        label1.Text = "File: " & e.FullPath & " " & e.ChangeType
    End Sub

    Private Sub OnRenamed(ByVal source As Object, ByVal e As RenamedEventArgs)
        ' Specify what is done when a file is renamed.
        label1.Text = "File: {0} renamed to {1}" & e.OldFullPath & e.FullPath
    End Sub
    Private Sub Onoffline(ByVal source As Object, ByVal e As ErrorEventArgs)
        llabel1.Text = FolderBrowserDialog1.SelectedPath + " Is offline!"
    End Sub

Public Class Form1
    Private Const WM_DEVICECHANGED As Integer = &H219
    Private Const DBT_DEVICEARRIVAL As Integer = &H8000
    Private Const DBT_DEVICEREMOVECOMPLETE As Integer = &H8004
    Private Const DBT_DEVTYP_VOLUME As Integer = &H2

    Private Structure DEV_BROADCAST_HDR
        Public DBCH_SIZE As Integer
        Public DBCH_DEVICETYPE As Integer
        Public DBCH_RESERVED As Integer
    End Structure

    Private Structure DEV_BROADCAST_VOLUME
        Public DBCV_SIZE As Integer
        Public DBCV_DEVICETYPE As Integer
        Public DBCV_RESERVED As Integer
        Public DBCV_UNITMASK As Integer
        Public DBCV_FLAGS As Integer
    End Structure

    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        MyBase.WndProc(m)
        Select m.Msg
            Case WM_DEVICECHANGED
                Select Case m.WParam.ToInt32
                    Case DBT_DEVICEARRIVAL
                        Debug.WriteLine("Device Added")
                        Dim getHDR As DEV_BROADCAST_HDR = m.GetLParam(GetType(DEV_BROADCAST_HDR))
                        If getHDR.DBCH_DEVICETYPE = DBT_DEVTYP_VOLUME Then
                            Dim getVolume As DEV_BROADCAST_VOLUME = m.GetLParam(GetType(DEV_BROADCAST_VOLUME))
                            Dim Drives As List(Of String) = GetDrives(getVolume)
                            For Each selDrive As String In Drives
                                Debug.WriteLine(selDrive)
                            Next
                        End If
                    Case DBT_DEVICEREMOVECOMPLETE
                        Debug.WriteLine("Device Removed")
                        Dim getHDR As DEV_BROADCAST_HDR = m.GetLParam(GetType(DEV_BROADCAST_HDR))
                        If getHDR.DBCH_DEVICETYPE = DBT_DEVTYP_VOLUME Then
                            Dim getVolume As DEV_BROADCAST_VOLUME = m.GetLParam(GetType(DEV_BROADCAST_VOLUME))
                            Dim Drives As List(Of String) = GetDrives(getVolume)
                            For Each selDrive As String In Drives
                                Debug.WriteLine(selDrive)
                            Next
                        End If
                End Select

        End Select
    End Sub

    Private Function GetDrives(ByVal DEV_BROADCAST_VOLUME As DEV_BROADCAST_VOLUME) As List(Of String)
        Dim Drives As New List(Of String)
        Dim bitVolumes As New BitArray(New Integer() {DEV_BROADCAST_VOLUME.DBCV_UNITMASK})
        For indexVolume As Integer = 0 To 31
            If bitVolumes(indexVolume) Then
                Drives.Add(Chr(Asc("A") + indexVolume))
            End If
        Next
        Return Drives
    End Function
End Class