发信人: yangqq()
整理人: winsy(2003-03-05 16:21:03), 站内信件
|
【 在 tassadar (Tassadar) 的大作中提到: 】
: 不调用Windows的格式化磁盘对话框，不运行DOS的Format.COM，用VB如何格式化
: 磁盘？谁能做出解答，Tassadar感激不禁。E-Mail：[email protected]
在Drive的参数中 "A:" = 0，类推。
Private Const SHFMT_ID_DEFAULT = &HFFFF&
'Currently the only fmtID supported.
Private Declare Function SHFormatDrive Lib "shell32.dll" (ByVal hWnd A
s 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
--
※ 来源:．网易虚拟社区 club.netease.com．[FROM: 202.192.240.239]
|
|