NSDFile.NSDDeleteFolder.NSDDeleteFolderEventArgs メンバ

フォルダー削除のイベント用。


●コンストラクタ

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

●プロパティの一覧

名前 説明
DeleteName 削除パス名を返します。
EndStyle 終了スタイルを返します。
DeleteStop 削除中止の設定をします。

NSDDeleteFolderEventArgsコンストラクタの説明

構文:Public Sub New()

使用法:Dim ClsEvent As New NSDDeleteFolderEventArgs( DeleteName , EndStyle )

引数:

名前 引数渡しの方法 説明
DeleteName String 値渡し(ByVal) 削除パス名を渡します。
EndStyle NSDDeleteFolder_EndStyle 値渡し(ByVal) 終了スタイルを渡します。

使用例:

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

NSDDeleteFolderEventArgsプロパティの説明

名前:DeleteName

構文:Public ReadOnly Property DeleteName() As String

機能:削除パス名を返します。

Set値:なし。

Get値:削除パス名。

使用例:

Public Class Form1
    ' フォルダー削除用.
    Dim Cls_DeleteFolder As NSDFile.NSDDeleteFolder = Nothing
    ' フォルダー削除フラグ True:削除中 False:削除していません.
    Dim BlnCls_DeleteFolder As Boolean = False

    ' フォルダー削除用変数.
    Dim IntCls_DeleteFolder_FileCount As Integer = 0    ' 削除ファイル数.
    Dim IntCls_DeleteFolder_FolderCount As Integer = 0  ' 削除フォルダー数.

    ' FormClosing.
    Private Sub Form1_FormClosing(ByVal sender As Object, _
                                  ByVal e As System.Windows.Forms.FormClosingEventArgs _
                                  ) Handles Me.FormClosing
        Try
            ' フォルダー削除の解放.                    
            If Not (Cls_DeleteFolder Is Nothing) Then
                Cls_DeleteFolder.Dispose()
                Cls_DeleteFolder = Nothing
            End If
        Catch ex As Exception
        End Try
    End Sub

    ' フォルダー削除."
    Private Sub Button_Delete_Click( ByVal sender As System.Object, _
                                     ByVal e As System.EventArgs _
                                     ) Handles Button_Delete.Click
        Try
            Select Case BlnCls_DeleteFolder
                Case False
                    ' 削除を行います.
                    If MsgBox("フォルダーを削除します。" & vbCrLf _
                              & "よろしいですか?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
                        BlnCls_DeleteFolder = True

                        Me.Label_FolderDelete1_1.Text = 0
                        Me.Label_FolderDelete2_1.Text = 0

                        IntCls_DeleteFolder_FileCount = 0    ' 削除ファイル数.
                        IntCls_DeleteFolder_FolderCount = 0  ' 削除フォルダー数.

                        Me.Button_Delete.Text = "中止"
                        If (Cls_DeleteFolder Is Nothing) Then
                            Cls_DeleteFolder = New NSDFile.NSDDeleteFolder
                        End If

                        Cls_DeleteFolder.DeleteFolder(Me.TextBox_Delete.Text, _
                                                      AddressOf EventVal_DeleteFolderOneFileCallback, _
                                                      AddressOf EventVal_DeleteFolderOneFolderCallback, _
                                                      AddressOf EventVal_DeleteFolderEndCallback)
                    End If
                Case Else
                    ' 削除を中止します.
                    Me.Button_Delete.Text = "フォルダー削除"
                    If Not (Cls_DeleteFolder Is Nothing) Then
                        Cls_DeleteFolder.StopDeleteFolder = True
                    End If
                    BlnCls_DeleteFolder = False
            End Select
        Catch ex As Exception
        End Try
    End Sub

    ' 1ファイル削除時に呼び出されるイベント関数.
    Private Sub EventVal_DeleteFolderOneFileCallback( ByVal sender As Object, _
                                                      ByVal e As NSDFile.NSDDeleteFolder.NSDDeleteFolderEventArgs)
        Try
            ' 削除ファイル数をカウントします.
            IntCls_DeleteFolder_FileCount += 1
            Dim Str_FileCount As String = Format(IntCls_DeleteFolder_FileCount, "###,##0")

                :

            Dim Str_DeleteName As String = e.DeleteName

                :

            If (・・・・) Then
                e.DeleteStop = True
            End If
        Catch ex As Exception
        End Try
    End Sub

    ' 1フォルダー削除時に呼び出されるイベント関数.
    Private Sub EventVal_DeleteFolderOneFolderCallback( ByVal sender As Object, _
                                                        ByVal e As NSDFile.NSDDeleteFolder.NSDDeleteFolderEventArgs)
        Try
            ' 削除フォルダー数をカウントします.
            IntCls_DeleteFolder_FolderCount += 1
            Dim Str_FolderCount As String = Format(IntCls_DeleteFolder_FolderCount, "###,##0")
        Catch ex As Exception
        End Try
    End Sub

    ' フォルダー削除終了時に呼び出されるイベント関数.
    Private Sub EventVal_DeleteFolderEndCallback( ByVal sender As Object, _
                                                  ByVal e As NSDFile.NSDDeleteFolder.NSDDeleteFolderEventArgs)
        Try
            MsgBox(Cls_DeleteFolder.GetEndStyleMsg(e.EndStyle))
        Catch ex As Exception
        End Try
    End Sub
End Class
名前:EndStyle
構文:Public ReadOnly Property EndStyle() As NSDDeleteFolder_EndStyle

機能:終了スタイルを返します。

Set値:なし。

Get値:終了スタイル(NSDDeleteFolder_EndStyle)。

使用例:

Public Class Form1
    ' フォルダー削除用.
    Dim Cls_DeleteFolder As NSDFile.NSDDeleteFolder = Nothing
    ' フォルダー削除フラグ True:削除中 False:削除していません.
    Dim BlnCls_DeleteFolder As Boolean = False

    ' フォルダー削除用変数.
    Dim IntCls_DeleteFolder_FileCount As Integer = 0    ' 削除ファイル数.
    Dim IntCls_DeleteFolder_FolderCount As Integer = 0  ' 削除フォルダー数.

    ' FormClosing.
    Private Sub Form1_FormClosing(ByVal sender As Object, _
                                  ByVal e As System.Windows.Forms.FormClosingEventArgs _
                                  ) Handles Me.FormClosing
        Try
            ' フォルダー削除の解放.                    
            If Not (Cls_DeleteFolder Is Nothing) Then
                Cls_DeleteFolder.Dispose()
                Cls_DeleteFolder = Nothing
            End If
        Catch ex As Exception
        End Try
    End Sub

    ' フォルダー削除."
    Private Sub Button_Delete_Click( ByVal sender As System.Object, _
                                     ByVal e As System.EventArgs _
                                     ) Handles Button_Delete.Click
        Try
            Select Case BlnCls_DeleteFolder
                Case False
                    ' 削除を行います.
                    If MsgBox("フォルダーを削除します。" & vbCrLf _
                              & "よろしいですか?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
                        BlnCls_DeleteFolder = True

                        Me.Label_FolderDelete1_1.Text = 0
                        Me.Label_FolderDelete2_1.Text = 0

                        IntCls_DeleteFolder_FileCount = 0    ' 削除ファイル数.
                        IntCls_DeleteFolder_FolderCount = 0  ' 削除フォルダー数.

                        Me.Button_Delete.Text = "中止"
                        If (Cls_DeleteFolder Is Nothing) Then
                            Cls_DeleteFolder = New NSDFile.NSDDeleteFolder
                        End If

                        Cls_DeleteFolder.DeleteFolder(Me.TextBox_Delete.Text, _
                                                      AddressOf EventVal_DeleteFolderOneFileCallback, _
                                                      AddressOf EventVal_DeleteFolderOneFolderCallback, _
                                                      AddressOf EventVal_DeleteFolderEndCallback)
                    End If
                Case Else
                    ' 削除を中止します.
                    Me.Button_Delete.Text = "フォルダー削除"
                    If Not (Cls_DeleteFolder Is Nothing) Then
                        Cls_DeleteFolder.StopDeleteFolder = True
                    End If
                    BlnCls_DeleteFolder = False
            End Select
        Catch ex As Exception
        End Try
    End Sub

    ' 1ファイル削除時に呼び出されるイベント関数.
    Private Sub EventVal_DeleteFolderOneFileCallback( ByVal sender As Object, _
                                                      ByVal e As NSDFile.NSDDeleteFolder.NSDDeleteFolderEventArgs)
        Try
            ' 削除ファイル数をカウントします.
            IntCls_DeleteFolder_FileCount += 1
            Dim Str_FileCount As String = Format(IntCls_DeleteFolder_FileCount, "###,##0")
        Catch ex As Exception
        End Try
    End Sub

    ' 1フォルダー削除時に呼び出されるイベント関数.
    Private Sub EventVal_DeleteFolderOneFolderCallback( ByVal sender As Object, _
                                                        ByVal e As NSDFile.NSDDeleteFolder.NSDDeleteFolderEventArgs)
        Try
            ' 削除フォルダー数をカウントします.
            IntCls_DeleteFolder_FolderCount += 1
            Dim Str_FolderCount As String = Format(IntCls_DeleteFolder_FolderCount, "###,##0")
        Catch ex As Exception
        End Try
    End Sub

    ' フォルダー削除終了時に呼び出されるイベント関数.
    Private Sub EventVal_DeleteFolderEndCallback( ByVal sender As Object, _
                                                  ByVal e As NSDFile.NSDDeleteFolder.NSDDeleteFolderEventArgs)
        Try
            MsgBox(Cls_DeleteFolder.GetEndStyleMsg(e.EndStyle))
        Catch ex As Exception
        End Try
    End Sub
End Class
名前:DeleteStop
構文:Public Property DeleteStop() As Boolean

機能:削除中止の設定をします。

Set値:True :中止します。

False:中止しません。

Get値:Set値を参照。

使用例:

Public Class Form1
    ' フォルダー削除用.
    Dim Cls_DeleteFolder As NSDFile.NSDDeleteFolder = Nothing
    ' フォルダー削除フラグ True:削除中 False:削除していません.
    Dim BlnCls_DeleteFolder As Boolean = False

    ' フォルダー削除用変数.
    Dim IntCls_DeleteFolder_FileCount As Integer = 0    ' 削除ファイル数.
    Dim IntCls_DeleteFolder_FolderCount As Integer = 0  ' 削除フォルダー数.

    ' FormClosing.
    Private Sub Form1_FormClosing(ByVal sender As Object, _
                                  ByVal e As System.Windows.Forms.FormClosingEventArgs _
                                  ) Handles Me.FormClosing
        Try
            ' フォルダー削除の解放.                    
            If Not (Cls_DeleteFolder Is Nothing) Then
                Cls_DeleteFolder.Dispose()
                Cls_DeleteFolder = Nothing
            End If
        Catch ex As Exception
        End Try
    End Sub

    ' フォルダー削除."
    Private Sub Button_Delete_Click( ByVal sender As System.Object, _
                                     ByVal e As System.EventArgs _
                                     ) Handles Button_Delete.Click
        Try
            Select Case BlnCls_DeleteFolder
                Case False
                    ' 削除を行います.
                    If MsgBox("フォルダーを削除します。" & vbCrLf _
                              & "よろしいですか?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
                        BlnCls_DeleteFolder = True

                        Me.Label_FolderDelete1_1.Text = 0
                        Me.Label_FolderDelete2_1.Text = 0

                        IntCls_DeleteFolder_FileCount = 0    ' 削除ファイル数.
                        IntCls_DeleteFolder_FolderCount = 0  ' 削除フォルダー数.

                        Me.Button_Delete.Text = "中止"
                        If (Cls_DeleteFolder Is Nothing) Then
                            Cls_DeleteFolder = New NSDFile.NSDDeleteFolder
                        End If

                        Cls_DeleteFolder.DeleteFolder(Me.TextBox_Delete.Text, _
                                                      AddressOf EventVal_DeleteFolderOneFileCallback, _
                                                      AddressOf EventVal_DeleteFolderOneFolderCallback, _
                                                      AddressOf EventVal_DeleteFolderEndCallback)
                    End If
                Case Else
                    ' 削除を中止します.
                    Me.Button_Delete.Text = "フォルダー削除"
                    If Not (Cls_DeleteFolder Is Nothing) Then
                        Cls_DeleteFolder.StopDeleteFolder = True
                    End If
                    BlnCls_DeleteFolder = False
            End Select
        Catch ex As Exception
        End Try
    End Sub

    ' 1ファイル削除時に呼び出されるイベント関数.
    Private Sub EventVal_DeleteFolderOneFileCallback( ByVal sender As Object, _
                                                      ByVal e As NSDFile.NSDDeleteFolder.NSDDeleteFolderEventArgs)
        Try
            ' 削除ファイル数をカウントします.
            IntCls_DeleteFolder_FileCount += 1
            Dim Str_FileCount As String = Format(IntCls_DeleteFolder_FileCount, "###,##0")

                :

            Dim Str_DeleteName As String = e.DeleteName

                :

            If (・・・・) Then
                e.DeleteStop = True
            End If
        Catch ex As Exception
        End Try
    End Sub

    ' 1フォルダー削除時に呼び出されるイベント関数.
    Private Sub EventVal_DeleteFolderOneFolderCallback( ByVal sender As Object, _
                                                        ByVal e As NSDFile.NSDDeleteFolder.NSDDeleteFolderEventArgs)
        Try
            ' 削除フォルダー数をカウントします.
            IntCls_DeleteFolder_FolderCount += 1
            Dim Str_FolderCount As String = Format(IntCls_DeleteFolder_FolderCount, "###,##0")
        Catch ex As Exception
        End Try
    End Sub

    ' フォルダー削除終了時に呼び出されるイベント関数.
    Private Sub EventVal_DeleteFolderEndCallback( ByVal sender As Object, _
                                                  ByVal e As NSDFile.NSDDeleteFolder.NSDDeleteFolderEventArgs)
        Try
            MsgBox(Cls_DeleteFolder.GetEndStyleMsg(e.EndStyle))
        Catch ex As Exception
        End Try
    End Sub
End Class

 


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