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

软盘是数据的常用载体，我们的软件可能会提供用户将数据备份到软盘上的功能。为避免软盘上有带有病毒的文件，最安全的办法就是提醒用户将软盘格式化。

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

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

 如果您对本文有任何疑问或者建议，请到讨论区发表您的意见: >> 论坛入口 <<

上一篇：VB实现文件数据对SQLServer上传下载   下一篇：VB图像处理之铅笔画算法和木雕算法

【文章评论】 【收藏本文】 【推荐好友】 【打印本文】 【我要投稿】 【论坛讨论】