VB.NET編程語(yǔ)言是一個(gè)功能強(qiáng)大的，支持類的所有特性的編程語(yǔ)言，其應(yīng)用范圍廣泛，除了能對(duì)數(shù)據(jù)庫(kù)，Excel表，文件等進(jìn)行操作，還能對(duì)移動(dòng)設(shè)備進(jìn)行相應(yīng)的操作。在這里大家就可以了解到VB.NET磁盤(pán)格式化的具體實(shí)現(xiàn)方法，讓大家了解這一語(yǔ)言的功能的強(qiáng)大。#t#

磁盤(pán)是數(shù)據(jù)的常用載體，我們的軟件可能會(huì)提供用戶將數(shù)據(jù)備份到磁盤(pán)上的功能。為避免磁盤(pán)上有帶有病毒的文件，最安全的辦法就是提醒用戶將磁盤(pán)格式化。

Visual Basic可以通過(guò)調(diào)用API函數(shù)格式化一個(gè)磁盤(pán)，無(wú)論是磁盤(pán)還是硬盤(pán)。

打開(kāi)一個(gè)新的項(xiàng)目(project1) ，如果你沒(méi)有更改過(guò)缺省模式，那么Visual Basic會(huì)自動(dòng)添加一個(gè)form1文件，在form1上添加一個(gè)命令控件，將下面的代碼拷入。

Option Explicit   
Private Declare Function SHFormatDrive Lib"shell32"_   
( ByVal Hend AS Long,_   
ByVal Drive AS Long,_   
ByVal FormatID AS Long,_   
ByVal Options AS Long) as Long   
Private Sub FormatDisk(intDrive as integer,blnQuickFormat as Boolean)   
dim lngReturn As Long；   
if (blnQuickFormat) then   
lngReturn= SHFormatDrive(0,intDrive,0&,1&)   
else   
lngReturn= SHFormatDrive(0,intDrive,0&,0&)   
end if   
end Sub   
Private Sub Command1_Click()   
call FormatDisk(0,True)   
End Sub  

運(yùn)行此程序，就可以實(shí)現(xiàn)VB.NET磁盤(pán)格式化這一功能。

這里有必要提醒讀者注意的是，F(xiàn)ormatDisk函數(shù)的***個(gè)變量很重要，他的值是0,1,2時(shí)代表格式化的分別是：A、B、C盤(pán)。

注意：讀者使用此VB.NET磁盤(pán)格式化的程序作練習(xí)的時(shí)候千萬(wàn)不要用硬盤(pán)作實(shí)驗(yàn)，筆者不為可能發(fā)生的錯(cuò)誤和損失負(fù)責(zé)。