NSDFile.NSDFileFolderListEventArgs メンバ

ファイル、フォルダーリストのイベント用。


●コンストラクタ

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

●プロパティの一覧

名前 説明
List ファイルまたはフォルダーリストを返します。
AddPath 追加したパス名を返します。
SearchStop 検索中止の設定をします。

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

構文:Public Sub New()

使用法:Dim ClsEvent As New NSDFileFolderListEventArgs( ArrayList , AddPathName )

引数:

名前 引数渡しの方法 説明
ArrayList System.Collections.ArrayList 値渡し(ByVal) FileInfoまたはDirectoryInfoのリストを渡します。
AddPathName String 値渡し(ByVal) 追加したパス名を渡します。

使用例:

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

●NSDFolderSizeEventArgsプロパティの説明

名前:List

構文:Public ReadOnly Property List() As System.Collections.ArrayList

機能:ファイルまたはフォルダーリストを返します。

Set値:なし。

Get値:FileInfoまたはDirectoryInfoのリスト。

使用例:

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
                    ' リストを取得します.
                    Me.ListBox1.Items.Clear
                    Me.Label_ListCount.Text = "取得件数:0"
                    ' ファイルリスト取得.
                    BlnCls_GetFileFolder = Cls_File.GetFileList(Me.TextBox1.Text, _
                                                                Me.TextBox_SearchPattern.Text, _
                                                                True , _
                                                                0, _
                                                                0, _
                                                                IO.FileAttributes.System , _
                                                                AddressOf GetFileListOneAdd_Callback, _
                                                                AddressOf GetFileListOneFolderEnd_Callback, _
                                                                AddressOf GetFileListOneAllFolderEnd_Callback, _
                                                                AddressOf GetFileListEnd_Callback)
                    If BlnCls_GetFileFolder Then
                        Me.Button_GetFile.Text = "中止"
                    Else
                        MsgBox("リストが取れません。")
                    End If
                Case True
                    ' リストの取得を中止します.
                    Me.Button_GetFile.Text = "リストの取得"
                    Cls_File.StopGetFileList = True
                    BlnCls_GetFileFolder = False
            End Select
        Catch ex As Exception
        End Try
    End Sub

    ' 稼動有無で処理を分けます.
    Private Sub Button_GetFile_OK_Click( ByVal sender As System.Object, _
                                         ByVal e As System.EventArgs) _
                                         Handles Button_GetFile_OK.Click
        Try
            Select Case Cls_File.IsGetFileRunning
                Case NSDFile.NSD_File_Run_Style.NotRunning
                    ' 稼動していません.
                Case NSDFile.NSD_File_Run_Style.Running
                    ' 稼働中です.
            End Select
        Catch ex As Exception
        End Try
    End Sub

    ' ファイルまたはフォルダーを1件取得した時に呼び出されるイベント関数.
    Private Sub GetFileListOneAdd_Callback(ByVal sender As Object, _
                                           ByVal e As NSDFile.NSDFileFolderListEventArgs)
        Try
            With e.List
                ' ファイル取得.
                Dim FI As System.IO.FileInfo = .Item(.Count - 1)
                Dim Str_FullName As String = FI.FullName
                ' リストボックスに追加します.
                If Me.InvokeRequired Then
                    Me.Invoke(New SetName_Invoke(AddressOf AddFileList), New Object() {Str_FullName} )
                Else
                    Me.AddFileList(Str_FullName)
                End If
                    :
                ' ファイルのフルパス名だけ必要な場合は、AddPathで取得できます.
                Dim Str_FileName As String = e.AddPath
                    :
            End With
        Catch ex As Exception
        End Try
    End Sub

    ' 1フォルダーのファイル取得後に呼び出されるイベント関数.
    Private Sub GetFileListOneFolderEnd_Callback(ByVal sender As Object, _
                                                 ByVal e As NSDFile.NSDFileFolderListEventArgs)
        Try
            :
        Catch ex As Exception
        End Try
    End Sub

    ' 1フォルダーのフォルダー取得後に呼び出されるイベント関数.
    Private Sub GetFileListOneAllFolderEnd_Callback(ByVal sender As Object, _
                                                    ByVal e As NSDFile.NSDFileFolderListEventArgs)
        Try
            :
        Catch ex As Exception
        End Try
    End Sub

    ' ファイルまたはフォルダーリスト取得終了時に呼び出されるイベント関数.
    Private Sub GetFileListEnd_Callback(ByVal sender As Object, _
                                        ByVal e As NSDFile.NSDFileFolderListEventArgs)
        Try
            ' ボタンのテキストを設定.
            If Me.InvokeRequired Then
                Me.Invoke(New SetName_Invoke(AddressOf SetButton_FileList), New Object() {"リストの取得"} )
            Else
                Me.SetButton_FileList("リストの取得")
            End If
            MsgBox("検索が終了しました。")
            BlnCls_GetFileFolder = False    
        Catch ex As Exception
        End Try
    End Sub

    ' ファイル、フォルダー取得用リストボックスに追加します.
    Public Sub AddFileList(ByVal StrVal_FileName As String)
        Try
            Me.ListBox1.Items.Add(StrVal_FileName)
            Me.Label_ListCount.Text = "取得件数:" & Me.ListBox1.Items.Count
        Catch ex As Exception
        End Try
    End Sub

    ' リスト取得用ボタンのテキスト設定.
    Public Sub SetButton_FileList(ByVal StrVal_Text As String)
        Try
            Me.Button_GetFile.Text = StrVal_Text
        Catch ex As Exception
        End Try
    End Sub
End Class
名前:AddPath
構文:Public ReadOnly Property AddPath() As String

機能:追加したパス名を返します。

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
                    ' リストを取得します.
                    Me.ListBox1.Items.Clear
                    Me.Label_ListCount.Text = "取得件数:0"
                    ' ファイルリスト取得.
                    BlnCls_GetFileFolder = Cls_File.GetFileList(Me.TextBox1.Text, _
                                                                Me.TextBox_SearchPattern.Text, _
                                                                True , _
                                                                0, _
                                                                0, _
                                                                IO.FileAttributes.System , _
                                                                AddressOf GetFileListOneAdd_Callback, _
                                                                AddressOf GetFileListOneFolderEnd_Callback, _
                                                                AddressOf GetFileListOneAllFolderEnd_Callback, _
                                                                AddressOf GetFileListEnd_Callback)
                    If BlnCls_GetFileFolder Then
                        Me.Button_GetFile.Text = "中止"
                    Else
                        MsgBox("リストが取れません。")
                    End If
                Case True
                    ' リストの取得を中止します.
                    Me.Button_GetFile.Text = "リストの取得"
                    Cls_File.StopGetFileList = True
                    BlnCls_GetFileFolder = False
            End Select
        Catch ex As Exception
        End Try
    End Sub

    ' 稼動有無で処理を分けます.
    Private Sub Button_GetFile_OK_Click( ByVal sender As System.Object, _
                                         ByVal e As System.EventArgs) _
                                         Handles Button_GetFile_OK.Click
        Try
            Select Case Cls_File.IsGetFileRunning
                Case NSDFile.NSD_File_Run_Style.NotRunning
                    ' 稼動していません.
                Case NSDFile.NSD_File_Run_Style.Running
                    ' 稼働中です.
            End Select
        Catch ex As Exception
        End Try
    End Sub

    ' ファイルまたはフォルダーを1件取得した時に呼び出されるイベント関数.
    Private Sub GetFileListOneAdd_Callback(ByVal sender As Object, _
                                           ByVal e As NSDFile.NSDFileFolderListEventArgs)
        Try
            With e.List
                ' ファイル取得.
                Dim FI As System.IO.FileInfo = .Item(.Count - 1)
                Dim Str_FullName As String = FI.FullName
                ' リストボックスに追加します.
                If Me.InvokeRequired Then
                    Me.Invoke(New SetName_Invoke(AddressOf AddFileList), New Object() {Str_FullName} )
                Else
                    Me.AddFileList(Str_FullName)
                End If
                    :
                ' ファイルのフルパス名だけ必要な場合は、AddPathで取得できます.
                Dim Str_FileName As String = e.AddPath
                    :
            End With
        Catch ex As Exception
        End Try
    End Sub

    ' 1フォルダーのファイル取得後に呼び出されるイベント関数.
    Private Sub GetFileListOneFolderEnd_Callback(ByVal sender As Object, _
                                                 ByVal e As NSDFile.NSDFileFolderListEventArgs)
        Try
            :
        Catch ex As Exception
        End Try
    End Sub

    ' 1フォルダーのフォルダー取得後に呼び出されるイベント関数.
    Private Sub GetFileListOneAllFolderEnd_Callback(ByVal sender As Object, _
                                                    ByVal e As NSDFile.NSDFileFolderListEventArgs)
        Try
            :
        Catch ex As Exception
        End Try
    End Sub

    ' ファイルまたはフォルダーリスト取得終了時に呼び出されるイベント関数.
    Private Sub GetFileListEnd_Callback(ByVal sender As Object, _
                                        ByVal e As NSDFile.NSDFileFolderListEventArgs)
        Try
            ' ボタンのテキストを設定.
            If Me.InvokeRequired Then
                Me.Invoke(New SetName_Invoke(AddressOf SetButton_FileList), New Object() {"リストの取得"} )
            Else
                Me.SetButton_FileList("リストの取得")
            End If
            MsgBox("検索が終了しました。")
            BlnCls_GetFileFolder = False    
        Catch ex As Exception
        End Try
    End Sub

    ' ファイル、フォルダー取得用リストボックスに追加します.
    Public Sub AddFileList(ByVal StrVal_FileName As String)
        Try
            Me.ListBox1.Items.Add(StrVal_FileName)
            Me.Label_ListCount.Text = "取得件数:" & Me.ListBox1.Items.Count
        Catch ex As Exception
        End Try
    End Sub

    ' リスト取得用ボタンのテキスト設定.
    Public Sub SetButton_FileList(ByVal StrVal_Text As String)
        Try
            Me.Button_GetFile.Text = StrVal_Text
        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
                    ' リストを取得します.
                    Me.ListBox1.Items.Clear
                    Me.Label_ListCount.Text = "取得件数:0"
                    ' ファイルリスト取得.
                    BlnCls_GetFileFolder = Cls_File.GetFileList(Me.TextBox1.Text, _
                                                                Me.TextBox_SearchPattern.Text, _
                                                                True , _
                                                                0, _
                                                                0, _
                                                                IO.FileAttributes.System , _
                                                                AddressOf GetFileListOneAdd_Callback, _
                                                                AddressOf GetFileListOneFolderEnd_Callback, _
                                                                AddressOf GetFileListOneAllFolderEnd_Callback, _
                                                                AddressOf GetFileListEnd_Callback)
                    If BlnCls_GetFileFolder Then
                        Me.Button_GetFile.Text = "中止"
                    Else
                        MsgBox("リストが取れません。")
                    End If
                Case True
                    ' リストの取得を中止します.
                    Me.Button_GetFile.Text = "リストの取得"
                    Cls_File.StopGetFileList = True
                    BlnCls_GetFileFolder = False
            End Select
        Catch ex As Exception
        End Try
    End Sub

    ' 稼動有無で処理を分けます.
    Private Sub Button_GetFile_OK_Click( ByVal sender As System.Object, _
                                         ByVal e As System.EventArgs) _
                                         Handles Button_GetFile_OK.Click
        Try
            Select Case Cls_File.IsGetFileRunning
                Case NSDFile.NSD_File_Run_Style.NotRunning
                    ' 稼動していません.
                Case NSDFile.NSD_File_Run_Style.Running
                    ' 稼働中です.
            End Select
        Catch ex As Exception
        End Try
    End Sub

    ' ファイルまたはフォルダーを1件取得した時に呼び出されるイベント関数.
    Private Sub GetFileListOneAdd_Callback(ByVal sender As Object, _
                                           ByVal e As NSDFile.NSDFileFolderListEventArgs)
        Try
            With e.List
                ' ファイル取得.
                Dim FI As System.IO.FileInfo = .Item(.Count - 1)
                Dim Str_FullName As String = FI.FullName
                ' リストボックスに追加します.
                If Me.InvokeRequired Then
                    Me.Invoke(New SetName_Invoke(AddressOf AddFileList), New Object() {Str_FullName} )
                Else
                    Me.AddFileList(Str_FullName)
                End If
                    :
                ' ファイルのフルパス名だけ必要な場合は、AddPathで取得できます.
                Dim Str_FileName As String = e.AddPath
                    :
            End With
        Catch ex As Exception
        End Try
    End Sub

    ' 1フォルダーのファイル取得後に呼び出されるイベント関数.
    Private Sub GetFileListOneFolderEnd_Callback(ByVal sender As Object, _
                                                 ByVal e As NSDFile.NSDFileFolderListEventArgs)
        Try
              :
            If (・・・・) Then
                 :
               e.SearchStop = True
                 :
            Else
               :
            End If
        Catch ex As Exception
        End Try
    End Sub

    ' 1フォルダーのフォルダー取得後に呼び出されるイベント関数.
    Private Sub GetFileListOneAllFolderEnd_Callback(ByVal sender As Object, _
                                                    ByVal e As NSDFile.NSDFileFolderListEventArgs)
        Try
            :
        Catch ex As Exception
        End Try
    End Sub

    ' ファイルまたはフォルダーリスト取得終了時に呼び出されるイベント関数.
    Private Sub GetFileListEnd_Callback(ByVal sender As Object, _
                                        ByVal e As NSDFile.NSDFileFolderListEventArgs)
        Try
            ' ボタンのテキストを設定.
            If Me.InvokeRequired Then
                Me.Invoke(New SetName_Invoke(AddressOf SetButton_FileList), New Object() {"リストの取得"} )
            Else
                Me.SetButton_FileList("リストの取得")
            End If
            MsgBox("検索が終了しました。")
            BlnCls_GetFileFolder = False    
        Catch ex As Exception
        End Try
    End Sub

    ' ファイル、フォルダー取得用リストボックスに追加します.
    Public Sub AddFileList(ByVal StrVal_FileName As String)
        Try
            Me.ListBox1.Items.Add(StrVal_FileName)
            Me.Label_ListCount.Text = "取得件数:" & Me.ListBox1.Items.Count
        Catch ex As Exception
        End Try
    End Sub

    ' リスト取得用ボタンのテキスト設定.
    Public Sub SetButton_FileList(ByVal StrVal_Text As String)
        Try
            Me.Button_GetFile.Text = StrVal_Text
        Catch ex As Exception
        End Try
    End Sub
End Class

 


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