Dela via

  • Artikel

Copying Items

Topic Last Modified: 2006-06-12

To copy an item from one location to another within the same store, use the Record.CopyRecord method. If you copy a folder, all items and subfolders are also copied. You cannot use the Record.CopyRecord method to copy items from one public store or mailbox store to another.

Example

VBScript

Example

Dim Rec
Dim Info
Dim InfoNT
Dim sUrlRoot
Dim sUrl
Dim sUrlDest
Set Info   = CreateObject("ADSystemInfo")
Set InfoNT = CreateObject("WinNTSystemInfo")

SUrlRoot = "http://" & InfoNT.Computername & "." & Info.DomainDNSName & "/public/"
sUrl     = sUrlRoot & "test_folder/test1.txt"
SurlDest = sUrlRoot & "test_folder2/test1.txt"

copyItem sUrl, sUrlDest, Nothing


Sub copyItem( sUrl, sUrlDest, Conn )

  Dim Rec

 ' Did caller pass a Connection object reference?
 If Not ( VarType(Conn) = vbObject AND TypeName(Conn) = "Connection" ) Then
   Set Conn = CreateObject("ADODB.Connection")
   Conn.Provider = "ExOLEDB.DataSource"
   Conn.Open sUrl
 End If

 Set Rec = CreateObject("ADODB.Record")

 Rec.Open sURL, Conn, adModeReadWrite

 ' Note that if an item already exists at the destination URI,
 ' it will be overwritten by the copy.
 Rec.CopyRecord ,sUrlDest, , , adCopyOverWrite

 ' Close record and connection.
 Rec.Close
 Conn.Close

End Sub

C++

Example

#import <msado15.dll> no_namespace
#import <cdoex.dll> no_namespace

// Variables.
_RecordPtr Rec(__uuidof(Record));
_ConnectionPtr Conn(__uuidof(Connection));
bstr_t urlfrom = "https://server/public/folder/test.eml";
bstr_t urlto = "http:/server/public/folder2/test.eml";

Conn->Provider = "ExOLEDB.DataSource";

// Open connection.
try {
   Conn->Open(urlfrom, bstr_t(""), bstr_t(""),-1);
}
catch(_com_error e) {
   // Handle error or throw.
   throw e;
}

try {
   // Open the record.
   Rec->Open(
            variant_t(urlfrom),
            variant_t((IDispatch*)Conn, true),
            adModeReadWrite,
            adFailIfNotExists,
            adOpenSource,
            bstr_t(""),
            bstr_t(""));
}
catch(_com_error e) {
   // Handle error or throw.
   throw e;
}

try {

   // Copy the record.
   // Note that if an item already exists at the
   // destination URI, it will be overwritten by the copy.
   Rec->CopyRecord(
         bstr_t(),
         urlto,
         bstr_t(),
         bstr_t(),
         (CopyRecordOptionsEnum)adCopyOverWrite,
         VARIANT_FALSE);
}
catch(_com_error e) {
   // Handle error or throw.
   throw e;
}

// Close connection and record.
Conn->Close();
Rec->Close();