程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> Visual Basic語言 >> VB綜合教程 >> 用VB6.0編寫磁盤格式化程序

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

編輯:VB綜合教程
軟盤是數據的常用載體,我們的軟件可能會提供用戶將數據備份到軟盤上的功能。為避免軟盤上有帶有病毒的文件,最安全的辦法就是提醒用戶將軟盤格式化。
  
  VisualBasic可以通過調用API函數格式化一個磁盤,無論是軟盤還是硬盤。
  
  打開一個新的項目(project1),如果你沒有更改過缺省模式,那麼VisualBasic會自動添加一個form1文件,在form1上添加一個命令控件,將下面的代碼拷入。
  
  ->  OptionExplicit
  
  PrivateDeclareFunctionSHFormatDriveLib"shell32"_
   (ByValHendASLong,_
  ByValDriveASLong,_
  ByValFormatIDASLong,_
  ByValOptionsASLong)asLong
  
  PrivateSubFormatDisk(intDriveasinteger,blnQuickFormatasBoolean)
   dimlngReturnAsLong;
  
   if(blnQuickFormat)then
  lngReturn=SHFormatDrive(0,intDrive,0&,1&)
   else
  lngReturn=SHFormatDrive(0,intDrive,0&,0&)
   endif
  endSub
  
  PrivateSubCommand1_Click()
   callFormatDisk(0,True)
  EndSub->
  運行此程序。
  
  這裡有必要提醒讀者注意的是,FormatDisk函數的第一個變量很重要,他的值是0,1,2時代表格式化的分別是:A、B、C盤。
  
  注意:讀者使用此程序作練習的時候千萬不要用硬盤作實驗,筆者不為可能發生的錯誤和損失負責。->

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved