アーカイバAPI Tips - 005:[Arc]CheckArchive

3F	[Arc]CheckArchive
Last Updated：2001/06/05
■トップ ■ダウンロード ■圧縮解凍の部屋 ■オンラインソフトの部屋　 ■サポート掲示板　 ■リンク１

■[Arc]CheckArchive　(使用頻度：★★★★★)
ファイルが特定の形式の書庫であるかどうかを判断するAPI
■どんな処理をするのか？
ドライブリストボックス、ディレクトリリストボックス、ファイルリストボックスを使ってファイル名を指定し、ファイルをクリックもしくはコマンドボタンで書庫かどうかを表示。
■準備
「標準 EXE」でプロジェクトを作成し、標準モジュールを追加後、表示されたフォーム上にドライブリストボックス、ディレクトリリストボックス、ファイルリストボックス、ドロップダウンコンボボックスを設置しておく。さらに、ドロップダウンコンボボックスのStyleを2(ドロップダウンリスト)に設定。
■ソース　(標準モジュール／フォームモジュール／ダウンロード)
(tips005.bas) Option Explicit Public Declare Function UnlhaCheckArchive Lib "Unlha32" _ (ByVal szFileName As String, _ ByVal iMode As Long) As Long ' UnlhaCheckArchive 用の定数 Public Const CHECKARCHIVE_RAPID As Long = 0 Public Const CHECKARCHIVE_BASIC As Long = 1 Public Const CHECKARCHIVE_FULLCRC As Long = 2 ' 以下の定数は上と組み合わせて利用 Public Const CHECKARCHIVE_RECOVERY As Long = 4 Public Const CHECKARCHIVE_SFX As Long = 8 Public Const CHECKARCHIVE_ALL As Long = 16 ' 設定の定数 Public Const VB_TRUE As Long = 1 Public Const VB_FALSE As Long = 0
(tips005.frm) Option Explicit ' 定数格納用の配列を宣言 Private df(3) As Long Private Sub Command1_Click() Dim ret As Long Dim FileName As String Dim MsgStr As String ' ドライブのルートフォルダにある場合の対処 If Right(Dir1.Path, 1) = "\" Then FileName = Dir1.Path & File1.FileName Else FileName = Dir1.Path & "\" & File1.FileName End If ' 指定したファイルが書庫であるかを取得するAPI ret = UnlhaCheckArchive(FileName, df(Combo1.ListIndex)) ' 結果によって表示を変更 If ret <> VB_FALSE Then MsgStr = "このファイルはLHA書庫です。" Else MsgStr = "このファイルはLHA書庫ではありません。" End If ' 情報アイコンとメッセージを表示 MsgBox MsgStr, vbOKOnly + vbInformation, "UNLHA32.DLL" End Sub Private Sub Drive1_Change() ' ドライブが変更されたとき、フォルダリストも変更 Dir1.Path = Drive1.Drive End Sub Private Sub Dir1_Change() ' フォルダが変更されたとき、ファイルリストも変更 File1.Path = Dir1.Path End Sub Private Sub File1_DblClick() Command1_Click End Sub Private Sub Form_Load() ' 配列に定数を格納 df(0) = CHECKARCHIVE_RAPID df(1) = CHECKARCHIVE_BASIC df(2) = CHECKARCHIVE_FULLCRC ' 文字をプルダウンメニューに入れる Combo1.AddItem "簡易(CHECKARCHIVE_RAPID)" Combo1.AddItem "標準(CHECKARCHIVE_BASIC)" Combo1.AddItem "厳密(CHECKARCHIVE_FULLCRC)" ' インデックスの設定 Combo1.ListIndex = 1 End Sub
■ダウンロード(VB6.0用)
－ tips005.zip (3KB)：ファイルを選択し、ボタンを押すと書庫かどうか表示。
■関連するAPI
－ [Arc]GetFileCount (内部的にはこのAPIを利用)
■　←BACK　■　■　ホームページに戻る ■　■　Tipsに戻る ■　■　NEXT→　■

[Arc]CheckArchive

Last Updated：2001/06/05

■トップ ■ダウンロード ■圧縮解凍の部屋 ■オンラインソフトの部屋　 ■サポート掲示板　 ■リンク１

　■[Arc]CheckArchive　(使用頻度：★★★★★)

　ファイルが特定の形式の書庫であるかどうかを判断するAPI

　■どんな処理をするのか？

　ドライブリストボックス、ディレクトリリストボックス、ファイルリストボックスを使ってファイル名を指定し、ファイルをクリックもしくはコマンドボタンで書庫かどうかを表示。

　■準備

　「標準 EXE」でプロジェクトを作成し、標準モジュールを追加後、表示されたフォーム上にドライブリストボックス、ディレクトリリストボックス、ファイルリストボックス、ドロップダウンコンボボックスを設置しておく。さらに、ドロップダウンコンボボックスのStyleを2(ドロップダウンリスト)に設定。

　■ソース　(標準モジュール／フォームモジュール／ダウンロード)

　(tips005.bas)

　(tips005.frm)

Option Explicit

' 定数格納用の配列を宣言
Private df(3) As Long

Private Sub Command1_Click()
    Dim ret As Long
    Dim FileName As String
    Dim MsgStr As String
    
    ' ドライブのルートフォルダにある場合の対処
    If Right(Dir1.Path, 1) = "\" Then
        FileName = Dir1.Path & File1.FileName
    Else
        FileName = Dir1.Path & "\" & File1.FileName
    End If
    
    ' 指定したファイルが書庫であるかを取得するAPI
    ret = UnlhaCheckArchive(FileName, df(Combo1.ListIndex))

    ' 結果によって表示を変更
    If ret <> VB_FALSE Then
        MsgStr = "このファイルはLHA書庫です。"
    Else
        MsgStr = "このファイルはLHA書庫ではありません。"
    End If

    ' 情報アイコンとメッセージを表示
    MsgBox MsgStr, vbOKOnly + vbInformation, "UNLHA32.DLL"

End Sub

Private Sub Drive1_Change()
    ' ドライブが変更されたとき、フォルダリストも変更
    Dir1.Path = Drive1.Drive
End Sub

Private Sub Dir1_Change()
    ' フォルダが変更されたとき、ファイルリストも変更
    File1.Path = Dir1.Path
End Sub

Private Sub File1_DblClick()
    Command1_Click
End Sub

Private Sub Form_Load()

    ' 配列に定数を格納
    df(0) = CHECKARCHIVE_RAPID
    df(1) = CHECKARCHIVE_BASIC
    df(2) = CHECKARCHIVE_FULLCRC

    ' 文字をプルダウンメニューに入れる
    Combo1.AddItem "簡易(CHECKARCHIVE_RAPID)"
    Combo1.AddItem "標準(CHECKARCHIVE_BASIC)"
    Combo1.AddItem "厳密(CHECKARCHIVE_FULLCRC)"
    
    ' インデックスの設定
    Combo1.ListIndex = 1
End Sub

　■ダウンロード(VB6.0用)

　　－ tips005.zip (3KB)：ファイルを選択し、ボタンを押すと書庫かどうか表示。

　■関連するAPI

　　－ [Arc]GetFileCount (内部的にはこのAPIを利用)

■　←BACK　■　■　ホームページに戻る ■　■　Tipsに戻る ■　■　NEXT→　■