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

1、本文來介紹一下，利用檢測U盤插拔狀態(tài)并讀寫的方法代碼如下：ImptsSystem.IOPublicClassFm1PublicConstWM_DEVICECHANGE=&H219PublicConstDBT_DEVICEARRIVAL=&H8000PublicConstDBT_CONFIGCHANGECANCELED=&H19PublicConstDBT_CONFIGCHANGED=&H18PublicConstDBT_CUSTOMEV

2、ENT=&H8006PublicConstDBT_DEVICEQUERYREMOVE=&H8001PublicConstDBT_DEVICEQUERYREMOVEFAILED=&H8002PublicConstDBT_DEVICEREMOVECOMPLETE=&H8004PublicConstDBT_DEVICEREMOVEPENDING=&H8003PublicConstDBT_DEVICETYPESPECIFIC=&H8005Pub

3、licConstDBT_DEVNODES_CHANGED=&H7PublicConstDBT_QUERYCHANGECONFIG=&H17PublicConstDBT_USERDEFINED=&HFFFFProtectedOverridesSubWndProc(ByRefmAsSystem.Windows.Fms.Message)Ifm.Msg=WM_DEVICECHANGEThenCasem.WParamCaseWM_DEVICECH

4、ANGECaseDBT_DEVICEARRIVALU盤插入ComboBox1.Items.Clear()Dims()AsDriveInfo=DriveInfo.GetDrivesFEachdriveAsDriveInfoInsIfdrive.DriveType=DriveType.RemovableThenListBox1.Items.Add(“U盤已插入！盤符為:“drive.Name.ToString())ComboBox1.Ite

5、ms.Add(drive.Name)DimWriterAsStreamWriter=NothingTryDimfileNameAsString=ComboBox1.Text“Test.txt“Writer=NewStreamWriter(fileName)Writer.WriteLine(InputBox(“老四，請輸入要保存的字符串““輸入信息““InputthenTestString!hehe!“))MsgBox(“Writeto“

6、fileName“Success!“)CatchexAsExceptionMsgBox(ex.MessageMsgBoxStyle.Critical“Write失敗“)FinallyIfWriterIsNotNothingThenWriter.Close()EndTryEndIfEndSubPrivateSubBtnRead_Click(ByValsenderAsSystem.ObjectByValeAsSystem.EventArgs

7、)HlesBtnRead.ClickIfComboBox1.Text=““ThenMsgBox(“請選擇U盤盤符！“MsgBoxStyle.Exclamation“Warn“)ElseDimReaderAsStreamReader=NothingTryDimfileNameAsString=ComboBox1.Text“Test.txt“Reader=NewStreamReader(fileName)MsgBox(“Readfrom“f