７６．フロッピーディスクをフォーマットする

＜　使用用途　＞
フロッピーディスクをフォーマットする

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞ ダウンロード・・・　下に書いてあるサンプルソースと同じです

　＜　説明　＞
ＡＰＩ関数のSHFormatDrive を使用します
SHFormatDrive　＝＞フロッピーディスクをフォーマットする
　　＜引数＞
　　　　 hWnd：ウインドウのハンドル
　　　　 nDrive：ドライブを指定（Aドライブは0,Bドライブは1..)
　　　　nID：常に0でいいと思う・・・
　　　　dwFlag：定数（SHFMT_××参照）
　　＠戻り値＠
　　 　　　

<　ＳＡＭＰＬＥ　＞
'Aドライブをフォーマットする
'標準モジュール
Public Declare Function SHFormatDrive Lib "SHELL32" (ByVal hWnd As Long, ByVal nDrive As Long, ByVal nID As Long, ByVal dwFlag As Long) As Long

Public Const SHFMT_OPT_FULL = 1 'フルフォーマット
Public Const SHFMT_OPT_QUICK = 0 'クイックフォーマット

'ここからはフォーム内の処理です
Private Sub Command1_Click()
　Dim Ret As Long
　　Ret = SHFormatDrive(Form1.hWnd, 0, 0, SHFMT_OPT_FULL)
End Sub