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

新客网 XKER.COM 2005-01-20 来源： 收藏本文

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

　　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开发技巧：http://dev.yesky.com/SoftChannel/72342371928637440/index.shtml

• ·身份证函数 查看身份证地区信息
• ·VS2008 第一次安装心得及使用
• ·ASP.NET 2.0跨网页提交的三法
• ·编程实例 WebGroupBox(Aspx控件)
• ·asp.net mvc脚手架代码生成工具
• ·用独立的DLL来存储图片(资源文件)
• ·ASP.NET中多国语言的实现方法
• ·实例 .net生成静态页方法总结
• ·ASP.NET控件学习笔记之ViewState
• ·用递归在TreeView价节点
• ·经验总结 关于.NET 中的Event机制
• ·.NET应用程序开发标准化(z)
• ·在DataTable中查询应该注意的问题
• ·LINQ 中调用存储过程自动绑定列名
• ·如何用.NET技术在线生成网站LOGO
• ·对于访问IIS元数据库失败的解决