NSDFile.NSDFolderSize.NSDFolderSizeEventArgs メンバ
フォルダーサイズのイベント用。
●コンストラクタ
名前 説明 NSDFile.NSDFolderSize.NSDFolderSizeEventArgs NSDFile.NSDFolderSize.NSDFolderSizeEventArgsを初期化します。
●プロパティの一覧
名前 説明 FileCount ファイル数を返します。 FileSize 1ファイルサイズを返します。 FolderCount フォルダー数を返します。 FolderSize フォルダーサイズを返します。 EndStyle 終了スタイルを返します。 SearchStop 検索中止の設定をします。
●NSDFolderSizeEventArgsコンストラクタの説明
構文:Public Sub New()
使用法:Dim ClsEvent As New NSDFolderSizeEventArgs( FileCount , FileSize , FolderCount , FolderSize , EndStyle )
引数:
名前 型 引数渡しの方法 説明 FileCount Long 値渡し(ByVal) ファイル数を渡します。 FileSize Long 値渡し(ByVal) ファイルサイズを渡します。 FolderCount Long 値渡し(ByVal) フォルダー数を渡します。 FolderSize Long 値渡し(ByVal) フォルダーサイズを渡します。 EndStyle NSDFolderSize_EndStyle 値渡し(ByVal) 終了スタイルを渡します。 使用例:
NSDFile.NSDFolderSize内で使用されるので使用例はありません。
●NSDFolderSizeEventArgsプロパティの説明
名前:FileCount
構文:Public ReadOnly Property FileCount() As Long
機能:ファイル数を返します。
Set値:なし。
Get値:ファイル数。
使用例:
Public Class Form1 ' フォルダーサイズ用. Dim Cls_FolderSize As NSDFile.NSDFolderSize = Nothing ' フォルダーサイズフラグ True:取得中 False:取得していません. Dim BlnCls_FolderSize As Boolean = False ' FormClosing. Private Sub Form1_FormClosing(ByVal sender As Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs) _ Handles Me.FormClosing Try ' 解放処理. If Not (Cls_FolderSize Is Nothing) Then Cls_FolderSize.Dispose() Cls_FolderSize = Nothing End If Catch ex As Exception End Try End Sub ' フォルダーサイズを取得します. Private Sub Button_FolderSize_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles Button_FolderSize.Click Try Select Case BlnCls_FolderSize Case False ' フォルダーサイズの取得. BlnCls_FolderSize = True If (Cls_FolderSize Is Nothing) Then Cls_FolderSize = New NSDFile.NSDFolderSize End If Cls_FolderSize.GetFolderSize(Me.TextBox_FolderSize.Text, _ True, _ Nothing, _ Nothing, _ AddressOf Event_GetFolderSizeEndCallback, _ Nothing) Case Else ' フォルダーサイズの取得を中止します. If Not (Cls_FolderSize Is Nothing) Then Cls_FolderSize.StopGetFolderSize = True End If BlnCls_FolderSize = False End Select Catch ex As Exception End Try End Sub ' フォルダーサイズ取得時に呼び出されるイベント関数. Public Sub Event_GetFolderSizeEndCallback(ByVal sender As Object, _ ByVal e As NSDFile.NSDFolderSize.NSDFolderSizeEventArgs) Try Dim Str_Msg As String = Cls_FolderSize.GetEndStyleMsg(e.EndStyle) Str_Msg &= vbCrLf Str_Msg &= "ファイル数:" & e.FileCount & vbCrLf Str_Msg &= "フォルダー数:" & e.FolderCount & vbCrLf Str_Msg &= "フォルダサイズ:" & e.FolderSize & vbCrLf ' 終了時のメッセージを表示します. MsgBox(Str_Msg) Catch ex As Exception End Try End Sub End Class
名前:FileSize
構文:Public ReadOnly Property FileSize() As Long 機能:ファイルサイズを返します。
Set値:なし。
Get値:ファイルサイズ。
使用例:
Public Class Form1 ' フォルダーサイズ用. Dim Cls_FolderSize As NSDFile.NSDFolderSize = Nothing ' フォルダーサイズフラグ True:取得中 False:取得していません. Dim BlnCls_FolderSize As Boolean = False ' FormClosing. Private Sub Form1_FormClosing(ByVal sender As Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs) _ Handles Me.FormClosing Try ' 解放処理. If Not (Cls_FolderSize Is Nothing) Then Cls_FolderSize.Dispose() Cls_FolderSize = Nothing End If Catch ex As Exception End Try End Sub ' フォルダーサイズを取得します. Private Sub Button_FolderSize_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles Button_FolderSize.Click Try Select Case BlnCls_FolderSize Case False ' フォルダーサイズの取得. BlnCls_FolderSize = True If (Cls_FolderSize Is Nothing) Then Cls_FolderSize = New NSDFile.NSDFolderSize End If Cls_FolderSize.GetFolderSize(Me.TextBox_FolderSize.Text, _ True, _ AddressOf Event_GetFolderSize_OneFileCallBack, _ Nothing, _ AddressOf Event_GetFolderSizeEndCallback, _ Nothing) Case Else ' フォルダーサイズの取得を中止します. If Not (Cls_FolderSize Is Nothing) Then Cls_FolderSize.StopGetFolderSize = True End If BlnCls_FolderSize = False End Select Catch ex As Exception End Try End Sub ' 1ファイル毎にサイズを返すイベント関数. Private Sub Event_GetFolderSize_OneFileCallBack(ByVal sender As Object, _ ByVal e As NSDFile.NSDFolderSize.NSDFolderSizeEventArgs) Try If e.FileSize > 100000 Then e.SearchStop = True End If Catch ex As Exception End Try End Sub ' フォルダーサイズ取得時に呼び出されるイベント関数. Public Sub Event_GetFolderSizeEndCallback(ByVal sender As Object, _ ByVal e As NSDFile.NSDFolderSize.NSDFolderSizeEventArgs) Try Dim Str_Msg As String = Cls_FolderSize.GetEndStyleMsg(e.EndStyle) Str_Msg &= vbCrLf Str_Msg &= "ファイル数:" & e.FileCount & vbCrLf Str_Msg &= "フォルダー数:" & e.FolderCount & vbCrLf Str_Msg &= "フォルダサイズ:" & e.FolderSize & vbCrLf ' 終了時のメッセージを表示します. MsgBox(Str_Msg) Catch ex As Exception End Try End Sub End Class
名前:FolderCount
構文:Public ReadOnly Property FolderCount() As Long 機能:フォルダー数を返します。
Set値:なし。
Get値:フォルダー数。
使用例:
Public Class Form1 ' フォルダーサイズ用. Dim Cls_FolderSize As NSDFile.NSDFolderSize = Nothing ' フォルダーサイズフラグ True:取得中 False:取得していません. Dim BlnCls_FolderSize As Boolean = False ' FormClosing. Private Sub Form1_FormClosing(ByVal sender As Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs) _ Handles Me.FormClosing Try ' 解放処理. If Not (Cls_FolderSize Is Nothing) Then Cls_FolderSize.Dispose() Cls_FolderSize = Nothing End If Catch ex As Exception End Try End Sub ' フォルダーサイズを取得します. Private Sub Button_FolderSize_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles Button_FolderSize.Click Try Select Case BlnCls_FolderSize Case False ' フォルダーサイズの取得. BlnCls_FolderSize = True If (Cls_FolderSize Is Nothing) Then Cls_FolderSize = New NSDFile.NSDFolderSize End If Cls_FolderSize.GetFolderSize(Me.TextBox_FolderSize.Text, _ True, _ Nothing, _ Nothing, _ AddressOf Event_GetFolderSizeEndCallback, _ Nothing) Case Else ' フォルダーサイズの取得を中止します. If Not (Cls_FolderSize Is Nothing) Then Cls_FolderSize.StopGetFolderSize = True End If BlnCls_FolderSize = False End Select Catch ex As Exception End Try End Sub ' フォルダーサイズ取得時に呼び出されるイベント関数. Public Sub Event_GetFolderSizeEndCallback(ByVal sender As Object, _ ByVal e As NSDFile.NSDFolderSize.NSDFolderSizeEventArgs) Try Dim Str_Msg As String = Cls_FolderSize.GetEndStyleMsg(e.EndStyle) Str_Msg &= vbCrLf Str_Msg &= "ファイル数:" & e.FileCount & vbCrLf Str_Msg &= "フォルダー数:" & e.FolderCount & vbCrLf Str_Msg &= "フォルダサイズ:" & e.FolderSize & vbCrLf ' 終了時のメッセージを表示します. MsgBox(Str_Msg) Catch ex As Exception End Try End Sub End Class
名前:FolderSize
構文:Public ReadOnly Property FolderSize() As Long 機能:フォルダーサイズを返します。
Set値:なし。
Get値:フォルダーサイズ。
使用例:
Public Class Form1 ' フォルダーサイズ用. Dim Cls_FolderSize As NSDFile.NSDFolderSize = Nothing ' フォルダーサイズフラグ True:取得中 False:取得していません. Dim BlnCls_FolderSize As Boolean = False ' FormClosing. Private Sub Form1_FormClosing(ByVal sender As Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs) _ Handles Me.FormClosing Try ' 解放処理. If Not (Cls_FolderSize Is Nothing) Then Cls_FolderSize.Dispose() Cls_FolderSize = Nothing End If Catch ex As Exception End Try End Sub ' フォルダーサイズを取得します. Private Sub Button_FolderSize_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles Button_FolderSize.Click Try Select Case BlnCls_FolderSize Case False ' フォルダーサイズの取得. BlnCls_FolderSize = True If (Cls_FolderSize Is Nothing) Then Cls_FolderSize = New NSDFile.NSDFolderSize End If Cls_FolderSize.GetFolderSize(Me.TextBox_FolderSize.Text, _ True, _ Nothing, _ Nothing, _ AddressOf Event_GetFolderSizeEndCallback, _ Nothing) Case Else ' フォルダーサイズの取得を中止します. If Not (Cls_FolderSize Is Nothing) Then Cls_FolderSize.StopGetFolderSize = True End If BlnCls_FolderSize = False End Select Catch ex As Exception End Try End Sub ' フォルダーサイズ取得時に呼び出されるイベント関数. Public Sub Event_GetFolderSizeEndCallback(ByVal sender As Object, _ ByVal e As NSDFile.NSDFolderSize.NSDFolderSizeEventArgs) Try Dim Str_Msg As String = Cls_FolderSize.GetEndStyleMsg(e.EndStyle) Str_Msg &= vbCrLf Str_Msg &= "ファイル数:" & e.FileCount & vbCrLf Str_Msg &= "フォルダ数:" & e.FolderCount & vbCrLf Str_Msg &= "フォルダサイズ:" & e.FolderSize & vbCrLf ' 終了時のメッセージを表示します. MsgBox(Str_Msg) Catch ex As Exception End Try End Sub End Class
名前:EndStyle
構文:Public ReadOnly Property EndStyle() As NSDFolderSize_EndStyle 機能:終了スタイルを返します。
Set値:なし。
Get値:終了スタイル(NSDFolderSize_EndStyle)。
使用例:
Public Class Form1 ' フォルダーサイズ用. Dim Cls_FolderSize As NSDFile.NSDFolderSize = Nothing ' フォルダーサイズフラグ True:取得中 False:取得していません. Dim BlnCls_FolderSize As Boolean = False ' FormClosing. Private Sub Form1_FormClosing(ByVal sender As Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs) _ Handles Me.FormClosing Try ' 解放処理. If Not (Cls_FolderSize Is Nothing) Then Cls_FolderSize.Dispose() Cls_FolderSize = Nothing End If Catch ex As Exception End Try End Sub ' フォルダーサイズを取得します. Private Sub Button_FolderSize_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles Button_FolderSize.Click Try Select Case BlnCls_FolderSize Case False ' フォルダーサイズの取得. BlnCls_FolderSize = True If (Cls_FolderSize Is Nothing) Then Cls_FolderSize = New NSDFile.NSDFolderSize End If Cls_FolderSize.GetFolderSize(Me.TextBox_FolderSize.Text, _ True, _ Nothing, _ Nothing, _ AddressOf Event_GetFolderSizeEndCallback, _ Nothing) Case Else ' フォルダーサイズの取得を中止します. If Not (Cls_FolderSize Is Nothing) Then Cls_FolderSize.StopGetFolderSize = True End If BlnCls_FolderSize = False End Select Catch ex As Exception End Try End Sub ' フォルダーサイズ取得時に呼び出されるイベント関数. Public Sub Event_GetFolderSizeEndCallback(ByVal sender As Object, _ ByVal e As NSDFile.NSDFolderSize.NSDFolderSizeEventArgs) Try Dim Str_Msg As String = Cls_FolderSize.GetEndStyleMsg(e.EndStyle) Str_Msg &= vbCrLf Str_Msg &= "ファイル数:" & e.FileCount & vbCrLf Str_Msg &= "フォルダ数:" & e.FolderCount & vbCrLf Str_Msg &= "フォルダサイズ:" & e.FolderSize & vbCrLf ' 終了時のメッセージを表示します. MsgBox(Str_Msg) Catch ex As Exception End Try End Sub End Class
名前:SearchStop
構文:Public Property SearchStop() As Boolean 機能:検索中止の設定をします。
Set値:True :検索を中止します。
False:検索を中止しません。
Get値:Set値を参照。
使用例:
Public Class Form1 ' フォルダーサイズ用. Dim Cls_FolderSize As NSDFile.NSDFolderSize = Nothing ' フォルダーサイズフラグ True:取得中 False:取得していません. Dim BlnCls_FolderSize As Boolean = False ' FormClosing. Private Sub Form1_FormClosing(ByVal sender As Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs) _ Handles Me.FormClosing Try ' 解放処理. If Not (Cls_FolderSize Is Nothing) Then Cls_FolderSize.Dispose() Cls_FolderSize = Nothing End If Catch ex As Exception End Try End Sub ' フォルダーサイズを取得します. Private Sub Button_FolderSize_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles Button_FolderSize.Click Try Select Case BlnCls_FolderSize Case False ' フォルダーサイズの取得. BlnCls_FolderSize = True If (Cls_FolderSize Is Nothing) Then Cls_FolderSize = New NSDFile.NSDFolderSize End If Cls_FolderSize.GetFolderSize(Me.TextBox_FolderSize.Text, _ True, _ AddressOf Event_GetFolderSize_OneFileCallBack, _ Nothing, _ AddressOf Event_GetFolderSizeEndCallback, _ Nothing) Case Else ' フォルダーサイズの取得を中止します. If Not (Cls_FolderSize Is Nothing) Then Cls_FolderSize.StopGetFolderSize = True End If BlnCls_FolderSize = False End Select Catch ex As Exception End Try End Sub ' 1ファイル毎にサイズを返すイベント関数. Private Sub Event_GetFolderSize_OneFileCallBack(ByVal sender As Object, _ ByVal e As NSDFile.NSDFolderSize.NSDFolderSizeEventArgs) Try If e.FileSize > 100000 Then e.SearchStop = True End If Catch ex As Exception End Try End Sub ' フォルダーサイズ取得時に呼び出されるイベント関数. Public Sub Event_GetFolderSizeEndCallback(ByVal sender As Object, _ ByVal e As NSDFile.NSDFolderSize.NSDFolderSizeEventArgs) Try Dim Str_Msg As String = Cls_FolderSize.GetEndStyleMsg(e.EndStyle) Str_Msg &= vbCrLf Str_Msg &= "ファイル数:" & e.FileCount & vbCrLf Str_Msg &= "フォルダー数:" & e.FolderCount & vbCrLf Str_Msg &= "フォルダサイズ:" & e.FolderSize & vbCrLf ' 終了時のメッセージを表示します. MsgBox(Str_Msg) Catch ex As Exception End Try End Sub End Class
Copyright (C) 2010-2012 Nihon System Developer Corp. All Rights Reserved.