アーカイバAPI Tips - 006:[Arc]GetFileCount

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

■[Arc]GetFileCount　(使用頻度：★★★★)
書庫内のファイル数を取得するAPI
■どんな処理をするのか？
ドライブリストボックス、ディレクトリリストボックス、ファイルリストボックスを使ってファイル名を指定し、ファイルをクリックもしくはコマンドボタンで書庫かどうかを表示。
■準備
「標準 EXE」でプロジェクトを作成し、標準モジュールを追加後、表示されたフォーム上にドライブリストボックス、ディレクトリリストボックス、ファイルリストボックスを設置しておく。また。ファイルリストボックスのPatternを"*.lzh"にしておく。
■ソース　(標準モジュール／フォームモジュール／ダウンロード)
(tips006.bas) Option Explicit Public Declare Function UnlhaGetFileCount　Lib "Unlha32" _ (ByVal szArcFile As String) As Long
(tips006.frm) Option Explicit 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 = UnlhaGetFileCount(FileName) ' 結果によって表示を変更 If ret <> -1 Then MsgStr = "この書庫内のファイル数は" & ret & "個です。" Else MsgStr = "ファイル数を取得できませんでした。" 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_Click() Command1.Click End Sub
■ダウンロード(VB6.0用)
－ tips006.zip (3KB)：選択し、ボタンを押すと書庫内のファイル数を表示。
■関連するAPI
－ [Arc]CheckArchive (内部的にはこのAPIを利用)
■　←BACK　■　■　ホームページに戻る ■　■　Tipsに戻る ■　■　NEXT→　■

[Arc]GetFileCount

Last Updated：2001/06/05

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

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

　書庫内のファイル数を取得するAPI

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

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

　■準備

　「標準 EXE」でプロジェクトを作成し、標準モジュールを追加後、表示されたフォーム上にドライブリストボックス、ディレクトリリストボックス、ファイルリストボックスを設置しておく。また。ファイルリストボックスのPatternを"*.lzh"にしておく。

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

　(tips006.bas)

　(tips006.frm)

Option Explicit

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 = UnlhaGetFileCount(FileName)

    ' 結果によって表示を変更
    If ret <> -1 Then
        MsgStr = "この書庫内のファイル数は" & ret & "個です。"
    Else
        MsgStr = "ファイル数を取得できませんでした。"
    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_Click()
    Command1.Click
End Sub

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

　　－ tips006.zip (3KB)：選択し、ボタンを押すと書庫内のファイル数を表示。

　■関連するAPI

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

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