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

山里娃的后生

山里娃的后生

2016-01-29 12:59

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

  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
展开更多 50%)
分享

猜你喜欢

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

电脑网络
用VB6.0编写磁盘格式化程序

浅谈用VB6.0编写BO程序

编程语言 网络编程
浅谈用VB6.0编写BO程序

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

用VB6.0编写手机短信发送

编程语言 网络编程
用VB6.0编写手机短信发送

利用VB6.0设计屏幕保护程序

编程语言 网络编程
利用VB6.0设计屏幕保护程序

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

“磁盘未被格式化,是否格式化”的解决方法

电脑入门
“磁盘未被格式化,是否格式化”的解决方法

在VB程序中格式化SQL字符串

编程语言 网络编程
在VB程序中格式化SQL字符串

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

[新]可精确到1毫秒的用以在记录文件中写入自定义的调试信息(主要是时间)的组件

[新]可精确到1毫秒的用以在记录文件中写入自定义的调试信息(主要是时间)的组件

《灵魂献祭Delta》突进变身战术以及掩体的利用

《灵魂献祭Delta》突进变身战术以及掩体的利用
下拉加载更多内容 ↓