NSDFile.NSDCopyFolder.NSDCopyFolderEventArgs メンバ

フォルダーコピーのイベント用。


●コンストラクタ

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

●プロパティの一覧

名前 説明
SourceName コピー元のファイル名を返します。
DestinationName コピー先のファイル名を返します。
EndStyle 終了スタイルを返します。
SearchStop 中止の設定をします。

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

構文:Public Sub New()

使用法:Dim ClsEvent As New NSDCopyFolderEventArgs( SourceName , DestinationName , EndStyle )

引数:

名前 引数渡しの方法 説明
SourceName String 値渡し(ByVal) コピー元のファイル名を渡します。
DestinationName String 値渡し(ByVal) コピー先のファイル名を渡します。
EndStyle NSDFileCopy_EndStyle 値渡し(ByVal) 終了スタイルを渡します。

使用例:

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

●NSDCopyFolderEventArgsプロパティの説明

名前:SourceName

構文:Public ReadOnly Property SourceName() As String

機能:コピー元のファイル名を返します。

Set値:なし。

Get値:コピー元のファイル名。

使用例:

Public Class Form1
    ' フォルダーコピー用.
    Dim Cls_CopyFolder As NSDFile.NSDCopyFolder = Nothing
    ' フォルダーのコピーフラグ True:コピー中 False:コピーしていません.
    Dim BlnCls_CopyFileFolder 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_CopyFolder Is Nothing) Then
                Cls_CopyFolder.Dispose()
                Cls_CopyFolder = Nothing
            End If
        Catch ex As Exception
        End Try
    End Sub

    ' コピー.
    Private Sub Button_Copy_Click( ByVal sender As System.Object, _
                                   ByVal e As System.EventArgs _
                                   ) Handles Button_Copy.Click
        Try
            Select Case BlnCls_CopyFileFolder
                Case False
                    ' コピーを行います.
                    Dim Str_Source As String = Me.TextBox_Source.Text
                    Dim Str_Destination As String = Me.TextBox_Destination.Text
                    Me.Button_Copy.Text = "中止"

                    BlnCls_CopyFileFolder = True

                    ' フォルダー用クラスの割り当て確認.
                    If (Cls_CopyFolder Is Nothing) Then
                        Cls_CopyFolder = New NSDFile.NSDCopyFolder
                    End If
                    ' フォルダーをコピーします.
                    Me.Button_Copy.Text = "中止"
                    Cls_CopyFolder.CopyFolder(Str_Source, _
                                              Str_Destination, _
                                              True , _
                                              AddressOf Event_CopyFolderOneAdd, _
                                              AddressOf Event_CopyFolder_FileDataWrite, _
                                              AddressOf Event_CopyFolder_FileCopyEnd, _
                                              AddressOf Event_CopyFolderOneFolderEnd, _
                                              AddressOf Event_CopyFolderEnd, _
                                              Cls_CopyFolderDispControl)
                Case Else
                    ' コピーを中止します.
                    Me.Button_Copy.Text = "コピー"
                    If Not (Cls_CopyFolder Is Nothing) Then
                        Cls_CopyFolder.StopCopyFolder = True
                    End If
                    BlnCls_CopyFileFolder = False
            End Select
        Catch ex As Exception
        End Try
    End Sub

    ' ファイルコピー前に呼び出されるイベント関数.
    Private Sub Event_CopyFolderOneAdd(ByVal Sender As Object, _
                                       ByVal e As NSDFile.NSDCopyFolder.NSDCopyFolderEventArgs)
        Try
            ' コピー元のファイル名.
            Dim Str_SourceName As String = e.SourceName
            ' コピー先のファイル名.
            Dim Str_DestinationName As String = e.DestinationName
                :
            If (・・・・) Then
                :
                e.SearchStop = True
            Else
                :
            End If
        Catch ex As Exception
        End Try
    End Sub

    ' コピー先にデータが書き込まれた時に呼び出されるイベント関数.
    Private Sub Event_CopyFolder_FileDataWrite(ByVal sender As Object, _
                                               ByVal e As NSDFile.NSDCopyFile.NSDFileCopyEventArgs)
        Try
                :
        Catch ex As Exception
        End Try
    End Sub

    ' コピー終了時に呼び出されるイベント関数.
    Private Sub Event_CopyFolder_FileCopyEnd(ByVal sender As Object, _
                                             ByVal e As NSDFile.NSDCopyFile.NSDFileCopyEventArgs)
        Try
                :
        Catch ex As Exception
        End Try
    End Sub

    ' 1フォルダーコピー終了後に呼び出されるイベント関数.
    Private Sub Event_CopyFolderOneFolderEnd(ByVal Sender As Object, _
                                             ByVal e As NSDFile.NSDCopyFolder.NSDCopyFolderEventArgs)
        Try
                :
        Catch ex As Exception
        End Try
    End Sub

    ' フォルダーコピー終了時に呼び出されるイベント関数.
    Private Sub Event_CopyFolderEnd(ByVal Sender As Object, _
                                    ByVal e As NSDFile.NSDCopyFolder.NSDCopyFolderEventArgs)
        Try
            MsgBox(Cls_CopyFolder.GetEndStyleMsg(e.EndStyle))
            BlnCls_CopyFileFolder = False
        Catch ex As Exception
        Finally
            If Not(Cls_CopyFolder Is Nothing) Then
                Cls_CopyFolder.Dispose()
                Cls_CopyFolder = Nothing
            End If
        End Try
    End Sub
End Class
名前:DestinationName
構文:Public ReadOnly Property DestinationName() As String

機能:コピー先のファイル名を返します。

Set値:なし。

Get値:コピー先のファイル名。

使用例:

Public Class Form1
    ' フォルダーコピー用.
    Dim Cls_CopyFolder As NSDFile.NSDCopyFolder = Nothing
    ' フォルダーのコピーフラグ True:コピー中 False:コピーしていません.
    Dim BlnCls_CopyFileFolder 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_CopyFolder Is Nothing) Then
                Cls_CopyFolder.Dispose()
                Cls_CopyFolder = Nothing
            End If
        Catch ex As Exception
        End Try
    End Sub

    ' コピー.
    Private Sub Button_Copy_Click( ByVal sender As System.Object, _
                                   ByVal e As System.EventArgs _
                                   ) Handles Button_Copy.Click
        Try
            Select Case BlnCls_CopyFileFolder
                Case False
                    ' コピーを行います.
                    Dim Str_Source As String = Me.TextBox_Source.Text
                    Dim Str_Destination As String = Me.TextBox_Destination.Text
                    Me.Button_Copy.Text = "中止"

                    BlnCls_CopyFileFolder = True

                    ' フォルダー用クラスの割り当て確認.
                    If (Cls_CopyFolder Is Nothing) Then
                        Cls_CopyFolder = New NSDFile.NSDCopyFolder
                    End If
                    ' フォルダーをコピーします.
                    Me.Button_Copy.Text = "中止"
                    Cls_CopyFolder.CopyFolder(Str_Source, _
                                              Str_Destination, _
                                              True , _
                                              AddressOf Event_CopyFolderOneAdd, _
                                              AddressOf Event_CopyFolder_FileDataWrite, _
                                              AddressOf Event_CopyFolder_FileCopyEnd, _
                                              AddressOf Event_CopyFolderOneFolderEnd, _
                                              AddressOf Event_CopyFolderEnd, _
                                              Cls_CopyFolderDispControl)
                Case Else
                    ' コピーを中止します.
                    Me.Button_Copy.Text = "コピー"
                    If Not (Cls_CopyFolder Is Nothing) Then
                        Cls_CopyFolder.StopCopyFolder = True
                    End If
                    BlnCls_CopyFileFolder = False
            End Select
        Catch ex As Exception
        End Try
    End Sub

    ' ファイルコピー前に呼び出されるイベント関数.
    Private Sub Event_CopyFolderOneAdd(ByVal Sender As Object, _
                                       ByVal e As NSDFile.NSDCopyFolder.NSDCopyFolderEventArgs)
        Try
            ' コピー元のファイル名.
            Dim Str_SourceName As String = e.SourceName
            ' コピー先のファイル名.
            Dim Str_DestinationName As String = e.DestinationName
                :
            If (・・・・) Then
                :
                e.SearchStop = True
            Else
                :
            End If
        Catch ex As Exception
        End Try
    End Sub

    ' コピー先にデータが書き込まれた時に呼び出されるイベント関数.
    Private Sub Event_CopyFolder_FileDataWrite(ByVal sender As Object, _
                                               ByVal e As NSDFile.NSDCopyFile.NSDFileCopyEventArgs)
        Try
                :
        Catch ex As Exception
        End Try
    End Sub

    ' コピー終了時に呼び出されるイベント関数.
    Private Sub Event_CopyFolder_FileCopyEnd(ByVal sender As Object, _
                                             ByVal e As NSDFile.NSDCopyFile.NSDFileCopyEventArgs)
        Try
                :
        Catch ex As Exception
        End Try
    End Sub

    ' 1フォルダーコピー終了後に呼び出されるイベント関数.
    Private Sub Event_CopyFolderOneFolderEnd(ByVal Sender As Object, _
                                             ByVal e As NSDFile.NSDCopyFolder.NSDCopyFolderEventArgs)
        Try
                :
        Catch ex As Exception
        End Try
    End Sub

    ' フォルダーコピー終了時に呼び出されるイベント関数.
    Private Sub Event_CopyFolderEnd(ByVal Sender As Object, _
                                    ByVal e As NSDFile.NSDCopyFolder.NSDCopyFolderEventArgs)
        Try
            MsgBox(Cls_CopyFolder.GetEndStyleMsg(e.EndStyle))
            BlnCls_CopyFileFolder = False
        Catch ex As Exception
        Finally
            If Not(Cls_CopyFolder Is Nothing) Then
                Cls_CopyFolder.Dispose()
                Cls_CopyFolder = Nothing
            End If
        End Try
    End Sub
End Class
名前:EndStyle
構文:Public ReadOnly Property EndStyle() As NSDCopyFile.NSDFileCopy_EndStyle

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

Set値:なし。

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

使用例:

Public Class Form1
    ' フォルダーコピー用.
    Dim Cls_CopyFolder As NSDFile.NSDCopyFolder = Nothing
    ' フォルダーのコピーフラグ True:コピー中 False:コピーしていません.
    Dim BlnCls_CopyFileFolder 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_CopyFolder Is Nothing) Then
                Cls_CopyFolder.Dispose()
                Cls_CopyFolder = Nothing
            End If
        Catch ex As Exception
        End Try
    End Sub

    ' コピー.
    Private Sub Button_Copy_Click( ByVal sender As System.Object, _
                                   ByVal e As System.EventArgs _
                                   ) Handles Button_Copy.Click
        Try
            Select Case BlnCls_CopyFileFolder
                Case False
                    ' コピーを行います.
                    Dim Str_Source As String = Me.TextBox_Source.Text
                    Dim Str_Destination As String = Me.TextBox_Destination.Text
                    Me.Button_Copy.Text = "中止"

                    BlnCls_CopyFileFolder = True

                    ' フォルダー用クラスの割り当て確認.
                    If (Cls_CopyFolder Is Nothing) Then
                        Cls_CopyFolder = New NSDFile.NSDCopyFolder
                    End If
                    ' フォルダーをコピーします.
                    Me.Button_Copy.Text = "中止"
                    Cls_CopyFolder.CopyFolder(Str_Source, _
                                              Str_Destination, _
                                              True , _
                                              AddressOf Event_CopyFolderOneAdd, _
                                              AddressOf Event_CopyFolder_FileDataWrite, _
                                              AddressOf Event_CopyFolder_FileCopyEnd, _
                                              AddressOf Event_CopyFolderOneFolderEnd, _
                                              AddressOf Event_CopyFolderEnd, _
                                              Cls_CopyFolderDispControl)
                Case Else
                    ' コピーを中止します.
                    Me.Button_Copy.Text = "コピー"
                    If Not (Cls_CopyFolder Is Nothing) Then
                        Cls_CopyFolder.StopCopyFolder = True
                    End If
                    BlnCls_CopyFileFolder = False
            End Select
        Catch ex As Exception
        End Try
    End Sub

    ' ファイルコピー前に呼び出されるイベント関数.
    Private Sub Event_CopyFolderOneAdd(ByVal Sender As Object, _
                                       ByVal e As NSDFile.NSDCopyFolder.NSDCopyFolderEventArgs)
        Try
            ' コピー元のファイル名.
            Dim Str_SourceName As String = e.SourceName
            ' コピー先のファイル名.
            Dim Str_DestinationName As String = e.DestinationName
                :
            If (・・・・) Then
                :
                e.SearchStop = True
            Else
                :
            End If
        Catch ex As Exception
        End Try
    End Sub

    ' コピー先にデータが書き込まれた時に呼び出されるイベント関数.
    Private Sub Event_CopyFolder_FileDataWrite(ByVal sender As Object, _
                                               ByVal e As NSDFile.NSDCopyFile.NSDFileCopyEventArgs)
        Try
                :
        Catch ex As Exception
        End Try
    End Sub

    ' コピー終了時に呼び出されるイベント関数.
    Private Sub Event_CopyFolder_FileCopyEnd(ByVal sender As Object, _
                                             ByVal e As NSDFile.NSDCopyFile.NSDFileCopyEventArgs)
        Try
                :
        Catch ex As Exception
        End Try
    End Sub

    ' 1フォルダーコピー終了後に呼び出されるイベント関数.
    Private Sub Event_CopyFolderOneFolderEnd(ByVal Sender As Object, _
                                             ByVal e As NSDFile.NSDCopyFolder.NSDCopyFolderEventArgs)
        Try
                :
        Catch ex As Exception
        End Try
    End Sub

    ' フォルダーコピー終了時に呼び出されるイベント関数.
    Private Sub Event_CopyFolderEnd(ByVal Sender As Object, _
                                    ByVal e As NSDFile.NSDCopyFolder.NSDCopyFolderEventArgs)
        Try
            MsgBox(Cls_CopyFolder.GetEndStyleMsg(e.EndStyle))
            BlnCls_CopyFileFolder = False
        Catch ex As Exception
        Finally
            If Not(Cls_CopyFolder Is Nothing) Then
                Cls_CopyFolder.Dispose()
                Cls_CopyFolder = Nothing
            End If
        End Try
    End Sub
End Class
名前:SearchStop
構文:Public Property SearchStop() As Boolean

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

Set値:True :中止します。

False:中止しません。

Get値:Set値を参照。

使用例:

Public Class Form1
    ' フォルダーコピー用.
    Dim Cls_CopyFolder As NSDFile.NSDCopyFolder = Nothing
    ' フォルダーのコピーフラグ True:コピー中 False:コピーしていません.
    Dim BlnCls_CopyFileFolder 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_CopyFolder Is Nothing) Then
                Cls_CopyFolder.Dispose()
                Cls_CopyFolder = Nothing
            End If
        Catch ex As Exception
        End Try
    End Sub

    ' コピー.
    Private Sub Button_Copy_Click( ByVal sender As System.Object, _
                                   ByVal e As System.EventArgs _
                                   ) Handles Button_Copy.Click
        Try
            Select Case BlnCls_CopyFileFolder
                Case False
                    ' コピーを行います.
                    Dim Str_Source As String = Me.TextBox_Source.Text
                    Dim Str_Destination As String = Me.TextBox_Destination.Text
                    Me.Button_Copy.Text = "中止"

                    BlnCls_CopyFileFolder = True

                    ' フォルダー用クラスの割り当て確認.
                    If (Cls_CopyFolder Is Nothing) Then
                        Cls_CopyFolder = New NSDFile.NSDCopyFolder
                    End If
                    ' フォルダーをコピーします.
                    Me.Button_Copy.Text = "中止"
                    Cls_CopyFolder.CopyFolder(Str_Source, _
                                              Str_Destination, _
                                              True , _
                                              AddressOf Event_CopyFolderOneAdd, _
                                              AddressOf Event_CopyFolder_FileDataWrite, _
                                              AddressOf Event_CopyFolder_FileCopyEnd, _
                                              AddressOf Event_CopyFolderOneFolderEnd, _
                                              AddressOf Event_CopyFolderEnd, _
                                              Cls_CopyFolderDispControl)
                Case Else
                    ' コピーを中止します.
                    Me.Button_Copy.Text = "コピー"
                    If Not (Cls_CopyFolder Is Nothing) Then
                        Cls_CopyFolder.StopCopyFolder = True
                    End If
                    BlnCls_CopyFileFolder = False
            End Select
        Catch ex As Exception
        End Try
    End Sub

    ' ファイルコピー前に呼び出されるイベント関数.
    Private Sub Event_CopyFolderOneAdd(ByVal Sender As Object, _
                                       ByVal e As NSDFile.NSDCopyFolder.NSDCopyFolderEventArgs)
        Try
            ' コピー元のファイル名.
            Dim Str_SourceName As String = e.SourceName
            ' コピー先のファイル名.
            Dim Str_DestinationName As String = e.DestinationName
                :
            If (・・・・) Then
                :
                e.SearchStop = True
            Else
                :
            End If
        Catch ex As Exception
        End Try
    End Sub

    ' コピー先にデータが書き込まれた時に呼び出されるイベント関数.
    Private Sub Event_CopyFolder_FileDataWrite(ByVal sender As Object, _
                                               ByVal e As NSDFile.NSDCopyFile.NSDFileCopyEventArgs)
        Try
                :
        Catch ex As Exception
        End Try
    End Sub

    ' コピー終了時に呼び出されるイベント関数.
    Private Sub Event_CopyFolder_FileCopyEnd(ByVal sender As Object, _
                                             ByVal e As NSDFile.NSDCopyFile.NSDFileCopyEventArgs)
        Try
                :
        Catch ex As Exception
        End Try
    End Sub

    ' 1フォルダーコピー終了後に呼び出されるイベント関数.
    Private Sub Event_CopyFolderOneFolderEnd(ByVal Sender As Object, _
                                             ByVal e As NSDFile.NSDCopyFolder.NSDCopyFolderEventArgs)
        Try
                :
        Catch ex As Exception
        End Try
    End Sub

    ' フォルダーコピー終了時に呼び出されるイベント関数.
    Private Sub Event_CopyFolderEnd(ByVal Sender As Object, _
                                    ByVal e As NSDFile.NSDCopyFolder.NSDCopyFolderEventArgs)
        Try
            MsgBox(Cls_CopyFolder.GetEndStyleMsg(e.EndStyle))
            BlnCls_CopyFileFolder = False
        Catch ex As Exception
        Finally
            If Not(Cls_CopyFolder Is Nothing) Then
                Cls_CopyFolder.Dispose()
                Cls_CopyFolder = Nothing
            End If
        End Try
    End Sub
End Class

 


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