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

2024-07-21 02:20:38

字体：大中小

来源：转载

供稿：网友

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

　　visual basic可以通过调用api函数格式化一个磁盘，无论是软盘还是硬盘。

　　打开一个新的项目(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函数的第一个变量很重要，他的值是0,1,2时代表格式化的分别是：a、b、c盘。

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

收集最实用的网页特效代码！

上一篇：用VB编写异步多线程下载程序

下一篇：建立同SAS交互的开发式VB客户端