vb.netu盘信息 vbnet读写文件

vb(vb.net)能不能修改计算机中指定驱动器的盘符？ 我想在U盘插入时通过序列号识别指定设备并

Sub RenameVolume()

'利用Shell函数在命令提示符下执行Diskpart命令的脚本，并存入日志文件

'达到替换逻辑盘符的目的

'在WindowsXp系统下测试成功

'获取临时文件路径

Temp = Environ("TEMP") "\"

'获取命令提示符路径

Cmd = Environ("ComSpec")

'设置脚本文件和日志文件路径

ScriptFile = Temp "DiskpartScript.txt"

ScriptLog = Temp "DiskpartScript.log"

'回车符和换行符

vbLfCr = vbLf vbCr

'脚本文件内容

'选择卷e

'移除盘符e

'分配盘符m

'退出Diskpart

ScriptTxt = "select volume e" vbLf vbCr _

"Remove letter = e" vbLf vbCr _

"assign letter = m" vbLf vbCr _

"exit" vbLf vbCr

'打开脚本文件并读取内容

Open ScriptFile For Output As #1

Print #1, ScriptTxt

Close #1

'打开错误处理

On Error Resume Next

'删除原有日志文件

Kill ScriptLog

'关闭错误处理

On Error GoTo 0

'执行脚本

ShellTxt = Cmd " /c ""diskpart.exe /S " ScriptFile " " ScriptLog """"

Shell ShellTxt

'打开错误处理

On Error Resume Next

Do

Err.Number = 0

'打开日志文件并读取内容，因日志文件存取速度慢，必须以锁定方式打开，否则会出错

Open ScriptLog For Input Lock Read Write As #1

DoEvents

Loop Until Err.Number = 0

'关闭错误处理

On Error GoTo 0

'日志文件中含有中文字符，必须以InputB函数以字节方式读取，否则长度会超出

LogTxt = InputB(LOF(1), #1)

Close #1

'转换以字节方式读取的日志文件内容

LogTxt = StrConv(LogTxt, vbUnicode)

'如果日志中出现两次成功，则认为执行成功，否则认为失败

If Len(LogTxt) - Len(Replace(LogTxt, "成功", "", 1)) = 4 Then

MsgBox "盘符替换成功！"

Else

MsgBox "盘符替换失败！"

End If

'删除临时文件

Kill ScriptFile

Kill ScriptLog

End Sub

相关问答

Q1: vb.net编程接受U盘准备卸载用的windows消息 DBT_DEVICEQUERYREMOVE总是没反应，据说是因为默认注册的消息里

在我的XP+VB2010环境下，测试U盘插入拔出，没有问题：

Private WM_DEVICECHANGE As Integer = H219

Public Enum WM_DEVICECHANGE_WPPARAMS As Integer

DBT_CONFIGCHANGECANCELED = H19

DBT_CONFIGCHANGED = H18

DBT_CUSTOMEVENT = H8006

DBT_DEVICEARRIVAL = H8000

DBT_DEVICEQUERYREMOVE = H8001

DBT_DEVICEQUERYREMOVEFAILED = H8002

DBT_DEVICEREMOVECOMPLETE = H8004

DBT_DEVICEREMOVEPENDING = H8003

DBT_DEVICETYPESPECIFIC = H8005

DBT_DEVNODES_CHANGED = H7

DBT_QUERYCHANGECONFIG = H17

DBT_USERDEFINED = HFFFF

End Enum

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)

If m.Msg = WM_DEVICECHANGE Then

Select Case m.WParam

Case WM_DEVICECHANGE_WPPARAMS.DBT_DEVICEARRIVAL

MsgBox("USB device is just plugged in!")

Case WM_DEVICECHANGE_WPPARAMS.DBT_DEVICEREMOVECOMPLETE

MsgBox("USB device is just taken out")

End Select

End If

MyBase.WndProc(m)

End Sub

Q2: 关于 VB.NET 2008中U盘的插拔

一下代码将自动完成检测vb.netu盘信息：

Imports System.IO

Public Class Form1

Public Const WM_DEVICECHANGE = H219

Public Const DBT_DEVICEARRIVAL = H8000

Public Const DBT_DEVICEREMOVECOMPLETE = H8004

Dim DriveLetter As String

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)

If m.Msg = WM_DEVICECHANGE Then

Select Case m.WParam

Case DBT_DEVICEARRIVAL

Dim s() As DriveInfo = DriveInfo.GetDrives

For Each drive As DriveInfo In s

If drive.DriveType = DriveType.Removable Then

DriveLetter = drive.Name.ToString()

Debug.WriteLine("U盘 :" DriveLetter "已插入.")

End If

Next

Case DBT_DEVICEREMOVECOMPLETE

Dim s() As DriveInfo = DriveInfo.GetDrives

For Each drive As DriveInfo In s

If drive.ToString = DriveLetter Then Exit Sub

Next

Debug.WriteLine("U盘:" DriveLetter "已卸载vb.netu盘信息！")

End Select

End If

MyBase.WndProc(m)

End Sub

End Class

Q3: VB.Net如何查看计算机硬件的详细属性(如:查看U盘的位置)?

先引用system.io

之后声明类型为 DriveInfo 的变量

声明的对象中包含 一些方法

关于vb.netu盘信息和vbnet读写文件的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。