FileOperationProgressSink Class

Public Class FileOperationProgressSink
	Implements IFileOperationProgressSink

Dim instance As FileOperationProgressSink

public ref class FileOperationProgressSink : IFileOperationProgressSink

type FileOperationProgressSink = 
    class
        interface IFileOperationProgressSink
    end

No code example is currently available or this language may not be supported.

Public NotInheritable Class Form1 : Inherits Form

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Shown

        ' Instance the file operation progress callback class.
        Dim fsOperationProgress As New CustomFileOperationProgress() With {.TraceActionEnabled = False}

        Dim fsOperation As New FileOperation(fsOperationProgress, DirectCast(Me, IWin32Window)) With {
            .OperationFlags = FileOperationFlags.AddUndoRecord Or
                              FileOperationFlags.NoConfirmMakeDir Or
                              FileOperationFlags.RecycleOnDelete Or
                              FileOperationFlags.RenameCollision Or
                              FileOperationFlags.PreserveFileExtensions
        }

        ' Declare and create the test source directory.
        Dim srcDir As New DirectoryInfo("C:\Test_Source_Directory")
        srcDir.Create()

        ' Queue a copy of test directory into its own directory.
        fsOperation.QueueCopy(srcDir)

        ' Queue a copy of test directory the temp directory.
        fsOperation.QueueCopy(srcDir, New DirectoryInfo(Path.GetTempPath), "NewDirName")

        ' Perform the queued copy operations.
        Dim result As HResult = fsOperation.PerformOperations()
        If result <> HResult.S_OK Then
            Throw Marshal.GetExceptionForHR(result)
        End If

    End Sub

End Class

Friend Class CustomFileOperationProgress : Inherits FileOperationProgressSink

    Protected Overrides Sub StartOperations()
        ' MyBase.StartOperations()
        Console.WriteLine("Operation Started.")
    End Sub

    Protected Overrides Sub FinishOperations(result As HResult)
        ' MyBase.FinishOperations(result)
        Console.WriteLine($"Operation Finished ({Me.LastResult.Value})")
    End Sub

    Protected Overrides Sub UpdateProgress(workTotal As UInteger, workSoFar As UInteger)
        ' MyBase.UpdateProgress(workTotal, workSoFar)
        If workSoFar <> 0 Then
            Debug.WriteLine($"Operation Progress: {workSoFar / workTotal * 100:0.00}% ( {workSoFar}/{workTotal} )")
        End If
    End Sub

End Class

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.