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

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