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.