7,762
社区成员
发帖
与我相关
我的任务
分享用vb编写程序，怎样才能格式化硬盘呀~！
小弟现在是一中学的学生！现任班上的机房管理员！所以，经常会帮助老师格式化学生机！但是学生机有60台！刚开始还不觉得有什么！但最近机房闹瘟疫！三天两头的格式化！实在是受不了！所以请各位大侠指点一下，关于格式硬盘的函数或方法！小弟在这里先谢谢各位了！
...全文
请发表友善的回复…
发表回复
freebird911 2001-12-18
- 打赏
- 举报
谢谢了哈！
freebird911 2001-12-08
- 打赏
- 举报
请问shell("Format c:/q/y") 中的“q”、“y”是什么意识呀！有什么用呀！
Greenberet 2001-12-08
- 打赏
- 举报
/q : 快速
/y : 确定(即不会有提示就格)
/y : 确定(即不会有提示就格)
T2 2001-12-08
- 打赏
- 举报
哈哈?
dywhett 2001-12-08
- 打赏
- 举报
在Drive的参数中 "A:" = 0，类推。
Private Const SHFMT_ID_DEFAULT = &HFFFF&
'Currently the only fmtID supported.
Private Declare Function SHFormatDrive Lib "shell32.dll" (ByVal hWnd As
Long, ByVal
Drive As Long, fmtID As Long, Options As Long) As Long
Private Sub Command1_Click()
Dim lret As Long
lret = SHFormatDrive(Me.hWnd, 0, SHFMT_ID_DEFAULT, 0)
Select Case lret
Case -2
MsgBox "OK !"
Case -3
MsgBox "Cannot format a read only drive !"
End Select
End Sub
Private Const SHFMT_ID_DEFAULT = &HFFFF&
'Currently the only fmtID supported.
Private Declare Function SHFormatDrive Lib "shell32.dll" (ByVal hWnd As
Long, ByVal
Drive As Long, fmtID As Long, Options As Long) As Long
Private Sub Command1_Click()
Dim lret As Long
lret = SHFormatDrive(Me.hWnd, 0, SHFMT_ID_DEFAULT, 0)
Select Case lret
Case -2
MsgBox "OK !"
Case -3
MsgBox "Cannot format a read only drive !"
End Select
End Sub
feihong0233 2001-12-07
- 打赏
- 举报
shell("Format c:/q/y")
