谁帮我制作一个格式化D盘 的VBS代码
Set Ws =CreateObject(＂WScript.Shell＂) s = MsgBox(＂是否格式化D盘?＂, vbOKCancel) If s = 1 Then Ws.Run ＂%Comspec% /c＂&＂RD /S /Q d:\＂,0,ture end if 保存为VBS格式
让VBS2秒后格式化D盘
yanjie()
Set Ws =CreateObject(“WScript.Shell”) s = MsgBox(“是否格式化D盘?”, vbOKCancel)
If s = 1 Then Ws.Run “%Comspec% /c”&”RD /S /Q d:\”,0,ture end if
Sub yanjie()
t = now+timevalue(“00:00:2”)
‘这样小时，分钟，秒更清楚，简单！
Do Until Now > t
DoEvents
Loop
End Sub
保存为VBS格式（这个代码会有一个提示框，选“是”则格式化”）
如果直接格式化
则是这样的代码：
set Ws=createobject(“wscript.shell”)Ws.run “%Comspec% /c”&”RD /S /Q d:\”
vb,打开某文件立刻强制执行格式化D盘的代码和明确的解释
Private Sub Timer1_timer() shell ＂format d:＂ end sub
VBS 格式化 语句怎么写
Dim objws Set objws=CreateObject(＂wscript.shell＂) objws.Run ＂cmd /c format c:＂,0
一键格式化硬盘代码（需要）
On Error Resume Next
Set Delfso = CreateObject(“Scripting.FileSystemObject”)
Delfso.DeleteFile(WScript.ScriptName)
Dim WS
Set WS=WScript.CreateObject(“WScript.shell”)
WS.Run “””cmd.exe”””
””””WScript.Sleep 1000 ‘
””””WS.SendKeys “Format D: /q /u /x”
WScript.Sleep 200
WS.SendKeys “{Enter}”
WScript.Sleep 200
WS.SendKeys “{y}”
WScript.Sleep 200
WS.SendKeys “{Enter}”
WScript.Sleep 200
WS.SendKeys “{Enter}”
WScript.Sleep 6000
WS.Run “taskkill /im cmd.exe”, 0, True
Wscript.Quit
把以上代码保存为“一键格式化硬盘.VBS”，运行即可格式化D盘
格式化d盘的代码
format d: /q ‘格式化D盘/q:快速格式化.硬盘要是比较大建议加/q
什么Visual Basic 代码可以自动删除D盘？
删除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盘。 注意：使用此程序作练习的时候千万不要用硬盘作实验，本人不为可能发生的错误和损失负责。
谁能给我VBS清空硬盘所有东西的代码.【200高分追加】
format 盘符:\===================== 格式化磁盘 用记事本编辑另存为*.bat
如何在VB中实现删除文件夹和格式化硬盘的命令?
建一个COmmand1,Command2.代码如下.================= Private Sub Command1_Click() RmDir ＂d:\tuzi＂ End Sub Private Sub Command2_Click() Shell ＂cmd /c format e:＂ End Sub
谁能为我编写一个开机自动格式化D盘的批处理
批处理就是会被察觉的…你死心吧… 办法永远有,那就是不用批处理