#037 フォーマットダイアログを使用する方法

フォーマットダイアログを使用する方法を紹介します。



サンプルプロシージャ：
標準モジュール <宣言部> に記述します。

Public Declare Function SHFormatDrive Lib "SHELL32" _
　　(ByVal hWnd As Long, _
　　 ByVal drive As Long, _
　　 ByVal FmtID As Long, _
　　 ByVal opt As Long) As Long

Public Const SHFMT_ID_DEFAULT = -1　　'デフォルト物理フォーマットID
Public Const SHFMT_OPT_QUICK = 0　　'クイックフォーーマット
Public Const SHFMT_OPT_FULL = 1　　'通常のフォーマット
Public Const SHFMT_OPT_SYSONLY = 2　　'起動専用
Public Const SHFMT_ERROR = -1
Public Const SHFMT_CANCEL = -2
Public Const SHFMT_NOFORMAT = -3

標準モジュールに記述します。

Public Function bbGetFormatDrive(strDrv As String) As Long

　　Dim hWnd As Long, DrvCD As Long, FormatID As Long, FormatOpt As Long

　　'ハンドル
　　hWnd = Application.hWndAccessApp

　　'デフォルト物理フォーマットID
　　FormatID = SHFMT_ID_DEFAULT

　　'クイックフォーマット
　　FormatOpt = SHFMT_OPT_QUICK

　　'1文字目を大文字で取り出し、文字コードで返します。
　　DrvCD = Asc(Ucase(Left$(strDrv, 1))) - Asc("A")

　　bbGetFormatDrive = SHFormatDrive(hWnd, DrvCD, FormatID, FormatOpt)

End Function

使用例：
フォームのボタンクリック時等に記述します。

Sub Sample_Click()

　　bbGetFormatDrive "A"

End Sub

関連ページ：
#020 印刷ダイアログを表示する方法
#036 フォルダ参照ダイアログを使用する方法