VB獲取驅動器號的名稱

由FSO(文件系統對象模型)實現

FSO對象模型包含在腳本類型庫中(SCRRUN。DLL)。調用方法如下:

在項目菜單中選擇引用，在COM中選擇Microsoft腳本運行時。

在代碼頂部添加導入腳本，並將以下代碼添加到按鈕的click事件中:

導入腳本

private Sub btnFso _ Click(ByVal sender As System。對象，ByVal e作為系統。EventArgs)處理btnFso。點擊

Dim Fso作為新的文件系統對象

Dim drvDisk作為驅動器，strResult作為字符串

drvDisk = Fso。GetDrive("C:\ ")

strResult = " Drive " & ampC:\ " & amp；vbCrLf

StrResult += "磁盤標簽:" &；drvDisk。卷名& ampvbCrLf

StrResult += "磁盤序列號:" &；drvDisk。序列號& ampvbCrLf

StrResult += "磁盤類型:" &；drvDisk。驅動類型& ampvbCrLf

StrResult += "文件系統:" &；drvDisk。文件系統& ampvbCrLf

StrResult += "磁盤容量(g):" &；FormatNumber(((drvDisk。total size/1024)/1024)/1024，2，，，微軟。VisualBasic.TriState.True)vbCrLf

StrResult += "可用空間(g):" &；FormatNumber(((drvDisk。FreeSpace/1024)/1024)/1024，2，，，微軟。VisualBasic.TriState.True)vbCrLf

StrResult += "已用空間(g):" &；FormatNumber(((((drvDisk。TotalSize - drvDisk。FreeSpace)/1024)/1024)/1024)，2，，，微軟。VisualBasic.TriState.True)

MsgBox(strResult)

末端接頭