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.