檢測U盤插拔狀態(tài)并讀寫的方法

1、本文來介紹一下，利用VB.Net檢測U盤插拔狀態(tài)并讀寫的方法代碼如下：Imports System.IOPublic Class Form1Class Form1    Public Const WM_DEVICECHANGE = &H219    Public Const DBT_DEVICEARRIVAL = &H8000    Publ

2、ic Const DBT_CONFIGCHANGECANCELED = &H19    Public Const DBT_CONFIGCHANGED = &H18    Public Const DBT_CUSTOMEVENT = &H8006    Public Const DBT_DEVICEQUERYREMO

3、VE = &H8001    Public Const DBT_DEVICEQUERYREMOVEFAILED = &H8002    Public Const DBT_DEVICEREMOVECOMPLETE = &H8004    Public Const DBT_DEVICEREMOVEPENDING = &

4、amp;H8003    Public Const DBT_DEVICETYPESPECIFIC = &H8005    Public Const DBT_DEVNODES_CHANGED = &H7    Public Const DBT_QUERYCHANGECONFIG = &H17    

5、;Public Const DBT_USERDEFINED = &HFFFF    Protected Overrides Sub WndProc()Sub WndProc(ByRef m As System.Windows.Forms.Message)        If m.Msg = WM_DEVICECHANGE 

6、;Then            Select Case m.WParam                Case WM_DEVICECHANGE            

7、    Case DBT_DEVICEARRIVAL 'U盤插入                    ComboBox1.Items.Clear()               &

8、#160;    Dim s() As DriveInfo = DriveInfo.GetDrives                    For Each drive As DriveInfo In s   

9、0;                    If drive.DriveType = DriveType.Removable Then                   

10、;         ListBox1.Items.Add("U盤已插入！盤符為:" + drive.Name.ToString()                            Co

11、mboBox1.Items.Add(drive.Name)                        End If                   &#

12、160;Next                    BtnWrite.Enabled = True                    BtnRead.Enabled

13、0;= True                Case DBT_CONFIGCHANGECANCELED                Case DBT_CONFIGCHANGED     

14、0;          Case DBT_CUSTOMEVENT                Case DBT_DEVICEQUERYREMOVE              &#

15、160; Case DBT_DEVICEQUERYREMOVEFAILED                Case DBT_DEVICEREMOVECOMPLETE 'U盤卸載                  

16、  ListBox1.Items.Add("U盤卸載！")                    BtnWrite.Enabled = False                &

17、#160;   BtnRead.Enabled = False                Case DBT_DEVICEREMOVEPENDING                Case DBT_DEVIC

18、ETYPESPECIFIC                Case DBT_DEVNODES_CHANGED                Case DBT_QUERYCHANGECONFIG     

19、0;          Case DBT_USERDEFINED            End Select        End If        MyBase.WndProc(m)&#

20、160;   End Sub    Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        ListBox1.Items.A

21、dd("請您現(xiàn)在插入U盤至USB接口！")    End Sub    Private Sub BtnWrite_Click()Sub BtnWrite_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnWrite.Click   &#

22、160;    If ComboBox1.Text = "" Then            MsgBox("請選擇U盤盤符！", MsgBoxStyle.Exclamation, "Warn")        Else 

23、0;          Dim Writer As StreamWriter = Nothing            Try                Dim

24、60;fileName As String = ComboBox1.Text + "Test.txt"                Writer = New StreamWriter(fileName)          

25、60;     Writer.WriteLine(InputBox("老四，請輸入要保存的字符串", "輸入信息", "Input then Test String! hehe!")                MsgBox("Write to&#

26、160;" + fileName + " Success!")            Catch ex As Exception                MsgBox(ex.Message, M

27、sgBoxStyle.Critical, "Write 失敗")            Finally                If Writer IsNot Nothing Then Writer.Close() 

28、;           End Try        End If    End Sub    Private Sub BtnRead_Click()Sub BtnRead_Click(ByVal sender As System.Obje

29、ct, ByVal e As System.EventArgs) Handles BtnRead.Click        If ComboBox1.Text = "" Then            MsgBox("請選擇U盤盤符！", MsgBo

30、xStyle.Exclamation, "Warn")        Else            Dim Reader As StreamReader = Nothing            T

31、ry                Dim fileName As String = ComboBox1.Text + "Test.txt"                Reader = New StreamRe