NSDFile.NSDFileFolderCountEventArgs メンバ

ファイル、フォルダー数取得のイベント用。


●コンストラクタ

名前 説明
NSDFile.NSDFileFolderCountEventArgs NSDFile.NSDFileFolderCountEventArgsを初期化します。

●プロパティの一覧

名前 説明
FileCount ファイル数を返します。
FolderCount フォルダー数を返します。
SearchStop 検索中止の設定をします。

●NSDFileFolderCountEventArgsコンストラクタの説明

構文:Public Sub New()

使用法:Dim ClsEvent As New NSDFileFolderCountEventArgs( FileCount , FolderCount )

引数:

名前 引数渡しの方法 説明
FileCount Integer 値渡し(ByVal) ファイル数を渡します。
FolderCount Integer 値渡し(ByVal) フォルダー数を渡します。

使用例:

NSDFile内で使用されるので使用例はありません。

●NSDFileFolderCountEventArgsプロパティの説明

名前:FileCount

構文:Public ReadOnly Property FileCount() As Integer

機能:ファイル数を返します。

Set値:なし。

Get値:ファイル数。

使用例:

Public Class Form1
    ' NSDFileを初期化します.
    Dim Cls_File As New NSDFile
    ' ファイル、フォルダー数の取得フラグ True:取得中 False:取得していません.
    Dim BlnCls_GetFileFolder As Boolean = False

    ' FormClosing.
    Private Sub Form1_FormClosing(ByVal sender As Object, _
                                  ByVal e As System.Windows.Forms.FormClosingEventArgs _
                                  ) Handles Me.FormClosing
        Try
            ' NSDFileの解放.
            If Not (Cls_File Is Nothing) Then
                Cls_File.Dispose()
                Cls_File = Nothing
            End If
        Catch ex As Exception
        End Try
    End Sub

    ' ファイル、フォルダー数を取得します.
    Private Sub Button_GetFile_Click( ByVal sender As System.Object, _
                                      ByVal e As System.EventArgs _
                                      ) Handles Button_GetFile.Click
        Try
            Select Case BlnCls_GetFileFolder
                Case False
                    BlnCls_GetFileFolder = Cls_File.GetFileFolderCount(Me.TextBox1.Text, _
                                                                       Me.TextBox_SearchPattern.Text, _
                                                                       True, _
                                                                       0, _
                                                                       0, _
                                                                       IO.FileAttributes.System , _
                                                                       AddressOf GetFileFolderCountOneAdd_Callback, _
                                                                       AddressOf GetFileFolderCountOneFolderEnd_Callback, _
                                                                       AddressOf GetFileFolderCountEnd_Callback)
                    If BlnCls_GetFileFolder Then
                        Me.Button_GetFile.Text = "中止"
                    Else
                        MsgBox("ファイル、フォルダー数が取れません。")
                    End If

                Case True
                    ' 取得を中止します.
                    Me.Button_GetFile.Text = "ファイル、フォルダー数の取得"
                    ' 取得の中止.
                    Cls_File.StopGetFileFolderCount = True
                    BlnCls_GetFileFolder = False
            End Select
        Catch ex As Exception
        End Try
    End Sub

    ' ファイル、フォルダー数取得の1ファイル取得時に発生するイベント関数.
    Private Sub GetFileFolderCountOneAdd_Callback(ByVal sender As Object, _
                                                  ByVal e As NSDFileFolderCountEventArgs)
        Try
            :
            If (・・・・) Then
                e.SearchStop = True
            End If
            :
        Catch ex As Exception
        End Try
    End Sub

    ' ファイル、フォルダー数取得の1フォルダー内のファイル取得終了時に発生するイベント関数.
    Private Sub GetFileFolderCountOneFolderEnd_Callback(ByVal sender As Object, _
                                                        ByVal e As NSDFileFolderCountEventArgs)
        Try
            :
        Catch ex As Exception
        End Try
    End Sub

    ' ファイルまたはフォルダー数取得終了時に発生するイベント関数.
    Private Sub GetFileFolderCountEnd_Callback(ByVal sender As Object, _
                                               ByVal e As NSDFileFolderCountEventArgs)
        Try
            ' ファイル数.
            MsgBox("ファイル数:" & e.FileCount & " フォルダー数:" & e.FolderCount)
            BlnCls_GetFileFolder = False    
        Catch ex As Exception
        End Try
    End Sub
End Class
名前:FolderCount
構文:Public ReadOnly Property FolderCount() As Integer

機能:フォルダー数を返します。

Set値:なし。

Get値:フォルダー数。

使用例:

Public Class Form1
    ' NSDFileを初期化します.
    Dim Cls_File As New NSDFile
    ' ファイル、フォルダー数の取得フラグ True:取得中 False:取得していません.
    Dim BlnCls_GetFileFolder As Boolean = False

    ' FormClosing.
    Private Sub Form1_FormClosing(ByVal sender As Object, _
                                  ByVal e As System.Windows.Forms.FormClosingEventArgs _
                                  ) Handles Me.FormClosing
        Try
            ' NSDFileの解放.
            If Not (Cls_File Is Nothing) Then
                Cls_File.Dispose()
                Cls_File = Nothing
            End If
        Catch ex As Exception
        End Try
    End Sub

    ' ファイル、フォルダー数を取得します.
    Private Sub Button_GetFile_Click( ByVal sender As System.Object, _
                                      ByVal e As System.EventArgs _
                                      ) Handles Button_GetFile.Click
        Try
            Select Case BlnCls_GetFileFolder
                Case False
                    BlnCls_GetFileFolder = Cls_File.GetFileFolderCount(Me.TextBox1.Text, _
                                                                       Me.TextBox_SearchPattern.Text, _
                                                                       True, _
                                                                       0, _
                                                                       0, _
                                                                       IO.FileAttributes.System , _
                                                                       AddressOf GetFileFolderCountOneAdd_Callback, _
                                                                       AddressOf GetFileFolderCountOneFolderEnd_Callback, _
                                                                       AddressOf GetFileFolderCountEnd_Callback)
                    If BlnCls_GetFileFolder Then
                        Me.Button_GetFile.Text = "中止"
                    Else
                        MsgBox("ファイル、フォルダー数が取れません。")
                    End If

                Case True
                    ' 取得を中止します.
                    Me.Button_GetFile.Text = "ファイル、フォルダー数の取得"
                    ' 取得の中止.
                    Cls_File.StopGetFileFolderCount = True
                    BlnCls_GetFileFolder = False
            End Select
        Catch ex As Exception
        End Try
    End Sub

    ' ファイル、フォルダー数取得の1ファイル取得時に発生するイベント関数.
    Private Sub GetFileFolderCountOneAdd_Callback(ByVal sender As Object, _
                                                  ByVal e As NSDFileFolderCountEventArgs)
        Try
            :
            If (・・・・) Then
                e.SearchStop = True
            End If
            :
        Catch ex As Exception
        End Try
    End Sub

    ' ファイル、フォルダー数取得の1フォルダー内のファイル取得終了時に発生するイベント関数.
    Private Sub GetFileFolderCountOneFolderEnd_Callback(ByVal sender As Object, _
                                                        ByVal e As NSDFileFolderCountEventArgs)
        Try
            :
        Catch ex As Exception
        End Try
    End Sub

    ' ファイルまたはフォルダー数取得終了時に発生するイベント関数.
    Private Sub GetFileFolderCountEnd_Callback(ByVal sender As Object, _
                                               ByVal e As NSDFileFolderCountEventArgs)
        Try
            ' ファイル数.
            MsgBox("ファイル数:" & e.FileCount & " フォルダー数:" & e.FolderCount)
            BlnCls_GetFileFolder = False    
        Catch ex As Exception
        End Try
    End Sub
End Class
名前:SearchStop
構文:Public Property SearchStop() As Boolean

機能:検索中止の設定をします。

Set値:True :検索を中止します。

False:検索を中止しません。

Get値:Set値を参照。

使用例:

Public Class Form1
    ' NSDFileを初期化します.
    Dim Cls_File As New NSDFile
    ' ファイル、フォルダー数の取得フラグ True:取得中 False:取得していません.
    Dim BlnCls_GetFileFolder As Boolean = False

    ' FormClosing.
    Private Sub Form1_FormClosing(ByVal sender As Object, _
                                  ByVal e As System.Windows.Forms.FormClosingEventArgs _
                                  ) Handles Me.FormClosing
        Try
            ' NSDFileの解放.
            If Not (Cls_File Is Nothing) Then
                Cls_File.Dispose()
                Cls_File = Nothing
            End If
        Catch ex As Exception
        End Try
    End Sub

    ' ファイル、フォルダー数を取得します.
    Private Sub Button_GetFile_Click( ByVal sender As System.Object, _
                                      ByVal e As System.EventArgs _
                                      ) Handles Button_GetFile.Click
        Try
            Select Case BlnCls_GetFileFolder
                Case False
                    BlnCls_GetFileFolder = Cls_File.GetFileFolderCount(Me.TextBox1.Text, _
                                                                       Me.TextBox_SearchPattern.Text, _
                                                                       True, _
                                                                       0, _
                                                                       0, _
                                                                       IO.FileAttributes.System , _
                                                                       AddressOf GetFileFolderCountOneAdd_Callback, _
                                                                       AddressOf GetFileFolderCountOneFolderEnd_Callback, _
                                                                       AddressOf GetFileFolderCountEnd_Callback)
                    If BlnCls_GetFileFolder Then
                        Me.Button_GetFile.Text = "中止"
                    Else
                        MsgBox("ファイル、フォルダー数が取れません。")
                    End If

                Case True
                    ' 取得を中止します.
                    Me.Button_GetFile.Text = "ファイル、フォルダー数の取得"
                    ' 取得の中止.
                    Cls_File.StopGetFileFolderCount = True
                    BlnCls_GetFileFolder = False
            End Select
        Catch ex As Exception
        End Try
    End Sub

    ' ファイル、フォルダー数取得の1ファイル取得時に発生するイベント関数.
    Private Sub GetFileFolderCountOneAdd_Callback(ByVal sender As Object, _
                                                  ByVal e As NSDFileFolderCountEventArgs)
        Try
            :
            If (・・・・) Then
                e.SearchStop = True
            End If
            :
        Catch ex As Exception
        End Try
    End Sub

    ' ファイル、フォルダー数取得の1フォルダー内のファイル取得終了時に発生するイベント関数.
    Private Sub GetFileFolderCountOneFolderEnd_Callback(ByVal sender As Object, _
                                                        ByVal e As NSDFileFolderCountEventArgs)
        Try
            :
        Catch ex As Exception
        End Try
    End Sub

    ' ファイルまたはフォルダー数取得終了時に発生するイベント関数.
    Private Sub GetFileFolderCountEnd_Callback(ByVal sender As Object, _
                                               ByVal e As NSDFileFolderCountEventArgs)
        Try
            ' ファイル数.
            MsgBox("ファイル数:" & e.FileCount & " フォルダー数:" & e.FolderCount)
            BlnCls_GetFileFolder = False    
        Catch ex As Exception
        End Try
    End Sub
End Class

 


Copyright (C) 2010-2012 Nihon System Developer Corp. All Rights Reserved.