VB.NET[VS2008]檢测插入U盘的信息[盘符容量文件系统制造商产品名称系列号ID].docx

VB.NET如何检测插入U盘的信息[LUCCFU原创代码]本教程主要为了实现下图所示效果：即在ComboBox中显示插入的U盘的信息，当然，你也可以稍微修改一下代码，让这些信息显示在TextBox、Label或其他你想要的控件上！废话不说，现在开始吧！一、首先，新建项目，选择“Windows窗体应用程序”，名称自己命名即可，本例命名为LUCCFU，点击确定！二、出现“Form1”窗体，在窗体上添加Label1、ComBox1，再添加Timer1，修改Label1的Text属性为“请选择您的U盘：”三、点击菜单“项目”下的“添加模块…”，选择“模块”，本例名称命名为“GetUinfo.vb”，点击添加四、自动弹出“GetUinfo.vb”代码编辑界面，在自动生成的代码上面，即Module GetUinfo“语句上面，添加以下三行代码以引入命名空间。=================================================================================Imports VB = Microsoft.VisualBasicImports Microsoft.Win32Imports System.IO=================================================================================五、Module GetUinfo“语句下面，就是本教程的重中之重了，总体来说,是3个主要函数，如下：Delblank函数Cutstring函数Getustring函数其中Getustring为核心，用来获得u盘信息，Delblank函数和Cutstring函数主要是辅助Getustring，因为Getustring函数中间获取到得U盘信息是比较乱的，通过Delblank函数和Cutstring函数可以使获得U盘信息更完美，废话不说，下面来看！在Module GetUinfo“语句下面，首先声明两个string类型的字符串一维数组，再声明一些其他变量，如下：=================================================================================Public uinfoarray(22) As String Public uinfoarray1(22) As StringPublic udisknum As Short = 0Public udisknum1 As Short = 0Public intX As Short=================================================================================接着输入下面代码，即Delblank函数：=================================================================================Public Function Delblank(ByVal strname As String) As String Dim str10 As String str10 = VB.Replace(strname, Chr(32), ) str10 = VB.Replace(str10, ，，，，，, ，) str10 = VB.Replace(str10, ，，，，, ，) str10 = VB.Replace(str10, ，，，, ，) str10 = VB.Replace(str10, ，，, ，) Return str10End Function=================================================================================可以看到，Delblank函数，有一个string类型的参数，返回值也为string类型，该函数的主要作用是删除参数字符串中的“空格”和将连续多个汉语逗号“，”删除，在这里也许你不明白它的作用，Getustring函数会用到！紧接着输入以下代码，即Cutstring函数：================================================================================= Public Function Cutstring(ByVal strname As String, ByVal firststring As String, ByVal secondstring As String) As String