工作需要，我想弄一个U盘插拔检测小程序，听说你以前编写过一个，请问能否把代码提供一份给我？

微信公开课小程序热门讨论「工作需要，我想弄一个U盘插拔检测小程序，听说你以前编写过一个，请问能否把代码提供一份给我？」最新回复-由于没留邮箱，给你关键代码吧，不过，这是我4年前的代码了，我不是计算机专业的，现在看这些代码都觉得那时候真不会写代码，请勿见怪，就算抛砖引玉吧~ImportsSystem.ManagementPublicClassjianshiDimcountAsInteger=0,pan()AsStringDimname1AsString=,name2AsString=,volumename1AsString=,volumename2AsString=,filesystem1AsString=,filesystem2AsString=,size1AsString=,size2AsString=,description1AsString=,description2AsString=,drivetype1AsString=,drivetype2AsString=PrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer1.TickCallMe.ShowDriveType()EndSubPrivateSubShowDriveType()Dimcount2AsInteger=0,hAsInteger=1,tempAsString=DimdiskAsManagementBaseObjectDimstrResultAsString=,okAsString=DimdiskClass=NewManagementClass(Win32_LogicalDisk)DimdisksAsManagementObjectCollectiondisks=diskClass.GetInstances()ForEachdiskIndisksIfSystem.Convert.ToInt16(disk(DriveType).ToString())=2Thencount2+=1检测有多少个可移动磁盘EndIfNextIfcountcount2Then储存磁盘的盘符Ifcount2countThen插入U盘ReDimPreservepan(count2)ForEachdiskIndisksok=IfSystem.Convert.ToInt16(disk(DriveType).ToString())=2ThenFori=1ToUBound(pan)Ifpan(i)=disk(name)Thenok=yesIfpan(i)disk(name)Andok=Andi=UBound(pan)ThenReDimPreservepan(UBound(pan)+1)pan(UBound(pan))=disk(name)name1=disk(name).ToString:volumename1=disk(volumename).ToString:filesystem1=disk(filesystem).ToString:size1=disk(size).ToString:description1=disk(description).ToString:drivetype1=disk(drivetype).ToStringIfname1name2OrElsevolumename1volumename2OrElsefilesystem1filesystem2OrElsesize1size2OrElsedescription1description2OrElsedrivetype1drivetype2Thentemp=temp&vbCrLf&vbCrLf&在&System.DateTime.Now&插入过USB设备&vbCrLf&驱动盘符：&name1&vbCrLf&卷标：&IIf(volumename1=,可移动磁盘,volumename1)&vbCrLf&磁盘文件类型:&filesystem1&vbCrLf&磁盘大小：&Int(Convert.ToInt64(size1)/1000000)&Mb&vbCrLf&描述：&description1&vbCrLf&磁盘类型：&drivetype1name2=name1:volumename2=volumename1:filesystem2=filesystem1:size2=size1:description2=description1:drivetype2=drivetype1EndIfEndIfNextEndIfNextElse拔除U盘Ifcount2=0ThenFori=1ToUBound(pan)temp=temp&vbCrLf&vbCrLf&在&System.DateTime.Now&拔除&pan(i)&盘NextReDimpan(0)ElseForEachdiskIndisksIfSystem.Convert.ToInt16(disk(DriveType).ToString())=2ThenFori=1ToUBound(pan)Ifpan(i)=disk(name)Thenpan(i)=NextEndIfNextFori=1ToUBound(pan)Ifpan(i)Thentemp=temp&vbCrLf&vbCrLf&在&System.DateTime.Now&拔除&pan(i)&盘EndIfNextReDimpan(0)恢复pan数组ReDimpan(count2)ForEachdiskIndisksIfSystem.Convert.ToInt16(disk(DriveType).ToString())=2Thenpan(h)=disk(name)h+=1EndIfNextReDimPreservepan(count2)EndIfEndIfCallmain.fresh(temp)EndIfcount=count2EndSubEndClass来自：求助得到的回答
在这里等到答案估计很难，建议你到用你需要的开发语言的论坛上求助，可能有效果 更多有关「工作需要，我想弄一个U盘插拔检测小程序，听说你以前编写过一个，请问能否把代码提供一份给我？」的疑问请扫码关注微信公开课+小程序！