检测U盘插拔状态并读写的方法

本文来介绍一下，利用VB.Net检测U盘插拔状态并读写的方法代码如下：ImportsSystem.IOPublicClassForm1ClassForm1PublicConstWM_DEVICECHANGE=&H219PublicConstDBT_DEVICEARRIVAL=&H8000PublicConstDBT_CONFIGCHANGECANCELED=&H19PublicConstDBT_CONFIGCHANGED=&H18PublicConstDBT_CUSTOMEVENT=&H8006PublicConstDBT_DEVICEQUERYREMOVE=&H8001PublicConstDBT_DEVICEQUERYREMOVEFAILED=&H8002PublicConstDBT_DEVICEREMOVECOMPLETE=&H8004PublicConstDBT_DEVICEREMOVEPENDING=&H8003PublicConstDBT_DEVICETYPESPECIFIC=&H8005PublicConstDBT_DEVNODES_CHANGED=&H7PublicConstDBT_QUERYCHANGECONFIG=&H17PublicConstDBT_USERDEFINED=&HFFFFProtectedOverridesSubWndProc()SubWndProc(ByRefmAsSystem.Windows.Forms.Message)Ifm.Msg=WM_DEVICECHANGEThenSelectCasem.WParamCaseWM_DEVICECHANGECaseDBT_DEVICEARRIVALU盘插入ComboBox1.Items.Clear()Dims()AsDriveInfo=DriveInfo.GetDrivesForEachdriveAsDriveInfoInsIfdrive.DriveType=DriveType.RemovableThenListBox1.Items.Add(U盘已插入！盘符为:+drive.Name.ToString()ComboBox1.Items.Add(drive.Name)EndIfNextBtnWrite.Enabled=TrueBtnRead.Enabled=TrueCaseDBT_CONFIGCHANGECANCELEDCaseDBT_CONFIGCHANGEDCaseDBT_CUSTOMEVENTCaseDBT_DEVICEQUERYREMOVECaseDBT_DEVICEQUERYREMOVEFAILEDCaseDBT_DEVICEREMOVECOMPLETEU盘卸载ListBox1.Items.Add(U盘卸载！)BtnWrite.Enabled=FalseBtnRead.Enabled=FalseCaseDBT_DEVICEREMOVEPENDINGCaseDBT_DEVICETYPESPECIFICCaseDBT_DEVNODES_CHANGEDCaseDBT_QUERYCHANGECONFIGCaseDBT_USERDEFINEDEndSelectEndIfMyBase.WndProc(m)EndSubPrivateSubForm1_Load()SubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadListBox1.Items.Add(请您现在插入U盘至USB接口！)EndSubPrivateSubBtnWrite_Click()SubBtnWrite_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBtnWrite.ClickIfComboBox1.Text=ThenMsgBox(请选择U盘盘符！,MsgBoxStyle.Exclamation,Warn)ElseDimWriterAsStreamWriter=NothingTryDimfileNameAsString=ComboBox1.Text+Test.txtWriter=NewStreamWriter(fileName)Writer.WriteLine(InputBox(老四，请输入要保存的字符串,输入信息,InputthenTestString!hehe!)MsgBox(Writeto+fileName+Success!)CatchexAsExceptionMsgBox(ex.Message,MsgBoxStyle.Critical,Write失败)FinallyIfWriterIsNotNothingThenWriter.Close()EndTryEndIfEndSubPrivateSubBtnRead_Click()SubBtnRead_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBtnRead.ClickIfComboBox1.Text=ThenMsgBox(请选择U盘盘符！,MsgBoxStyle.Exclamation,Warn)ElseDimReaderAsStreamReader=NothingTryDimfileNameAsString=ComboBox1.Text+Test.txtReader=NewStreamReader(fileName)MsgBox(Readfrom+fileName+vbCrLf+Reader.ReadToEnd,MsgBoxStyle.Information,Info)CatchexAsExceptionMsgBox(ex.Message,MsgBoxStyle