🚀 go-pugleaf

松下昌平 wrote in message <01bd68de$ac94c020$10b59fd2@nhs-jpnjade>...
>ＶＢ５．０を使ってＷｉｎｄｏｗｓＮＴ上でフロッピーディスクをフォーマットす
>る処理をアプリケーションに組み込もうとしています。プログラム上でファイルマ
>ネージャを操作して処理を行うと、どうしてもユーザーの不用意な操作によるエラ
>ー対策が完全には出来ません。他の方法を教えて下さい。ちなみに今はファイルマ
>ネージャをＳｈｅｌｌ関数で起動して、Ｓｅｎｄｋｅｙｓを使ってフォーマットウ
>ィンドウを呼び出す方式をとっています。
>

植木と申します。
私は以下のようにしています。(SHFormatDrive APIを使います)

Public Declare Function SHFormatDrive Lib "SHELL32" _
                        (ByVal hWnd&, ByVal Drive&, _
                        ByVal fmtID&, ByVal opt&) As Long
Public Const SHFMT_ID_DEFAULT  As Long = -1
Public Const SHFMT_OPT_QUICK   As Long = 0     ''ドライブのクイックフォーマット
Public Const SHFMT_OPT_FULL    As Long = 1     ''ドライブのフルフォーマット
Public Const SHFMT_OPT_SYSONLY As Long = 2
Public Const SHFMT_ERROR       As Long = -1
Public Const SHFMT_CANCEL      As Long = -2
Public Const SHFMT_NOFORMAT    As Long = -3

Public Sub Dsk_FormatFD(ByRef strDrvName As String)
    On Error Resume Next
    Dim lngRet  As Long
    Dim strDrv  As String
    Dim lngDrv  As Long
    strDrv = UCase$(Left$(strDrvName, 1))   ''ドライブ名(先頭1文字有効)
    lngDrv = CLng(Asc(strDrv) - Asc("A"))   ''ドライブを示す数字(A=0)
    ''ディスクフォーマット
    ''【引　数】
    ''  hWnd&   ： ウィンドウのハンドル
    ''  Drive&  ： ドライブを示す数字(A=0,B=1..)
    ''  fmtID&  ： 0
    ''  opt&    ： SHFMT_OPT_xxx
    ''【戻り値】
    ''【備　考】
    ''  非公開関数なので詳しいことは不明
    lngRet = SHFormatDrive(CLng(0), lngDrv, CLng(0), SHFMT_OPT_FULL)
End Sub
これで、Call Dsk_FormatFD("A") と呼び出せば行けるでしょう。