Visual Basic

samerh wrote:

Thanks for your reply, but suppose i dont want to use multi-threading!!!

<br />
   Private Const GWL_WNDPROC As Long = (-4)<br />
    Private Const WM_DEVICECHANGE As Long = &H219<br />
    Private Const DBT_DEVNODES_CHANGED As Long = &H7<br />
    Private Const DBT_DEVICEARRIVAL As Long = &H8000&<br />
    Private Const DBT_DEVICEREMOVECOMPLETE As Long = &H8004&<br />
    Private Const DBT_DEVTYP_VOLUME As Long = &H2 ' Logical volume<br />
    Private Const DBT_DEVTYP_DEVICEINTERFACE As Long = &H5 ' Device interface class<br />
    Private Const DBTF_MEDIA As Long = &H1 ' Media comings and goings<br />
    Private Const DBTF_NET As Long = &H2 ' Network volume<br />
<br />
    Private Enum DriveType As Integer<br />
        DRIVE_UNKNOWN = 0<br />
        DRIVE_NO_ROOT_DIR = 1<br />
        DRIVE_REMOVABLE = 2<br />
        DRIVE_FIXED = 3<br />
        DRIVE_REMOTE = 4<br />
        DRIVE_CDROM = 5<br />
        DRIVE_RAMDISK = 6<br />
    End Enum<br />
<br />
    Private Structure DEV_BROADCAST_HDR<br />
        Public dbch_size As Integer<br />
        Public dbch_devicetype As Integer<br />
        Public dbch_reserved As Integer<br />
    End Structure<br />
<br />
    Private Structure DEV_BROADCAST_VOLUME<br />
        Public dbcv_size As Integer<br />
        Public dbcv_devicetype As Integer<br />
        Public dbcv_reserved As Integer<br />
        Public dbcv_unitmask As Integer<br />
        Public dbcv_Flags As Short<br />
    End Structure<br />
<br />
    Private Declare Auto Function GetDriveType Lib "kernel32.dll" (ByVal nDrive As String) As DriveType<br />
<br />
    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)<br />
        If m.Msg = WM_DEVICECHANGE Then<br />
            Dim WParam As Int32 = m.WParam.ToInt32()<br />
            Dim dInfo As String = ""<br />
<br />
            Select Case WParam<br />
                Case DBT_DEVICEARRIVAL<br />
                    dInfo = showInfo(m, WParam)<br />
                    If Me.advancedMode Then<br />
                        If MsgBox("New Drive Detected: " & dInfo & vbCrLf & "Would you like to view the images on the drive?", CType(MsgBoxStyle.Question + MsgBoxStyle.YesNo, MsgBoxStyle), "New Drive Detected") = MsgBoxResult.Yes Then<br />
                            'Me.treeBrowse_ExpTreeNodeSelected(Split$(dInfo, ":")(0) & ":\", )<br />
                            loadImages(Split$(dInfo, ":")(0) & ":\")<br />
                        End If<br />
                    Else<br />
                        loadImagesUploader(Split$(dInfo, ":")(0) & ":\")<br />
                    End If<br />
                    Me.timerRefrshTree.Start()<br />
                Case DBT_DEVICEREMOVECOMPLETE<br />
                    dInfo = showInfo(m, WParam)<br />
                    If Split$(dInfo, ":")(0) <> "" Then<br />
                        MsgBox("Drive " & Split$(dInfo, ":")(0) & ":\ Removed", CType(MsgBoxStyle.Information + MsgBoxStyle.OkOnly, MsgBoxStyle), "Device Removal")<br />
                        Me.timerRefrshTree.Start()<br />
                    End If<br />
<br />
                    m.Msg = &H0<br />
            End Select<br />
            Me.Refresh()<br />
        End If<br />
        MyBase.WndProc(m)<br />
    End Sub<br />
<br />
    Private Function showInfo(ByVal m As System.Windows.Forms.Message, ByVal WParam As Int32) As String<br />
        Dim infoString As String = ""<br />
        Dim Header As DEV_BROADCAST_HDR<br />
        Dim HeaderVolume As DEV_BROADCAST_VOLUME<br />
        Dim HdrType As Type = GetType(DEV_BROADCAST_HDR)<br />
<br />
        Header = CType(Marshal.PtrToStructure(m.LParam, HdrType), DEV_BROADCAST_HDR)<br />
<br />
        If Header.dbch_devicetype = DBT_DEVTYP_VOLUME Then<br />
            Dim Bits As BitArray<br />
            Dim VolumeLetters As New ArrayList<br />
            Dim Bit As Boolean<br />
            Dim Charcode As Integer = Asc("A"c)<br />
            HeaderVolume = CType(Marshal.PtrToStructure(m.LParam, GetType(DEV_BROADCAST_VOLUME)), DEV_BROADCAST_VOLUME)<br />
            Bits = New BitArray(BitConverter.GetBytes(HeaderVolume.dbcv_unitmask))<br />
            For Each Bit In Bits<br />
                If Bit Then<br />
                    Dim driveLetter As String = Chr(Charcode)<br />
                    VolumeLetters.Add(Charcode)<br />
                    Dim thisDrivetype As DriveType<br />
                    thisDrivetype = GetDriveType(driveLetter & ":\")<br />
                    If thisDrivetype = DriveType.DRIVE_REMOVABLE Then<br />
                        infoString = driveLetter & ": Removable Drive"<br />
                    ElseIf thisDrivetype = DriveType.DRIVE_CDROM Then<br />
                        infoString = driveLetter & ": CD-ROM"<br />
                    Else<br />
                        infoString = driveLetter & ": " & thisDrivetype.ToString<br />
                    End If<br />
                End If<br />
                Charcode += 1<br />
            Next<br />
        End If<br />
<br />
        Return infoString<br />
    End Function<br />

DA_Loring wrote:

without installing ADODB in the project?