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.