vb6

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

visualbasic可以通過調用api函數格式化一個磁碟，無論是軟盤還是硬碟。

打開一個新的項目(project1)，如果你沒有更改過預設模式，那麼visualbasic會自動添加一個form1文件，在form1上添加一個命令控制項，將下面的代碼拷入。

optionexplicit

privatedeclarefunctionshformatdrivelib"shell32"_

(byvalhendlong,_

byvaldrivelong,_

byvalformatidlong,_

byvaloptionslong)long

privatesubformatdisk(intdriveinteger,blnquickformatboolean)

dimlngreturnlong；

(blnquickformat)then

lngreturn=shformatdrive(0,intdrive,0&,1&)

else

lngreturn=shformatdrive(0,intdrive,0&,0&)

end

endsub

privatesuborgmand1_click

callformatdisk(0,true)

endsub

運行此程序。

這裡有必要提醒讀者注意的是，formatdisk函數的第一個變數很重要，他的值是0,1,2時代表格式化的分別是：a、b、c盤。

注意：讀者使用此程序作練習的時候千萬不要用硬碟作實驗，筆者不為可能發生的錯誤和損失負責