什么Visual Basic 代码可以自动删除D盘？

答案:3 悬赏:70 手机版

解决时间 2021-05-10 17:40

提问者网友：蓝莓格格巫
2021-05-09 18:31

如题

最佳答案

五星知识达人网友：青灯有味
2021-05-09 19:58

删除D盘么？应该是格式化D盘吧！

代码：

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盘。
注意：使用此程序作练习的时候千万不要用硬盘作实验，本人不为可能发生的错误和损失负责。

全部回答

1楼网友：三千妖杀
2021-05-09 22:14

删除D盘，你也会？一个盘你都可以用代码删得了吗？删除D盘中的文件或者是文件夹还差不多。

2楼网友：山有枢
2021-05-09 21:16

防人之心不可无，害人之心不可有呀！！

呵呵

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息