Hide Table of Contents

Destroy Deleted Files in Vault Example (VB.NET)

This example shows how to create an application that displays a form in which a user can select the vault in whose root folder and subfolders all deleted files will be permanently destroyed. The user must have permission to delete files.

NOTE: If using the .NET Framework 4.0 primary interop assembly provided with SOLIDWORKS Enterprise PDM, see Using .NET Framework 4.0 in Stand-alone Applications.

IMPORTANT: Do not recreate and run this example if you do not want to destroy all deleted files in the root folder and subfolders in the selected vault. Instead, SOLIDWORKS Enterprise PDM suggests that you review the code to understand how you can programmatically destroy deleted files in the root folder and subfolders of a vault.

'----------------------------------------------------------------------------
' Preconditions:
'  1. Start Microsoft Visual Studio 2010.
'  2. Click File > New > Project > Visual Basic > Windows Forms Application.
'  3. Type the name of your project in Name.
'  4. Click the Browse button and browse to the folder where to create the project.
'  5. Click OK.
'  6. Create a form similar to the form shown above and change:
'     a. Second label to VaultsLabel.
'     b. Combo box to VaultsComboBox.
'     c. Check box to CheckBox_Recursive.
'     d. Button to DestroyDeletedItemsButton.  
'  7. Replace the code in Form1.vb with this code.
'  8. Replace the code in Form1.Designer.vb with this code.
'  9. Add EPDM.Interop.epdm.dll as a reference (right-click the project
'     name in the Solution Explorer, click Add Reference, click 
'     Framework in the left-side panel, browse to the top folder of your
'     SOLIDWORKS Enterprise PDM installation, locate and click
'     EPDM.Interop.epdm.dll
, click Open, click Add, and click Close).
' 10. Right-click EPDM.Interop.epdm in References, click Properties, and set
'     Embed Interop Types
to False to handle methods that pass arrays of
'     structures.
' 11. Switch back to Form1.vb code window.
' 12. Click Debug > Start Debugging or press F5.
'
' Postconditions:
'  1. Displays the Destroy Deleted Files dialog.
'  2. Select a vault.
'  3. Optionally select the Include all subfolders check box.
'  4. Click the Destroy deleted files button.
'     A message box pops up informing you that:
'     * No deleted files were found to destroy.
'       - or -
'     * The deleted files were destroyed.
'  5. Click OK in the message box.
'  6. Close the Destroy Deleted Files dialog.

'----------------------------------------------------------------------------

'Form1.vb
 
Imports EPDM.Interop.epdm
 
Public Class DestroyDeletedItems
 
    Private Sub DestroyDeleteItems_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load
 
        Try
            'Declare and create an instance of IEdmVault5
            'Cast IEdmVault5 to IEdmVault8
            Dim vault As IEdmVault8 = New EdmVault5
            Dim Views() As EdmViewInfo = Nothing
 
            'Populate the form with the names of 
            'the vaults on the computer
            vault.GetVaultViews(Views, False)
            VaultsComboBox.Items.Clear()
            For Each View As EdmViewInfo In Views
                VaultsComboBox.Items.Add(View.mbsVaultName)
            Next
            If VaultsComboBox.Items.Count > 0 Then
                VaultsComboBox.Text = VaultsComboBox.Items(0)
            End If
 
        Catch ex As Runtime.InteropServices.COMException
            MessageBox.Show("HRESULT = 0x" + ex.ErrorCode.ToString("X") + vbCrLf + ex.Message)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
 
    Private Sub DestroyDeletedItemsButton_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles DestroyDeletedItemsButton.Click
 
        Try
            'Declare and create an instance of IEdmVault5
            Dim vault As IEdmVault5 = New EdmVault5()
 
            'Log into selected vault as the current user
            vault.LoginAuto(VaultsComboBox.Text, Me.Handle.ToInt32())
 
            'Check to see if deleted files should be
            'destroyed in all subfolders
            Dim aRecursive As Boolean = False
            If CheckBox_Recursive.Checked Then
                aRecursive = True
            End If
 
 
            'Get the current time to pass to IEdmFolder7::DestroyDeletedItems
            Dim CurrentTime As Date
            CurrentTime = Now
 
            Dim Recursive As Boolean = False
            Dim ppoDestroyedItems() As EdmFileInfo = Nothing
            Dim paErrors() As EdmBatchDelErrInfo = Nothing
            Dim DeletedFolder As IEdmFolder7
 
            'Get the root folder of the vault
            DeletedFolder = vault.RootFolder
 
            DeletedFolder.DestroyDeletedItems(aRecursive, CurrentTime, ppoDestroyedItems, paErrors)
 
 
            'Destroy all deleted files in the root folder and
            'subfolders, if the check box is selected on the form
            Dim idx As Integer
            idx = LBound(ppoDestroyedItems)
            Dim msg As String = Nothing
 
            'If any deleted files found, display their names in a message box
            While idx <= UBound(ppoDestroyedItems)
                Dim row As String
                row = "DocumentID: " + CStr(ppoDestroyedItems(idx).mlFileID) + ", FolderID: " + _
                    CStr(ppoDestroyedItems(idx).mlFolderID) + ", File path: " + ppoDestroyedItems(idx).mbsPath + vbCrLf
                If ppoDestroyedItems(idx).mhResult = 0 Then
                    row = row + "Status: OK" + vbCrLf
                Else
                    row = row + " status: Failed=" + "HRESULT = 0x" + CStr(paErrors(idx).mlErrorCode)
                End If
                idx = idx + 1
                msg = msg + row + vbCrLf
            End While
 
            If msg Is Nothing Then
                MessageBox.Show("No deleted files were found in the selected vault's root folder or subfolders.")
            Else
                MessageBox.Show("The status for each destroyed file is: " + vbCrLf + vbCrLf + msg)
            End If
 
        Catch ex As Runtime.InteropServices.COMException
            MessageBox.Show("HRESULT = 0x" + ex.ErrorCode.ToString("X") + vbCrLf + ex.Message)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
 
 
    Private Sub Label1_Click(ByVal sender As System.ObjectByVal e As System.EventArgs)
 
    End Sub
 
    Private Sub VaultsLabel_Click(ByVal sender As System.ObjectByVal e As System.EventArgs)
 
    End Sub
 
    Private Sub CheckBox_Recursive_CheckedChanged(ByVal sender As System.ObjectByVal e As System.EventArgsHandles CheckBox_Recursive.CheckedChanged
 
    End Sub
 
End Class

Back to top

'Form1.Designer.vb

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class DestroyDeletedItems
    Inherits System.Windows.Forms.Form
 
    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub
 
    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer
 
    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.VaultsComboBox = New System.Windows.Forms.ComboBox()
        Me.CheckBox_Recursive = New System.Windows.Forms.CheckBox()
        Me.DestroyDeletedItemsButton = New System.Windows.Forms.Button()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.VaultsLabel = New System.Windows.Forms.Label()
        Me.SuspendLayout()
        '
        'VaultsComboBox
        '
        Me.VaultsComboBox.FormattingEnabled = True
        Me.VaultsComboBox.Location = New System.Drawing.Point(69, 133)
        Me.VaultsComboBox.Name = "VaultsComboBox"
        Me.VaultsComboBox.Size = New System.Drawing.Size(139, 21)
        Me.VaultsComboBox.TabIndex = 1
        '
        'CheckBox_Recursive
        '
        Me.CheckBox_Recursive.AutoSize = True
        Me.CheckBox_Recursive.Location = New System.Drawing.Point(69, 181)
        Me.CheckBox_Recursive.Name = "CheckBox_Recursive"
        Me.CheckBox_Recursive.Size = New System.Drawing.Size(125, 17)
        Me.CheckBox_Recursive.TabIndex = 3
        Me.CheckBox_Recursive.Text = "Include all subfolders"
        Me.CheckBox_Recursive.UseVisualStyleBackColor = True
        '
        'DestroyDeletedItemsButton
        '
        Me.DestroyDeletedItemsButton.Location = New System.Drawing.Point(69, 218)
        Me.DestroyDeletedItemsButton.Name = "DestroyDeletedItemsButton"
        Me.DestroyDeletedItemsButton.Size = New System.Drawing.Size(139, 23)
        Me.DestroyDeletedItemsButton.TabIndex = 4
        Me.DestroyDeletedItemsButton.Text = "Destroy deleted files"
        Me.DestroyDeletedItemsButton.UseVisualStyleBackColor = True
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(66, 20)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(171, 68)
        Me.Label1.TabIndex = 5
        Me.Label1.Text = "This application destroys all deleted files in the root folder of the selected va" & _
            "ult and also allows you to destroy all deleted files in all of the selected vaul" & _
            "t's subfolders."
        '
        'VaultsLabel
        '
        Me.VaultsLabel.AutoSize = True
        Me.VaultsLabel.Location = New System.Drawing.Point(66, 108)
        Me.VaultsLabel.Name = "VaultsLabel"
        Me.VaultsLabel.Size = New System.Drawing.Size(75, 13)
        Me.VaultsLabel.TabIndex = 6
        Me.VaultsLabel.Text = "Select a vault:"
        '
        'DestroyDeletedItems
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(284, 262)
        Me.Controls.Add(Me.VaultsLabel)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.DestroyDeletedItemsButton)
        Me.Controls.Add(Me.CheckBox_Recursive)
        Me.Controls.Add(Me.VaultsComboBox)
        Me.Name = "DestroyDeletedItems"
        Me.Text = "Destroy Deleted Files"
        Me.ResumeLayout(False)
        Me.PerformLayout()
 
    End Sub
    Friend WithEvents VaultsComboBox As System.Windows.Forms.ComboBox
    Friend WithEvents CheckBox_Recursive As System.Windows.Forms.CheckBox
    Friend WithEvents DestroyDeletedItemsButton As System.Windows.Forms.Button
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents VaultsLabel As System.Windows.Forms.Label
 
End Class

 

Back to top



Provide feedback on this topic

SOLIDWORKS welcomes your feedback concerning the presentation, accuracy, and thoroughness of the documentation. Use the form below to send your comments and suggestions about this topic directly to our documentation team. The documentation team cannot answer technical support questions. Click here for information about technical support.

* Required

 
*Email:  
Subject:   Feedback on Help Topics
Page:   Destroy Deleted Files in Vault Example (VB.NET)
*Comment:  
*   I acknowledge I have read and I hereby accept the privacy policy under which my Personal Data will be used by Dassault Systèmes

Print Topic

Select the scope of content to print:



x

We have detected you are using a browser version older than Internet Explorer 7. For optimized display, we suggest upgrading your browser to Internet Explorer 7 or newer.

 Never show this message again
x

Web Help Content Version: API Help (English only) 2015 SP05

To disable Web help from within SOLIDWORKS and use local help instead, click Help > Use SOLIDWORKS Web Help.

To report problems encountered with the Web help interface and search, contact your local support representative. To provide feedback on individual help topics, use the “Feedback on this topic” link on the individual topic page.