Visual Basic Tips

フォーマットダイアログの出し方(API)

このAPIは非公開なので（ヘルプにも記載されていない）もしかしたら使えなくなるかもしれません。


Private Sub Form_Load()
　　Dim lngRet As Long
　　Dim lngDrvNum As Long
　　Dim lngFormatMode As Long

　　lngDrvNum = 0 'ドライブの指定（A=0,B=1,C=2）
　　lngFormatMode = 0 '0=クイックフォーマット 1=通常フォーマット,2=起動専用

　　lngRet = SHFormatDrive(hWnd, lngDrvNum, 0, lngFormatMode)
　　Select Case lngRet
　　　　Case -2
　　　　　　MsgBox "キャンセルされました"
　　　　Case -3
　　　　　　MsgBox "このドライブはフォーマットできません"
　　　　Case 6
　　　　　　MsgBox "フォーマット成功"
　　　　Case Else
　　　　　　MsgBox "異常"
　　End Select
End Sub


'----------------------------------------------------------
'
'----------------------------------------------------------
Declare Function SHFormatDrive Lib "shell32.dll" (ByVal hWnd As Long, ByVal lpDriveNum As Long, ByVal lpShiftIdDefault As Long, lpFormatMode As Long) As Long


DownLoad vbtips073.lzh 2KB (VB6.0)