840 lines
120 KiB
HTML
840 lines
120 KiB
HTML
<html>
|
|
|
|
<head>
|
|
<title>Vault Utilities Example (VB.NET)</title>
|
|
<meta http-equiv="Content-Language" content="en-us">
|
|
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
|
|
<link rel="stylesheet" type="text/css" href="ApiHelp.css">
|
|
</head>
|
|
<meta name=MS-HKWD content="VB.NET examples,groups">
|
|
<meta name=MS-HKWD content="VB.NET examples,users">
|
|
<meta name=MS-HKWD content="VB.NET examples,files">
|
|
<meta name=MS-HKWD content="VB.NET examples,folders">
|
|
<meta name=MS-HKWD content="VB.NET examples,licenses">
|
|
<meta name=MS-HKWD content="VB.NET examples,versions">
|
|
<meta name=MS-HKWD content="VB.NET examples,permissions">
|
|
<body>
|
|
<h1><font size="1"><span style="font-weight: 400">SOLIDWORKS PDM Professional API Help</span></h1>
|
|
<h1>Vault Utilities Example (VB.NET)</h1>
|
|
<p><a name="top"></a>This example shows how to:</p>
|
|
<ul>
|
|
<li class=kadov-p>Verify installed SOLIDWORKS PDM Professional version is at
|
|
least 5.3.</li>
|
|
<li class=kadov-p>Get installed SOLIDWORKS PDM Professional licenses.</li>
|
|
<li class=kadov-p>Add a group.</li>
|
|
<li class=kadov-p>Remove a group.</li>
|
|
<li class=kadov-p>Add a user.</li>
|
|
<li class=kadov-p>Remove a user.</li>
|
|
<li class=kadov-p>Copy a file.</li>
|
|
<li class=kadov-p>Delete a file.</li>
|
|
<li class=kadov-p>Get check-out permission for a file.</li>
|
|
<li class=kadov-p>Delete a folder.</li>
|
|
<li class=kadov-p>Restore deleted items to the vault view.</li>
|
|
</ul>
|
|
<p><b>NOTE</b>: If using the primary interop assembly
|
|
provided with SOLIDWORKS PDM Professional, see
|
|
<a href="Using_NET_Framework_in_Applications.htm">Using .NET Framework 4.0 in
|
|
Stand-alone Applications</a>.</p>
|
|
<p><img border="0" src="VaultUtilities.gif" width="292" height="418"></p>
|
|
|
|
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE">
|
|
<span style="color:green;">
|
|
'----------------------------------------------------------------------------</span><br>
|
|
<span style="color:green;">' Preconditions:</span><br>
|
|
<span style="color:green;">' 1. Start Microsoft Visual Studio.</span><br>
|
|
<span style="color:green;">' a. Click <b>File > New > Project > Visual Basic > Windows Forms Application</b>.</span><br>
|
|
<span style="color:green;">' b. Type <b>VaultUtilities</b> in <b>Name</b>.</span><br>
|
|
<span style="color:green;">' c. Click <b>Browse</b> and navigate to the folder where to create </span><br>
|
|
<span style="color:green;">' the project.</span><br>
|
|
<span style="color:green;">' d. Click <b>OK</b>. </span><br>
|
|
<span style="color:green;">' e. Click <b>Show All Files</b> in the Solution Explorer toolbar and expand </span><br>
|
|
<span style="color:green;">' <b>Form1.vb</b> in the Solution Explorer.</span><br>
|
|
<span style="color:green;">' f. Replace the code in <b>Form1.vb</b> with <a href="#form1">this code</a>.</span><br>
|
|
<span style="color:green;">' g. To create the form,
|
|
replace the code in <b>Form1.Designer.vb</b> with <a href="#form1designer">this code</a>.</span><br>
|
|
<span style="color:green;">' 2. Add <b>EPDM.Interop.epdm.dll</b> as a reference (right-click the project</span><br>
|
|
<span style="color:green;">' name in the Solution Explorer, click <b>Add Reference</b>, click </span><br>
|
|
<span style="color:green;">' <b>Assemblies > Framework</b> in the left-side panel, browse to the top folder of </span><br>
|
|
<span style="color:green;">' your SOLIDWORKS PDM Professional installation, locate and click </span><br>
|
|
<span style="color:green;">' <b>EPDM.Interop.epdm.dll</b>, and click <b>OK</b>).</span><br>
|
|
<span style="color:green;">' 3. Right-click <b>EPDM.Interop.epdm</b> in References, click <b>Properties</b>, and set </span><br>
|
|
<span style="color:green;">' <b>Embed Interop Types</b> to <b>False</b> to handle methods that pass arrays of </span><br>
|
|
<span style="color:green;">' structures.<br>
|
|
' 4. Ensure that an empty folder exists in the vault.</span><br>
|
|
<span style="color:green;">' 5. Click <b>Debug > Start Debugging</b> or press F5.</span><br>
|
|
<span style="color:green;">'</span><br>
|
|
<span style="color:green;">' Postconditions: </span><br>
|
|
<span style="color:green;">' 1. Displays the Vault utilities dialog box.</span><br>
|
|
<span style="color:green;">' a. Select a vault view.</span><br>
|
|
<span style="color:green;">' b. Click <b>Verify
|
|
SOLIDWORKS PDM Professional 5.3</b>. </span><br>
|
|
<span style="color:green;">
|
|
' 1. Displays message about the installed version.<br>
|
|
' 2. Click <b>OK</b>.</span><br>
|
|
<span style="color:green;">' c. Click <b>Get SOLIDWORKS
|
|
Professional PDM licenses</b>.</span><br>
|
|
<font color="#008000">' 1. Displays a
|
|
message with the installed licenses.</font><br>
|
|
<span style="color:green;">
|
|
' 2. Click <b>OK</b>.<br>
|
|
' d. Click <b>Add group</b>.<br>
|
|
' 1. Displays a message that group, My
|
|
Group, is created.<br>
|
|
' 2. Click <b>OK</b>.<br>
|
|
' e. Click <b>Add user</b>.<br>
|
|
' 1. Displays a message that user, Temp, is
|
|
created.<br>
|
|
' 2. Click <b>OK</b>.<br>
|
|
' f. Click <b>Remove group</b>.<br>
|
|
' 1. Displays a message with the removal
|
|
status.<br>
|
|
' 2. Click <b>OK</b>.<br>
|
|
' g. Click <b>Remove user</b>.<br>
|
|
' 1. Displays a message with the removal
|
|
status.<br>
|
|
' 2. Click <b>OK</b>.<br>
|
|
' h. Click <b>Copy file</b>.<br>
|
|
' 1. In the Open dialog, click a vault
|
|
file.<br>
|
|
' 2. Click <b>Open</b>.<br>
|
|
' 3. In the Select Folder dialog, click a
|
|
folder to which to copy <br>
|
|
' the selected file.<br>
|
|
' 4. Click <b>OK</b>.<br>
|
|
' 5. Displays a message with the file copy
|
|
status.<br>
|
|
' 6. Click <b>OK</b>.<br>
|
|
' i. Click <b>Delete file</b>.<br>
|
|
' 1. In the Select Files to Delete dialog
|
|
box, click a vault file<br>
|
|
' to delete.<br>
|
|
' 2. Click <b>Open</b>.<br>
|
|
' 3. Displays a message with the file
|
|
deletion status.<br>
|
|
' 4. Click <b>OK</b>.<br>
|
|
' j. Click <b>Check-out permission</b>.<br>
|
|
' 1. In the Open dialog, click a file for
|
|
which to get the check-out<br>
|
|
' permission.<br>
|
|
' 2. Click <b>Open</b>.<br>
|
|
' 3. Displays a message with the user's
|
|
permission.<br>
|
|
' 4. Click <b>OK</b>.<br>
|
|
' k. Click <b>Delete folder</b>.<br>
|
|
' 1. In the Select Folder dialog, click an
|
|
empty vault folder to delete.<br>
|
|
' 2. Click <b>OK</b>.<br>
|
|
' 3. Displays a message with the status of
|
|
the folder deletion.<br>
|
|
' 4. Click <b>OK</b>.<br>
|
|
' l. Click <b>Restore deleted items</b>.<br>
|
|
' 1. In the Select Folder dialog, click the
|
|
folder from which you deleted<br>
|
|
' a file in step 1i.<br>
|
|
' 2. Click <b>OK</b>.<br>
|
|
' 3. Displays a message with the status of
|
|
the folder restoration.<br>
|
|
' 4. Click <b>OK</b>.</span><br>
|
|
<span style="color:green;">
|
|
' 2. Close the Vault utilities dialog box. </span><br>
|
|
<span style="color:green;">
|
|
'----------------------------------------------------------------------------</span><br>
|
|
<br>
|
|
<span style="color:green;"><a name="form1"></a>'Form1.vb</span><br>
|
|
</p>
|
|
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE">
|
|
<span style="color:blue;">Imports</span> System.IO<br>
|
|
<span style="color:blue;">Imports</span> System.Xml.Serialization<br>
|
|
<span style="color:blue;">Imports</span> System.Collections<br>
|
|
<span style="color:blue;">Imports</span> System.Collections.Generic<br>
|
|
<span style="color:blue;">Imports</span> System.Data<br>
|
|
<span style="color:blue;">Imports</span> System.Diagnostics<br>
|
|
<span style="color:blue;">Imports</span> System.Windows.Forms<br>
|
|
<span style="color:blue;">Imports</span> System.ComponentModel<br>
|
|
<span style="color:blue;">Imports</span> EPDM.Interop.epdm<br>
|
|
<br>
|
|
<br>
|
|
<span style="color:blue;">Public</span> <span style="color:blue;">Class</span> <span style="color:#2b91af;">Form1</span><br>
|
|
<br>
|
|
<span style="color:blue;">Private</span> vault1 <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmVault5</span> = <span style="color:blue;">Nothing</span><br>
|
|
<br>
|
|
<span style="color:blue;">Public</span> <span style="color:blue;">Sub</span> Form1_Load(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> System.<span style="color:#2b91af;">Object</span>, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.<span style="color:#2b91af;">EventArgs</span>) <span style="color:blue;">Handles</span> <span style="color:blue;">MyBase</span>.Load<br>
|
|
<br>
|
|
<span style="color:blue;">Try</span><br>
|
|
<span style="color:blue;">Dim</span> vault1 <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmVault5</span> = <span style="color:blue;">New</span> <span style="color:#2b91af;">EdmVault5</span>()<br>
|
|
<span style="color:blue;">Dim</span> vault <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmVault8</span> = <span style="color:blue;">DirectCast</span>(vault1, <span style="color:#2b91af;">IEdmVault8</span>)<br>
|
|
<span style="color:blue;">Dim</span> Views <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmViewInfo</span>() = <span style="color:blue;">Nothing</span><br>
|
|
<br>
|
|
vault.<b>GetVaultViews</b>(Views, <span style="color:blue;">False</span>)<br>
|
|
VaultsComboBox.Items.Clear()<br>
|
|
<span style="color:blue;">For</span> <span style="color:blue;">Each</span> View <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmViewInfo</span> <span style="color:blue;">In</span> Views<br>
|
|
VaultsComboBox.Items.Add(View.<b>mbsVaultName</b>)<br>
|
|
<span style="color:blue;">Next</span><br>
|
|
<span style="color:blue;">If</span> VaultsComboBox.Items.Count > 0 <span style="color:blue;">Then</span><br>
|
|
VaultsComboBox.Text = <span style="color:blue;">DirectCast</span>(VaultsComboBox.Items(0), <span style="color:blue;">String</span>)<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
|
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> System.Runtime.InteropServices.<span style="color:#2b91af;">COMException</span><br>
|
|
<span style="color:#2b91af;">MessageBox</span>.Show(<span style="color:#a31515;">"HRESULT = 0x"</span> + ex.ErrorCode.ToString(<span style="color:#a31515;">"X"</span>) + <span style="color:#a31515;">" "</span> + ex.Message)<br>
|
|
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> <span style="color:#2b91af;">Exception</span><br>
|
|
<span style="color:#2b91af;">MessageBox</span>.Show(ex.Message)<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">Try</span><br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span><br>
|
|
<br>
|
|
<br>
|
|
<span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> Button5_Click(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> System.<span style="color:#2b91af;">Object</span>, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.<span style="color:#2b91af;">EventArgs</span>) <span style="color:blue;">Handles</span> Button5.Click<br>
|
|
<span style="color:green;">'Verify SOLIDWORKS PDM Professional version is 5.3 or higher</span><br>
|
|
<span style="color:blue;">Try</span><br>
|
|
<br>
|
|
<span style="color:blue;">Dim</span> vault2 <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmVault7</span> = <span style="color:blue;">Nothing</span><br>
|
|
<span style="color:blue;">If</span> vault1 <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span><br>
|
|
vault1 = <span style="color:blue;">New</span> <span style="color:#2b91af;">EdmVault5</span>()<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
|
vault2 = <span style="color:blue;">DirectCast</span>(vault1, <span style="color:#2b91af;">IEdmVault7</span>)<br>
|
|
<span style="color:blue;">If</span> <span style="color:blue;">Not</span> vault1.<b>IsLoggedIn</b> <span style="color:blue;">Then</span><br>
|
|
vault1.<b>LoginAuto</b>(VaultsComboBox.Text, <span style="color:blue;">Me</span>.Handle.ToInt32())<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
|
<br>
|
|
vault2.<b>VerifyVersion</b>(5, 3)<br>
|
|
<br>
|
|
<span style="color:#2b91af;">MessageBox</span>.Show(<span style="color:#a31515;">"SOLIDWORKS PDM Professional version is at least 5.3"</span>)<br>
|
|
<br>
|
|
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> System.Runtime.InteropServices.<span style="color:#2b91af;">COMException</span><br>
|
|
<span style="color:#2b91af;">MessageBox</span>.Show(<span style="color:#a31515;">"HRESULT = 0x"</span> + ex.ErrorCode.ToString(<span style="color:#a31515;">"X"</span>) + <span style="color:#a31515;">" "</span> + ex.Message)<br>
|
|
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> <span style="color:#2b91af;">Exception</span><br>
|
|
<span style="color:#2b91af;">MessageBox</span>.Show(ex.Message)<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">Try</span><br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span><br>
|
|
<br>
|
|
<span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> Button6_Click(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> System.<span style="color:#2b91af;">Object</span>, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.<span style="color:#2b91af;">EventArgs</span>) <span style="color:blue;">Handles</span> Button6.Click<br>
|
|
<span style="color:green;">'Get licenses</span><br>
|
|
<span style="color:blue;">Try</span><br>
|
|
<br>
|
|
<span style="color:blue;">Dim</span> vault2 <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmVault11</span> = <span style="color:blue;">Nothing</span><br>
|
|
<span style="color:blue;">If</span> vault1 <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span><br>
|
|
vault1 = <span style="color:blue;">New</span> <span style="color:#2b91af;">EdmVault5</span>()<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
|
vault2 = <span style="color:blue;">DirectCast</span>(vault1, <span style="color:#2b91af;">IEdmVault11</span>)<br>
|
|
<span style="color:blue;">If</span> <span style="color:blue;">Not</span> vault1.<b>IsLoggedIn</b> <span style="color:blue;">Then</span><br>
|
|
vault1.<b>LoginAuto</b>(VaultsComboBox.Text, <span style="color:blue;">Me</span>.Handle.ToInt32())<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
|
<br>
|
|
<span style="color:blue;">Dim</span> msg <span style="color:blue;">As</span> <span style="color:blue;">String</span><br>
|
|
msg = <span style="color:#a31515;">"Installed licenses:"</span> + vbLf<br>
|
|
<span style="color:blue;">Dim</span> lics() <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmLicense</span><br>
|
|
lics = <span style="color:blue;">Nothing</span><br>
|
|
vault2.<b>GetLicense</b>(lics)<br>
|
|
<span style="color:blue;">Dim</span> idx <span style="color:blue;">As</span> <span style="color:blue;">Integer</span><br>
|
|
idx = LBound(lics)<br>
|
|
<span style="color:blue;">While</span> (idx <= UBound(lics))<br>
|
|
msg = msg + <span style="color:#a31515;">"Type="</span><br>
|
|
<span style="color:blue;">Select</span> <span style="color:blue;">Case</span> lics(idx).<b>meType</b><br>
|
|
<span style="color:blue;">Case</span> <span style="color:#2b91af;">EdmLicenseType</span>.EdmLic_Editor<br>
|
|
msg = msg + <span style="color:#a31515;">"Editor"</span><br>
|
|
<span style="color:blue;">Case</span> <span style="color:#2b91af;">EdmLicenseType</span>.EdmLic_Contributor<br>
|
|
msg = msg + <span style="color:#a31515;">"Contributor"</span><br>
|
|
<span style="color:blue;">Case</span> <span style="color:#2b91af;">EdmLicenseType</span>.EdmLic_Viewer<br>
|
|
msg = msg + <span style="color:#a31515;">"Viewer"</span><br>
|
|
<span style="color:blue;">Case</span> <span style="color:#2b91af;">EdmLicenseType</span>.EdmLic_Processor<br>
|
|
msg = msg + <span style="color:#a31515;">"Processor"</span><br>
|
|
<span style="color:blue;">Case Else</span><br>
|
|
msg = msg + <span style="color:blue;">CStr</span>(lics(idx).<b>meType</b>)<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">Select</span><br>
|
|
<br>
|
|
msg = msg + <span style="color:#a31515;">" Users="</span> + <span style="color:blue;">CStr</span>(lics(idx).<b>mlUserCount</b>) + vbLf<br>
|
|
idx = idx + 1<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">While</span><br>
|
|
<br>
|
|
vault2.<b>MsgBox</b>(<span style="color:blue;">Me</span>.Handle.ToInt32, msg)<br>
|
|
<br>
|
|
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> System.Runtime.InteropServices.<span style="color:#2b91af;">COMException</span><br>
|
|
<span style="color:#2b91af;">MessageBox</span>.Show(<span style="color:#a31515;">"HRESULT = 0x"</span> + ex.ErrorCode.ToString(<span style="color:#a31515;">"X"</span>) + <span style="color:#a31515;">" "</span> + ex.Message)<br>
|
|
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> <span style="color:#2b91af;">Exception</span><br>
|
|
<span style="color:#2b91af;">MessageBox</span>.Show(ex.Message)<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">Try</span><br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span><br>
|
|
<br>
|
|
<span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> Button7_Click(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> System.<span style="color:#2b91af;">Object</span>, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.<span style="color:#2b91af;">EventArgs</span>) <span style="color:blue;">Handles</span> Button7.Click<br>
|
|
<span style="color:green;">'Add group, My Group</span><br>
|
|
<span style="color:blue;">Try</span><br>
|
|
<br>
|
|
<span style="color:blue;">Dim</span> vault2 <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmVault11</span> = <span style="color:blue;">Nothing</span><br>
|
|
<span style="color:blue;">If</span> vault1 <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span><br>
|
|
vault1 = <span style="color:blue;">New</span> <span style="color:#2b91af;">EdmVault5</span>()<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
|
vault2 = <span style="color:blue;">DirectCast</span>(vault1, <span style="color:#2b91af;">IEdmVault11</span>)<br>
|
|
<span style="color:blue;">If</span> <span style="color:blue;">Not</span> vault1.<b>IsLoggedIn</b> <span style="color:blue;">Then</span><br>
|
|
vault1.<b>LoginAuto</b>(VaultsComboBox.Text, <span style="color:blue;">Me</span>.Handle.ToInt32())<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
|
<br>
|
|
<span style="color:blue;">Dim</span> userMgr <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmUserMgr7</span><br>
|
|
userMgr = vault2.<b>CreateUtility</b>(<span style="color:#2b91af;">EdmUtility</span>.EdmUtil_UserMgr)<br>
|
|
<br>
|
|
<span style="color:blue;">Dim</span> admin <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmUser7</span><br>
|
|
admin = userMgr.<b>GetUser</b>(<span style="color:#a31515;">"Admin"</span>)<br>
|
|
<br>
|
|
<span style="color:blue;">Dim</span> groups(0) <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmGroupData2</span><br>
|
|
groups(0).<b>mbAutoAdd</b> = 0<br>
|
|
groups(0).<b>mbsDescription</b> = <span style="color:#a31515;">"A group created by the API"</span><br>
|
|
groups(0).<b>mbsName</b> = <span style="color:#a31515;">"My Group"</span><br>
|
|
groups(0).<b>mlFlags</b> = <span style="color:#2b91af;">EdmGroupDataFlags</span>.Edmgdf_GetInterface<br>
|
|
<span style="color:blue;">Dim</span> members(0) <span style="color:blue;">As</span> <span style="color:blue;">Integer</span><br>
|
|
members(0) = admin.<b>ID</b><br>
|
|
groups(0).<b>moMembers</b> = members<br>
|
|
<span style="color:blue;">Dim</span> perms(0) <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmSysPerm</span><br>
|
|
perms(0) = <span style="color:#2b91af;">EdmSysPerm</span>.EdmSysPerm_ModifyToolbox<br>
|
|
groups(0).moSysPerms = perms<br>
|
|
<br>
|
|
userMgr.<b>AddGroups2</b>(groups)<br>
|
|
<br>
|
|
<span style="color:blue;">Dim</span> msg <span style="color:blue;">As</span> <span style="color:blue;">String</span><br>
|
|
msg = <span style="color:#a31515;">""</span><br>
|
|
<span style="color:blue;">Dim</span> idx <span style="color:blue;">As</span> <span style="color:blue;">Integer</span><br>
|
|
idx = LBound(groups)<br>
|
|
<span style="color:blue;">While</span> (idx <= UBound(groups))<br>
|
|
<span style="color:blue;">If</span> groups(idx).<b>mhStatus</b> <> 0 <span style="color:blue;">Then</span><br>
|
|
msg = msg & <span style="color:#a31515;">"Error creating group, '"</span> & groups(idx).<b>mbsName</b> & <span style="color:#a31515;">"' - "</span> & vault2.<b>GetErrorMessage</b>(groups(idx).<b>mhStatus</b>) & vbLf<br>
|
|
<span style="color:blue;">Else</span><br>
|
|
msg = msg & <span style="color:#a31515;">"Created group, '"</span> & groups(idx).<b>mpoGroup</b>.<b>Name</b> & <span style="color:#a31515;">"', successfully with ID, "</span> & <span style="color:blue;">CStr</span>(groups(idx).<b>mpoGroup</b>.<b>ID</b>) & vbLf<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
|
idx = idx + 1<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">While</span><br>
|
|
<br>
|
|
vault2.<b>MsgBox</b>(<span style="color:blue;">Me</span>.Handle.ToInt32, msg)<br>
|
|
<br>
|
|
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> System.Runtime.InteropServices.<span style="color:#2b91af;">COMException</span><br>
|
|
<span style="color:#2b91af;">MessageBox</span>.Show(<span style="color:#a31515;">"HRESULT = 0x"</span> + ex.ErrorCode.ToString(<span style="color:#a31515;">"X"</span>) + <span style="color:#a31515;">" "</span> + ex.Message)<br>
|
|
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> <span style="color:#2b91af;">Exception</span><br>
|
|
<span style="color:#2b91af;">MessageBox</span>.Show(ex.Message)<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">Try</span><br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span><br>
|
|
<br>
|
|
<span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> Button8_Click(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> System.<span style="color:#2b91af;">Object</span>, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.<span style="color:#2b91af;">EventArgs</span>) <span style="color:blue;">Handles</span> Button8.Click<br>
|
|
<span style="color:green;">'Remove group, My Group</span><br>
|
|
<span style="color:blue;">Try</span><br>
|
|
<br>
|
|
<span style="color:blue;">Dim</span> vault2 <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmVault7</span> = <span style="color:blue;">Nothing</span><br>
|
|
<span style="color:blue;">If</span> vault1 <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span><br>
|
|
vault1 = <span style="color:blue;">New</span> <span style="color:#2b91af;">EdmVault5</span>()<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
|
vault2 = <span style="color:blue;">DirectCast</span>(vault1, <span style="color:#2b91af;">IEdmVault7</span>)<br>
|
|
<span style="color:blue;">If</span> <span style="color:blue;">Not</span> vault1.<b>IsLoggedIn</b> <span style="color:blue;">Then</span><br>
|
|
vault1.<b>LoginAuto</b>(VaultsComboBox.Text, <span style="color:blue;">Me</span>.Handle.ToInt32())<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
|
<br>
|
|
<span style="color:blue;">Dim</span> userMgr <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmUserMgr7</span><br>
|
|
userMgr = vault2.<b>CreateUtility</b>(<span style="color:#2b91af;">EdmUtility</span>.EdmUtil_UserMgr)<br>
|
|
<span style="color:blue;">Dim</span> group <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmUserGroup6</span><br>
|
|
group = userMgr.<b>GetUserGroup</b>(<span style="color:#a31515;">"My Group"</span>)<br>
|
|
<span style="color:blue;">If</span> group <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span> <span style="color:blue;">Exit Sub</span><br>
|
|
<br>
|
|
<span style="color:blue;">Dim</span> groups(0) <span style="color:blue;">As</span> <span style="color:blue;">Integer</span><br>
|
|
groups(0) = group.<b>ID</b><br>
|
|
userMgr.<b>RemoveGroups</b>(groups)<br>
|
|
<br>
|
|
<span style="color:#2b91af;">MessageBox</span>.Show(<span style="color:#a31515;">"Group, My Group, removed"</span>)<br>
|
|
<br>
|
|
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> System.Runtime.InteropServices.<span style="color:#2b91af;">COMException</span><br>
|
|
<span style="color:#2b91af;">MessageBox</span>.Show(<span style="color:#a31515;">"HRESULT = 0x"</span> + ex.ErrorCode.ToString(<span style="color:#a31515;">"X"</span>) + <span style="color:#a31515;">" "</span> + ex.Message)<br>
|
|
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> <span style="color:#2b91af;">Exception</span><br>
|
|
<span style="color:#2b91af;">MessageBox</span>.Show(ex.Message)<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">Try</span><br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span><br>
|
|
<br>
|
|
<span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> Button9_Click(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> System.<span style="color:#2b91af;">Object</span>, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.<span style="color:#2b91af;">EventArgs</span>) <span style="color:blue;">Handles</span> Button9.Click<br>
|
|
<span style="color:green;">'Add user, Temp</span><br>
|
|
<span style="color:blue;">Try</span><br>
|
|
<br>
|
|
<span style="color:blue;">Dim</span> vault2 <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmVault11</span> = <span style="color:blue;">Nothing</span><br>
|
|
<span style="color:blue;">If</span> vault1 <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span><br>
|
|
vault1 = <span style="color:blue;">New</span> <span style="color:#2b91af;">EdmVault5</span>()<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
|
vault2 = <span style="color:blue;">DirectCast</span>(vault1, <span style="color:#2b91af;">IEdmVault11</span>)<br>
|
|
<span style="color:blue;">If</span> <span style="color:blue;">Not</span> vault1.<b>IsLoggedIn</b> <span style="color:blue;">Then</span><br>
|
|
vault1.<b>LoginAuto</b>(VaultsComboBox.Text, <span style="color:blue;">Me</span>.Handle.ToInt32())<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
|
<br>
|
|
<span style="color:blue;">Dim</span> UsrMgr <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmUserMgr7</span> = vault2<br>
|
|
<span style="color:blue;">Dim</span> UserData(0) <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmUserData2</span><br>
|
|
<br>
|
|
UserData(0).<b>mbsCompleteName</b> = <span style="color:#a31515;">"Temp"</span><br>
|
|
UserData(0).<b>mbsEmail</b> = <span style="color:#a31515;">"Temp"</span><br>
|
|
UserData(0).<b>mbsInitials</b> = <span style="color:#a31515;">"TJ"</span><br>
|
|
UserData(0).<b>mbsUserName</b> = <span style="color:#a31515;">"Temp"</span><br>
|
|
UserData(0).<b>mlFlags</b> = _<br>
|
|
<span style="color:#2b91af;">EdmUserDataFlags</span>.Edmudf_GetInterface<br>
|
|
UserData(0).<b>mlFlags</b> += _<br>
|
|
<span style="color:#2b91af;">EdmUserDataFlags</span>.Edmudf_ForceAdd<br>
|
|
<span style="color:blue;">Dim</span> perms(2) <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmSysPerm</span><br>
|
|
perms(0) = <span style="color:#2b91af;">EdmSysPerm</span>.EdmSysPerm_EditUserMgr<br>
|
|
perms(1) = <span style="color:#2b91af;">EdmSysPerm</span>.EdmSysPerm_EditReportQuery<br>
|
|
perms(2) = <span style="color:#2b91af;">EdmSysPerm</span>.EdmSysPerm_MandatoryVersionComments<br>
|
|
UserData(0).<b>moSysPerms</b> = perms<br>
|
|
<br>
|
|
UsrMgr.<b>AddUsers2</b>(UserData)<br>
|
|
<br>
|
|
<span style="color:blue;">Dim</span> msg <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:#a31515;">""</span><br>
|
|
<span style="color:blue;">For</span> <span style="color:blue;">Each</span> usr <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmUserData2</span> <span style="color:blue;">In</span> UserData<br>
|
|
<span style="color:blue;">If</span> usr.<b>mhStatus</b> = 0 <span style="color:blue;">Then</span><br>
|
|
msg += <span style="color:#a31515;">"Created user, """</span> + usr.<b>mpoUser</b>.<b>Name</b> _<br>
|
|
+ <span style="color:#a31515;">""", successfully with ID, "</span> _<br>
|
|
+ usr.<b>mpoUser</b>.<b>ID</b>.ToString() + vbCrLf<br>
|
|
<span style="color:blue;">Else</span><br>
|
|
msg &= <span style="color:#a31515;">"Error creating user, """</span> _<br>
|
|
& usr.<b>mbsUserName</b> & <span style="color:#a31515;">""" - "</span> _<br>
|
|
& vault2.<b>GetErrorMessage</b>(usr.<b>mhStatus</b>) & vbCrLf<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
|
<span style="color:blue;">Next</span><br>
|
|
<span style="color:#2b91af;">MessageBox</span>.Show(msg)<br>
|
|
<br>
|
|
<br>
|
|
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> System.Runtime.InteropServices.<span style="color:#2b91af;">COMException</span><br>
|
|
<span style="color:#2b91af;">MessageBox</span>.Show(<span style="color:#a31515;">"HRESULT = 0x"</span> + ex.ErrorCode.ToString(<span style="color:#a31515;">"X"</span>) + <span style="color:#a31515;">" "</span> + ex.Message)<br>
|
|
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> <span style="color:#2b91af;">Exception</span><br>
|
|
<span style="color:#2b91af;">MessageBox</span>.Show(ex.Message)<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">Try</span><br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span><br>
|
|
<br>
|
|
<span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> Button10_Click(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> System.<span style="color:#2b91af;">Object</span>, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.<span style="color:#2b91af;">EventArgs</span>) <span style="color:blue;">Handles</span> Button10.Click<br>
|
|
<span style="color:green;">'Remove user, Temp</span><br>
|
|
<span style="color:blue;">Try</span><br>
|
|
<br>
|
|
<span style="color:blue;">Dim</span> vault2 <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmVault7</span> = <span style="color:blue;">Nothing</span><br>
|
|
<span style="color:blue;">If</span> vault1 <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span><br>
|
|
vault1 = <span style="color:blue;">New</span> <span style="color:#2b91af;">EdmVault5</span>()<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
|
vault2 = <span style="color:blue;">DirectCast</span>(vault1, <span style="color:#2b91af;">IEdmVault7</span>)<br>
|
|
<span style="color:blue;">If</span> <span style="color:blue;">Not</span> vault1.<b>IsLoggedIn</b> <span style="color:blue;">Then</span><br>
|
|
vault1.<b>LoginAuto</b>(VaultsComboBox.Text, <span style="color:blue;">Me</span>.Handle.ToInt32())<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
|
<br>
|
|
<span style="color:blue;">Dim</span> userMgr <span style="color:blue;">As</span> <span style="color: #2b91af; font-weight: 700">IEdmUserMgr7</span><br>
|
|
userMgr = vault2.<b>CreateUtility</b>(<span style="color:#2b91af;">EdmUtility</span>.EdmUtil_UserMgr)<br>
|
|
<span style="color:blue;">Dim</span> user <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmUser7</span><br>
|
|
user = userMgr.<b>GetUser</b>(<span style="color:#a31515;">"Temp"</span>)<br>
|
|
<span style="color:blue;">If</span> user <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span> <span style="color:blue;">Exit Sub</span><br>
|
|
<br>
|
|
<span style="color:blue;">Dim</span> users(0) <span style="color:blue;">As</span> <span style="color:blue;">Integer</span><br>
|
|
users(0) = user.<b>ID</b><br>
|
|
userMgr.<b>RemoveUsers</b>(users)<br>
|
|
<br>
|
|
<span style="color:#2b91af;">MessageBox</span>.Show(<span style="color:#a31515;">"User, Temp, removed"</span>)<br>
|
|
<br>
|
|
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> System.Runtime.InteropServices.<span style="color:#2b91af;">COMException</span><br>
|
|
<span style="color:#2b91af;">MessageBox</span>.Show(<span style="color:#a31515;">"HRESULT = 0x"</span> + ex.ErrorCode.ToString(<span style="color:#a31515;">"X"</span>) + <span style="color:#a31515;">" "</span> + ex.Message)<br>
|
|
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> <span style="color:#2b91af;">Exception</span><br>
|
|
<span style="color:#2b91af;">MessageBox</span>.Show(ex.Message)<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">Try</span><br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span><br>
|
|
<br>
|
|
<span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> Button4_Click(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> System.<span style="color:#2b91af;">Object</span>, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.<span style="color:#2b91af;">EventArgs</span>) <span style="color:blue;">Handles</span> Button4.Click<br>
|
|
<span style="color:green;">'Get user's check-out permission for a file</span><br>
|
|
<span style="color:blue;">Try</span><br>
|
|
<br>
|
|
<span style="color:blue;">Dim</span> vault2 <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmVault7</span> = <span style="color:blue;">Nothing</span><br>
|
|
<span style="color:blue;">If</span> vault1 <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span><br>
|
|
vault1 = <span style="color:blue;">New</span> <span style="color:#2b91af;">EdmVault5</span>()<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
|
vault2 = <span style="color:blue;">DirectCast</span>(vault1, <span style="color:#2b91af;">IEdmVault7</span>)<br>
|
|
<span style="color:blue;">If</span> <span style="color:blue;">Not</span> vault1.<b>IsLoggedIn</b> <span style="color:blue;">Then</span><br>
|
|
vault1.<b>LoginAuto</b>(VaultsComboBox.Text, <span style="color:blue;">Me</span>.Handle.ToInt32())<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
|
<br>
|
|
<span style="color:blue;">Dim</span> pathList <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmStrLst5</span><br>
|
|
pathList = vault2.<b>BrowseForFile</b>(<span style="color:blue;">Me</span>.Handle.ToInt32(), <span style="color:#2b91af;">EdmBrowseFlag</span>.EdmBws_ForOpen + <span style="color:#2b91af;">EdmBrowseFlag</span>.EdmBws_PermitVaultFiles)<br>
|
|
<span style="color:blue;">If</span> pathList <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span> <span style="color:blue;">Exit Sub</span><br>
|
|
<br>
|
|
<span style="color:blue;">Dim</span> file <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmFile5</span><br>
|
|
<span style="color:blue;">Dim</span> srcFolder <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmFolder5</span> = <span style="color:blue;">Nothing</span><br>
|
|
file = vault2.<b>GetFileFromPath</b>(pathList.<b>GetNext</b>(pathList.<b>GetHeadPosition</b>), srcFolder)<br>
|
|
<br>
|
|
<span style="color:blue;">If</span> srcFolder.<b>HasRightsEx</b>(<span style="color:#2b91af;">EdmRightFlags</span>.EdmRight_Lock, file.<b>ID</b>) <span style="color:blue;">Then</span><br>
|
|
MsgBox(<span style="color:#a31515;">"User can check out this file"</span>)<br>
|
|
<span style="color:blue;">Else</span><br>
|
|
MsgBox(<span style="color:#a31515;">"User does not have check-out permission"</span>)<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
|
<br>
|
|
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> System.Runtime.InteropServices.<span style="color:#2b91af;">COMException</span><br>
|
|
<span style="color:#2b91af;">MessageBox</span>.Show(<span style="color:#a31515;">"HRESULT = 0x"</span> + ex.ErrorCode.ToString(<span style="color:#a31515;">"X"</span>) + <span style="color:#a31515;">" "</span> + ex.Message)<br>
|
|
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> <span style="color:#2b91af;">Exception</span><br>
|
|
<span style="color:#2b91af;">MessageBox</span>.Show(ex.Message)<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">Try</span><br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span><br>
|
|
<br>
|
|
<span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> Button1_Click(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> System.<span style="color:#2b91af;">Object</span>, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.<span style="color:#2b91af;">EventArgs</span>) <span style="color:blue;">Handles</span> Button1.Click<br>
|
|
<span style="color:green;">'Copy file</span><br>
|
|
<span style="color:blue;">Try</span><br>
|
|
<br>
|
|
<span style="color:blue;">Dim</span> vault2 <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmVault7</span> = <span style="color:blue;">Nothing</span><br>
|
|
<span style="color:blue;">If</span> vault1 <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span><br>
|
|
vault1 = <span style="color:blue;">New</span> <span style="color:#2b91af;">EdmVault5</span>()<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
|
vault2 = <span style="color:blue;">DirectCast</span>(vault1, <span style="color:#2b91af;">IEdmVault7</span>)<br>
|
|
<span style="color:blue;">If</span> <span style="color:blue;">Not</span> vault1.<b>IsLoggedIn</b> <span style="color:blue;">Then</span><br>
|
|
vault1.<b>LoginAuto</b>(VaultsComboBox.Text, <span style="color:blue;">Me</span>.Handle.ToInt32())<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
|
<br>
|
|
<span style="color:blue;">Dim</span> pathList <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmStrLst5</span><br>
|
|
pathList = vault2.<b>BrowseForFile</b>(<span style="color:blue;">Me</span>.Handle.ToInt32(), <span style="color:#2b91af;">EdmBrowseFlag</span>.EdmBws_ForOpen + <span style="color:#2b91af;">EdmBrowseFlag</span>.EdmBws_PermitVaultFiles)<br>
|
|
<span style="color:blue;">If</span> pathList <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span> <span style="color:blue;">Exit Sub</span><br>
|
|
<br>
|
|
<span style="color:blue;">Dim</span> file <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmFile5</span><br>
|
|
<span style="color:blue;">Dim</span> srcFolder <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmFolder5</span> = <span style="color:blue;">Nothing</span><br>
|
|
file = vault2.<b>GetFileFromPath</b>(pathList.<b>GetNext</b>(pathList.<b>GetHeadPosition</b>), srcFolder)<br>
|
|
<br>
|
|
<span style="color:blue;">Dim</span> destFolder <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmFolder5</span><br>
|
|
destFolder = vault2.<b>BrowseForFolder</b>(<span style="color:blue;">Me</span>.Handle.ToInt32(), <span style="color:#a31515;">"Select destination folder:"</span>)<br>
|
|
<span style="color:blue;">If</span> destFolder <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span> <span style="color:blue;">Exit Sub</span><br>
|
|
<br>
|
|
<span style="color:blue;">Dim</span> fileID <span style="color:blue;">As</span> <span style="color:blue;">Integer</span><br>
|
|
fileID = destFolder.<b>CopyFile</b>(file.<b>ID</b>, srcFolder.<b>ID</b>, <span style="color:blue;">Me</span>.Handle.ToInt32(), <span style="color:#a31515;">""</span>, <span style="color:#2b91af;">EdmCopyFlag</span>.EdmCpy_Simple)<br>
|
|
MsgBox(<span style="color:#a31515;">"Copied file successfully to new file with ID, "</span> & fileID)<br>
|
|
<br>
|
|
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> System.Runtime.InteropServices.<span style="color:#2b91af;">COMException</span><br>
|
|
<span style="color:#2b91af;">MessageBox</span>.Show(<span style="color:#a31515;">"HRESULT = 0x"</span> + ex.ErrorCode.ToString(<span style="color:#a31515;">"X"</span>) + <span style="color:#a31515;">" "</span> + ex.Message)<br>
|
|
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> <span style="color:#2b91af;">Exception</span><br>
|
|
<span style="color:#2b91af;">MessageBox</span>.Show(ex.Message)<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">Try</span><br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span><br>
|
|
<br>
|
|
<span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> Button2_Click(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> System.<span style="color:#2b91af;">Object</span>, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.<span style="color:#2b91af;">EventArgs</span>) <span style="color:blue;">Handles</span> Button2.Click<br>
|
|
<span style="color:green;">'Delete file</span><br>
|
|
<span style="color:blue;">Try</span><br>
|
|
<br>
|
|
<span style="color:blue;">Dim</span> vault2 <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmVault7</span> = <span style="color:blue;">Nothing</span><br>
|
|
<span style="color:blue;">If</span> vault1 <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span><br>
|
|
vault1 = <span style="color:blue;">New</span> <span style="color:#2b91af;">EdmVault5</span>()<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
|
vault2 = <span style="color:blue;">DirectCast</span>(vault1, <span style="color:#2b91af;">IEdmVault7</span>)<br>
|
|
<span style="color:blue;">If</span> <span style="color:blue;">Not</span> vault1.<b>IsLoggedIn</b> <span style="color:blue;">Then</span><br>
|
|
vault1.<b>LoginAuto</b>(VaultsComboBox.Text, <span style="color:blue;">Me</span>.Handle.ToInt32())<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
|
<br>
|
|
<span style="color:blue;">Dim</span> pathList <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmStrLst5</span><br>
|
|
pathList = vault2.<b>BrowseForFile</b>(<span style="color:blue;">Me</span>.Handle.ToInt32(), _ <br>
|
|
<span style="color:#2b91af;">EdmBrowseFlag</span>.EdmBws_ForOpen + _ <br>
|
|
<span style="color:#2b91af;">EdmBrowseFlag</span>.EdmBws_PermitVaultFiles + _ <br>
|
|
<span style="color:#2b91af;">EdmBrowseFlag</span>.EdmBws_PermitMultipleSel, _ <br>
|
|
<span style="color:#a31515;">""</span>, <span style="color:#a31515;">""</span>, <span style="color:#a31515;">""</span>, <span style="color:#a31515;">""</span>, _<br>
|
|
<span style="color:#a31515;">"Select Files to Delete"</span>)<br>
|
|
<span style="color:blue;">If</span> pathList <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span> <span style="color:blue;">Exit Sub</span><br>
|
|
<br>
|
|
<span style="color:blue;">Dim</span> pos <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmPos5</span><br>
|
|
pos = pathList.<b>GetHeadPosition</b><br>
|
|
<span style="color:blue;">While</span> <span style="color:blue;">Not</span> pos.<b>IsNull</b><br>
|
|
<span style="color:blue;">Dim</span> file <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmFile5</span><br>
|
|
<span style="color:blue;">Dim</span> folder <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmFolder5</span> = <span style="color:blue;">Nothing</span><br>
|
|
file = vault2.<b>GetFileFromPath</b>(pathList.<b>GetNext</b>(pos), folder)<br>
|
|
folder.<b>DeleteFile</b>(<span style="color:blue;">Me</span>.Handle.ToInt32(), file.<b>ID</b>)<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">While</span><br>
|
|
<br>
|
|
<span style="color:blue;">Dim</span> strCount <span style="color:blue;">As</span> <span style="color:blue;">String</span><br>
|
|
strCount = pathList.<b>Count</b>.ToString<br>
|
|
<span style="color:#2b91af;">MessageBox</span>.Show(<span style="color:#a31515;">"Deleted "</span> + strCount + <span style="color:#a31515;">" file"</span>)<br>
|
|
<br>
|
|
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> System.Runtime.InteropServices.<span style="color:#2b91af;">COMException</span><br>
|
|
<span style="color:#2b91af;">MessageBox</span>.Show(<span style="color:#a31515;">"HRESULT = 0x"</span> + ex.ErrorCode.ToString(<span style="color:#a31515;">"X"</span>) + <span style="color:#a31515;">" "</span> + ex.Message)<br>
|
|
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> <span style="color:#2b91af;">Exception</span><br>
|
|
<span style="color:#2b91af;">MessageBox</span>.Show(ex.Message)<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">Try</span><br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span><br>
|
|
<br>
|
|
<span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> Button3_Click(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> System.<span style="color:#2b91af;">Object</span>, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.<span style="color:#2b91af;">EventArgs</span>) <span style="color:blue;">Handles</span> Button3.Click<br>
|
|
<span style="color:green;">'Delete folder</span><br>
|
|
<span style="color:blue;">Try</span><br>
|
|
<br>
|
|
<span style="color:blue;">Dim</span> vault2 <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmVault7</span> = <span style="color:blue;">Nothing</span><br>
|
|
<span style="color:blue;">If</span> vault1 <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span><br>
|
|
vault1 = <span style="color:blue;">New</span> <span style="color:#2b91af;">EdmVault5</span>()<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
|
vault2 = <span style="color:blue;">DirectCast</span>(vault1, <span style="color:#2b91af;">IEdmVault7</span>)<br>
|
|
<span style="color:blue;">If</span> <span style="color:blue;">Not</span> vault1.<b>IsLoggedIn</b> <span style="color:blue;">Then</span><br>
|
|
vault1.<b>LoginAuto</b>(VaultsComboBox.Text, <span style="color:blue;">Me</span>.Handle.ToInt32())<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
|
<br>
|
|
<span style="color:blue;">Dim</span> folder <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmFolder5</span><br>
|
|
folder = vault2.<b>BrowseForFolder</b>(<span style="color:blue;">Me</span>.Handle.ToInt32(), <span style="color:#a31515;">"Select folder to delete:"</span>)<br>
|
|
<span style="color:blue;">If</span> folder <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span> <span style="color:blue;">Exit Sub</span><br>
|
|
<br>
|
|
<span style="color:blue;">Dim</span> parentFolder <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmFolder5</span><br>
|
|
parentFolder = folder.<b>ParentFolder</b><br>
|
|
<br>
|
|
<span style="color:blue;">If</span> parentFolder <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span><br>
|
|
MsgBox(<span style="color:#a31515;">"You cannot delete the vault root folder"</span>)<br>
|
|
<span style="color:blue;">Exit Sub</span><br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
|
<br>
|
|
parentFolder.<b>DeleteFolder</b>(<span style="color:blue;">Me</span>.Handle.ToInt32(), folder.<b>ID</b>)<br>
|
|
<br>
|
|
<span style="color:#2b91af;">MessageBox</span>.Show(folder.<b>Name</b> & <span style="color:#a31515;">" deleted"</span>)<br>
|
|
<br>
|
|
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> System.Runtime.InteropServices.<span style="color:#2b91af;">COMException</span><br>
|
|
<span style="color:#2b91af;">MessageBox</span>.Show(<span style="color:#a31515;">"HRESULT = 0x"</span> + ex.ErrorCode.ToString(<span style="color:#a31515;">"X"</span>) + <span style="color:#a31515;">" "</span> + ex.Message)<br>
|
|
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> <span style="color:#2b91af;">Exception</span><br>
|
|
<span style="color:#2b91af;">MessageBox</span>.Show(ex.Message)<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">Try</span><br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">Sub<br>
|
|
</span></p>
|
|
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE">
|
|
<span style="color:blue;"> Private</span> <span style="color:blue;">Sub</span> Button11_Click(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> System.<span style="color:#2b91af;">Object</span>, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.<span style="color:#2b91af;">EventArgs</span>) <span style="color:blue;">Handles</span> Button11.Click<br>
|
|
<span style="color:green;">'Restore folder</span><br>
|
|
<span style="color:blue;">Try</span><br>
|
|
<br>
|
|
<span style="color:blue;">Dim</span> vault2 <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmVault7</span> = <span style="color:blue;">Nothing</span><br>
|
|
<span style="color:blue;">If</span> vault1 <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span><br>
|
|
vault1 = <span style="color:blue;">New</span> <span style="color:#2b91af;">EdmVault5</span>()<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
|
vault2 = <span style="color:blue;">DirectCast</span>(vault1, <span style="color:#2b91af;">IEdmVault7</span>)<br>
|
|
<span style="color:blue;">If</span> <span style="color:blue;">Not</span> vault1.<b>IsLoggedIn</b> <span style="color:blue;">Then</span><br>
|
|
vault1.<b>LoginAuto</b>(VaultsComboBox.Text, <span style="color:blue;">Me</span>.Handle.ToInt32())<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
|
<br>
|
|
<span style="color:blue;">Dim</span> folder <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmFolder11</span><br>
|
|
folder = vault2.<b>BrowseForFolder</b>(<span style="color:blue;">Me</span>.Handle.ToInt32(), <span style="color:#a31515;">"Select folder to restore:"</span>)<br>
|
|
<span style="color:blue;">If</span> folder <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span> <span style="color:blue;">Exit</span> <span style="color:blue;">Sub</span><br>
|
|
<br>
|
|
<span style="color:blue;">Dim</span> arrayEdmDeletedItems() <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmDeletedItems</span> = <span style="color:blue;">Nothing</span><br>
|
|
<br>
|
|
folder.<b>GetDeletedItems</b>(arrayEdmDeletedItems, <span style="color:blue;">True</span>)<br>
|
|
folder.<b>RecoverDeletedItems</b>(arrayEdmDeletedItems)<br>
|
|
<br>
|
|
<span style="color:#2b91af;">MessageBox</span>.Show(folder.<b>Name</b> & <span style="color:#a31515;">" restored"</span>)<br>
|
|
<br>
|
|
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> System.Runtime.InteropServices.<span style="color:#2b91af;">COMException</span><br>
|
|
<span style="color:#2b91af;">MessageBox</span>.Show(<span style="color:#a31515;">"HRESULT = 0x"</span> + ex.ErrorCode.ToString(<span style="color:#a31515;">"X"</span>) + <span style="color:#a31515;">" "</span> + ex.Message)<br>
|
|
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> <span style="color:#2b91af;">Exception</span><br>
|
|
<span style="color:#2b91af;">MessageBox</span>.Show(ex.Message)<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">Try</span><br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p>
|
|
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE">
|
|
<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">Class</span></p>
|
|
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE" align="center">
|
|
<a href="#top">Back to top</a> </p>
|
|
<p style="font-family: Courier New; font-size: 13; color: #008000; background: white" class="APICODE">
|
|
<a name="form1designer"></a>'Form1.Designer.vb</p>
|
|
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE">
|
|
<<span style="color:blue;">Global</span>.Microsoft.VisualBasic.CompilerServices.<span style="color:#2b91af;">DesignerGenerated</span>()> _<br>
|
|
<span style="color:blue;">Partial</span> <span style="color:blue;">Class</span> <span style="color:#2b91af;">Form1</span><br>
|
|
<span style="color:blue;">Inherits</span> System.Windows.Forms.<span style="color:#2b91af;">Form</span><br>
|
|
<span style="color:green;">''' <summary></span><br>
|
|
<span style="color:green;">''' Required designer variable.</span><br>
|
|
<span style="color:green;">''' </summary></span><br>
|
|
<span style="color:blue;">Private</span> components <span style="color:blue;">As</span> System.ComponentModel.<span style="color:#2b91af;">IContainer</span> = <span style="color:blue;">Nothing</span><br>
|
|
<br>
|
|
<span style="color:green;">''' <summary></span><br>
|
|
<span style="color:green;">''' Clean up any resources being used.</span><br>
|
|
<span style="color:green;">''' </summary></span><br>
|
|
<span style="color:green;">''' <param name="disposing">true if managed resources should be disposed; otherwise, false.</param></span><br>
|
|
<span style="color:blue;">Protected</span> <span style="color:blue;">Overrides</span> <span style="color:blue;">Sub</span> Dispose(<span style="color:blue;">ByVal</span> disposing <span style="color:blue;">As</span> <span style="color:blue;">Boolean</span>)<br>
|
|
<span style="color:blue;">If</span> disposing <span style="color:blue;">AndAlso</span> (components <span style="color:blue;">IsNot</span> <span style="color:blue;">Nothing</span>) <span style="color:blue;">Then</span><br>
|
|
components.Dispose()<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
|
<span style="color:blue;">MyBase</span>.Dispose(disposing)<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span><br>
|
|
<br>
|
|
<span style="color:blue;">#Region</span> <span style="color:#a31515;">"Windows Form Designer generated code"</span><br>
|
|
<br>
|
|
<span style="color:green;">''' <summary></span><br>
|
|
<span style="color:green;">''' Required method for Designer support - do not modify</span><br>
|
|
<span style="color:green;">''' the contents of this method with the code editor.</span><br>
|
|
<span style="color:green;">''' </summary></span><br>
|
|
<span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> InitializeComponent()<br>
|
|
<span style="color:blue;">Me</span>.VaultsLabel = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Label</span>()<br>
|
|
<span style="color:blue;">Me</span>.VaultsComboBox = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">ComboBox</span>()<br>
|
|
<span style="color:blue;">Me</span>.Button1 = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span>()<br>
|
|
<span style="color:blue;">Me</span>.Button2 = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span>()<br>
|
|
<span style="color:blue;">Me</span>.Button3 = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span>()<br>
|
|
<span style="color:blue;">Me</span>.Button4 = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span>()<br>
|
|
<span style="color:blue;">Me</span>.Button5 = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span>()<br>
|
|
<span style="color:blue;">Me</span>.Button6 = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span>()<br>
|
|
<span style="color:blue;">Me</span>.Button7 = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span>()<br>
|
|
<span style="color:blue;">Me</span>.Button8 = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span>()<br>
|
|
<span style="color:blue;">Me</span>.Button9 = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span>()<br>
|
|
<span style="color:blue;">Me</span>.Button10 = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span>()</p>
|
|
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE">
|
|
<span style="color:blue;"> Me</span>.Button11 = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span>()<br>
|
|
</p>
|
|
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE">
|
|
<br>
|
|
<span style="color:blue;">Me</span>.OpenFileDialog1 = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">OpenFileDialog</span>()<br>
|
|
<span style="color:blue;">Me</span>.SuspendLayout()<br>
|
|
<span style="color:green;">'</span><br>
|
|
<span style="color:green;">'VaultsLabel</span><br>
|
|
<span style="color:green;">'</span><br>
|
|
<span style="color:blue;">Me</span>.VaultsLabel.AutoSize = <span style="color:blue;">True</span><br>
|
|
<span style="color:blue;">Me</span>.VaultsLabel.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(13, 26)<br>
|
|
<span style="color:blue;">Me</span>.VaultsLabel.Name = <span style="color:#a31515;">"VaultsLabel"</span><br>
|
|
<span style="color:blue;">Me</span>.VaultsLabel.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(94, 13)<br>
|
|
<span style="color:blue;">Me</span>.VaultsLabel.TabIndex = 0<br>
|
|
<span style="color:blue;">Me</span>.VaultsLabel.Text = <span style="color:#a31515;">" Select vault view:"</span><br>
|
|
<span style="color:green;">'</span><br>
|
|
<span style="color:green;">'VaultsComboBox</span><br>
|
|
<span style="color:green;">'</span><br>
|
|
<span style="color:blue;">Me</span>.VaultsComboBox.FormattingEnabled = <span style="color:blue;">True</span><br>
|
|
<span style="color:blue;">Me</span>.VaultsComboBox.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(16, 42)<br>
|
|
<span style="color:blue;">Me</span>.VaultsComboBox.Name = <span style="color:#a31515;">"VaultsComboBox"</span><br>
|
|
<span style="color:blue;">Me</span>.VaultsComboBox.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(121, 21)<br>
|
|
<span style="color:blue;">Me</span>.VaultsComboBox.TabIndex = 1<br>
|
|
<span style="color:green;">'</span><br>
|
|
<span style="color:green;">'Button1</span><br>
|
|
<span style="color:green;">'</span><br>
|
|
<span style="color:blue;">Me</span>.Button1.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(16, 223)<br>
|
|
<span style="color:blue;">Me</span>.Button1.Name = <span style="color:#a31515;">"Button1"</span><br>
|
|
<span style="color:blue;">Me</span>.Button1.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(91, 23)<br>
|
|
<span style="color:blue;">Me</span>.Button1.TabIndex = 6<br>
|
|
<span style="color:blue;">Me</span>.Button1.Text = <span style="color:#a31515;">"Copy file..."</span><br>
|
|
<span style="color:blue;">Me</span>.Button1.UseVisualStyleBackColor = <span style="color:blue;">True</span><br>
|
|
<span style="color:green;">'</span><br>
|
|
<span style="color:green;">'Button2</span><br>
|
|
<span style="color:green;">'</span><br>
|
|
<span style="color:blue;">Me</span>.Button2.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(113, 223)<br>
|
|
<span style="color:blue;">Me</span>.Button2.Name = <span style="color:#a31515;">"Button2"</span><br>
|
|
<span style="color:blue;">Me</span>.Button2.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(96, 23)<br>
|
|
<span style="color:blue;">Me</span>.Button2.TabIndex = 7<br>
|
|
<span style="color:blue;">Me</span>.Button2.Text = <span style="color:#a31515;">"Delete file..."</span><br>
|
|
<span style="color:blue;">Me</span>.Button2.UseVisualStyleBackColor = <span style="color:blue;">True</span><br>
|
|
<span style="color:green;">'</span><br>
|
|
<span style="color:green;">'Button3</span><br>
|
|
<span style="color:green;">'</span><br>
|
|
<span style="color:blue;">Me</span>.Button3.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(69, 281)<br>
|
|
<span style="color:blue;">Me</span>.Button3.Name = <span style="color:#a31515;">"Button3"</span><br>
|
|
<span style="color:blue;">Me</span>.Button3.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(96, 23)<br>
|
|
<span style="color:blue;">Me</span>.Button3.TabIndex = 8<br>
|
|
<span style="color:blue;">Me</span>.Button3.Text = <span style="color:#a31515;">"Delete folder..."</span><br>
|
|
<span style="color:blue;">Me</span>.Button3.UseVisualStyleBackColor = <span style="color:blue;">True</span><br>
|
|
<span style="color:green;">'</span><br>
|
|
<span style="color:green;">'Button4</span><br>
|
|
<span style="color:green;">'</span><br>
|
|
<span style="color:blue;">Me</span>.Button4.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(43, 252)<br>
|
|
<span style="color:blue;">Me</span>.Button4.Name = <span style="color:#a31515;">"Button4"</span><br>
|
|
<span style="color:blue;">Me</span>.Button4.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(156, 23)<br>
|
|
<span style="color:blue;">Me</span>.Button4.TabIndex = 9<br>
|
|
<span style="color:blue;">Me</span>.Button4.Text = <span style="color:#a31515;">"Check-out permission..."</span><br>
|
|
<span style="color:blue;">Me</span>.Button4.UseVisualStyleBackColor = <span style="color:blue;">True</span><br>
|
|
<span style="color:green;">'</span><br>
|
|
<span style="color:green;">'Button5</span><br>
|
|
<span style="color:green;">'</span><br>
|
|
<span style="color:blue;">Me</span>.Button5.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(16, 83)<br>
|
|
<span style="color:blue;">Me</span>.Button5.Name = <span style="color:#a31515;">"Button5"</span><br>
|
|
<span style="color:blue;">Me</span>.Button5.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(233, 23)<br>
|
|
<span style="color:blue;">Me</span>.Button5.TabIndex = 10<br>
|
|
<span style="color:blue;">Me</span>.Button5.Text = <span style="color:#a31515;">"Verify SOLIDWORKS PDM Professional 5.3"</span><br>
|
|
<span style="color:blue;">Me</span>.Button5.UseVisualStyleBackColor = <span style="color:blue;">True</span><br>
|
|
<span style="color:green;">'</span><br>
|
|
<span style="color:green;">'Button6</span><br>
|
|
<span style="color:green;">'</span><br>
|
|
<span style="color:blue;">Me</span>.Button6.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(16, 121)<br>
|
|
<span style="color:blue;">Me</span>.Button6.Name = <span style="color:#a31515;">"Button6"</span><br>
|
|
<span style="color:blue;">Me</span>.Button6.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(233, 23)<br>
|
|
<span style="color:blue;">Me</span>.Button6.TabIndex = 11<br>
|
|
<span style="color:blue;">Me</span>.Button6.Text = <span style="color:#a31515;">"Get SOLIDWORKS PDM Professional licenses"</span><br>
|
|
<span style="color:blue;">Me</span>.Button6.UseVisualStyleBackColor = <span style="color:blue;">True</span><br>
|
|
<span style="color:green;">'</span><br>
|
|
<span style="color:green;">'Button7</span><br>
|
|
<span style="color:green;">'</span><br>
|
|
<span style="color:blue;">Me</span>.Button7.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(16, 165)<br>
|
|
<span style="color:blue;">Me</span>.Button7.Name = <span style="color:#a31515;">"Button7"</span><br>
|
|
<span style="color:blue;">Me</span>.Button7.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(91, 23)<br>
|
|
<span style="color:blue;">Me</span>.Button7.TabIndex = 12<br>
|
|
<span style="color:blue;">Me</span>.Button7.Text = <span style="color:#a31515;">"Add group"</span><br>
|
|
<span style="color:blue;">Me</span>.Button7.UseVisualStyleBackColor = <span style="color:blue;">True</span><br>
|
|
<span style="color:green;">'</span><br>
|
|
<span style="color:green;">'Button8</span><br>
|
|
<span style="color:green;">'</span><br>
|
|
<span style="color:blue;">Me</span>.Button8.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(16, 194)<br>
|
|
<span style="color:blue;">Me</span>.Button8.Name = <span style="color:#a31515;">"Button8"</span><br>
|
|
<span style="color:blue;">Me</span>.Button8.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(91, 23)<br>
|
|
<span style="color:blue;">Me</span>.Button8.TabIndex = 13<br>
|
|
<span style="color:blue;">Me</span>.Button8.Text = <span style="color:#a31515;">"Remove group"</span><br>
|
|
<span style="color:blue;">Me</span>.Button8.UseVisualStyleBackColor = <span style="color:blue;">True</span><br>
|
|
<span style="color:green;">'</span><br>
|
|
<span style="color:green;">'Button9</span><br>
|
|
<span style="color:green;">'</span><br>
|
|
<span style="color:blue;">Me</span>.Button9.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(113, 165)<br>
|
|
<span style="color:blue;">Me</span>.Button9.Name = <span style="color:#a31515;">"Button9"</span><br>
|
|
<span style="color:blue;">Me</span>.Button9.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(96, 23)<br>
|
|
<span style="color:blue;">Me</span>.Button9.TabIndex = 14<br>
|
|
<span style="color:blue;">Me</span>.Button9.Text = <span style="color:#a31515;">"Add user"</span><br>
|
|
<span style="color:blue;">Me</span>.Button9.UseVisualStyleBackColor = <span style="color:blue;">True</span><br>
|
|
<span style="color:green;">'</span><br>
|
|
<span style="color:green;">'Button10</span><br>
|
|
<span style="color:green;">'</span><br>
|
|
<span style="color:blue;">Me</span>.Button10.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(113, 194)<br>
|
|
<span style="color:blue;">Me</span>.Button10.Name = <span style="color:#a31515;">"Button10"</span><br>
|
|
<span style="color:blue;">Me</span>.Button10.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(96, 23)<br>
|
|
<span style="color:blue;">Me</span>.Button10.TabIndex = 15<br>
|
|
<span style="color:blue;">Me</span>.Button10.Text = <span style="color:#a31515;">"Remove user"</span><br>
|
|
<span style="color:blue;">Me</span>.Button10.UseVisualStyleBackColor = <span style="color:blue;">True<br>
|
|
<br>
|
|
</span></p>
|
|
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE">
|
|
<span style="color:green;"> 'Button11</span><br>
|
|
<span style="color:green;">'</span><br>
|
|
<span style="color:blue;">Me</span>.Button11.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(43, 310)<br>
|
|
<span style="color:blue;">Me</span>.Button11.Name = <span style="color:#a31515;">"Button11"</span><br>
|
|
<span style="color:blue;">Me</span>.Button11.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(156, 29)<br>
|
|
<span style="color:blue;">Me</span>.Button11.TabIndex = 16<br>
|
|
<span style="color:blue;">Me</span>.Button11.Text = <span style="color:#a31515;">"Restore deleted items"</span><br>
|
|
<span style="color:blue;">Me</span>.Button11.UseVisualStyleBackColor = <span style="color:blue;">True</span></p>
|
|
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE">
|
|
<br>
|
|
<span style="color:green;">'</span><br>
|
|
<span style="color:green;">'OpenFileDialog1</span><br>
|
|
<span style="color:green;">'</span><br>
|
|
<span style="color:blue;">Me</span>.OpenFileDialog1.FileName = <span style="color:#a31515;">"OpenFileDialog1"</span><br>
|
|
<span style="color:green;">'</span><br>
|
|
<span style="color:green;">'Form1</span><br>
|
|
<span style="color:green;">'</span><br>
|
|
<span style="color:blue;">Me</span>.AutoScaleDimensions = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">SizeF</span>(6.0!, 13.0!)<br>
|
|
<span style="color:blue;">Me</span>.AutoScaleMode = System.Windows.Forms.<span style="color:#2b91af;">AutoScaleMode</span>.Font<br>
|
|
<span style="color:blue;">Me</span>.ClientSize = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(276, 330)</p>
|
|
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE">
|
|
<span style="color:blue;"> Me</span>.Controls.Add(<span style="color:blue;">Me</span>.Button11)<br>
|
|
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.Button10)<br>
|
|
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.Button9)<br>
|
|
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.Button8)<br>
|
|
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.Button7)<br>
|
|
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.Button6)<br>
|
|
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.Button5)<br>
|
|
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.Button4)<br>
|
|
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.Button3)<br>
|
|
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.Button2)<br>
|
|
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.Button1)<br>
|
|
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.VaultsComboBox)<br>
|
|
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.VaultsLabel)<br>
|
|
<span style="color:blue;">Me</span>.Name = <span style="color:#a31515;">"Form1"</span><br>
|
|
<span style="color:blue;">Me</span>.Text = <span style="color:#a31515;">"Vault utilities"</span><br>
|
|
<span style="color:blue;">Me</span>.ResumeLayout(<span style="color:blue;">False</span>)<br>
|
|
<span style="color:blue;">Me</span>.PerformLayout()<br>
|
|
<br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span><br>
|
|
<br>
|
|
<span style="color:blue;">#End</span> <span style="color:blue;">Region</span><br>
|
|
<br>
|
|
<span style="color:blue;">Friend</span> <span style="color:blue;">WithEvents</span> VaultsLabel <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">Label</span><br>
|
|
<span style="color:blue;">Friend</span> <span style="color:blue;">WithEvents</span> VaultsComboBox <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">ComboBox</span><br>
|
|
<span style="color:blue;">Friend</span> <span style="color:blue;">WithEvents</span> Button1 <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span><br>
|
|
<span style="color:blue;">Friend</span> <span style="color:blue;">WithEvents</span> Button2 <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span><br>
|
|
<span style="color:blue;">Friend</span> <span style="color:blue;">WithEvents</span> Button3 <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span><br>
|
|
<span style="color:blue;">Friend</span> <span style="color:blue;">WithEvents</span> Button4 <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span><br>
|
|
<span style="color:blue;">Friend</span> <span style="color:blue;">WithEvents</span> Button5 <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span><br>
|
|
<span style="color:blue;">Friend</span> <span style="color:blue;">WithEvents</span> Button6 <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span><br>
|
|
<span style="color:blue;">Friend</span> <span style="color:blue;">WithEvents</span> Button7 <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span><br>
|
|
<span style="color:blue;">Friend</span> <span style="color:blue;">WithEvents</span> Button8 <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span><br>
|
|
<span style="color:blue;">Friend</span> <span style="color:blue;">WithEvents</span> Button9 <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span><br>
|
|
<span style="color:blue;">Friend</span> <span style="color:blue;">WithEvents</span> Button10 <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span></p>
|
|
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE">
|
|
<span style="color:blue;"> Friend</span> <span style="color:blue;">WithEvents</span> Button11 <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span><br>
|
|
<span style="color:blue;">Friend</span> <span style="color:blue;">WithEvents</span> OpenFileDialog1 <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">OpenFileDialog</span><br>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">Class</span></p>
|
|
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE">
|
|
</p>
|
|
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE">
|
|
</p>
|
|
</font>
|
|
<p align="center"><a href="#top">Back to top</a></p>
|
|
|
|
</body>
|
|
|
|
</html>
|