用VB6.0編寫磁盤格式化程序

2024-07-21 02:20:38

字體：大中小

供稿：網(wǎng)友

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

　　visual basic可以通過調(diào)用api函數(shù)格式化一個磁盤，無論是軟盤還是硬盤。

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

　　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

　　運行此程序。

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

　　注意：讀者使用此程序作練習(xí)的時候千萬不要用硬盤作實驗，筆者不為可能發(fā)生的錯誤和損失負(fù)責(zé)。

收集最實用的網(wǎng)頁特效代碼！

上一篇：用VB編寫異步多線程下載程序

下一篇：建立同SAS交互的開發(fā)式VB客戶端