WEB开发网
开发学院WEB开发综合 用VB6.0编写磁盘格式化程序 阅读

用VB6.0编写磁盘格式化程序

 2006-02-27 11:50:17 来源:WEB开发网   
核心提示:软盘是数据的常用载体,我们的软件可能会提供用户将数据备份到软盘上的功能,用VB6.0编写磁盘格式化程序,为避免软盘上有带有病毒的文件,最安全的办法就是提醒用户将软盘格式化,他的值是0,1,2时代表格式化的分别是:A、B、C盘,注意:读者使用此程序作练习的时候千万不要用硬盘作实验,VisualBasic可以通过调用API
软盘是数据的常用载体,我们的软件可能会提供用户将数据备份到软盘上的功能。为避免软盘上有带有病毒的文件,最安全的办法就是提醒用户将软盘格式化。

  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盘。

  注意:读者使用此程序作练习的时候千万不要用硬盘作实验,笔者不为可能发生的错误和损失负责。->

Tags:VB 编写 磁盘

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接