Copying Public Folders (ADO)
Topic Last Modified: 2009-07-27
Example
VBScript
Note
The following example uses a file URL with the Exchange OLE DB (ExOLEDB) provider. The ExOLEDB provider also supports The HTTP: URL Scheme. Using The HTTP: URL Scheme allows both client and server applications to use a single URL scheme.
'Copying Public Folders Using ADO
'Build Instructions
' Add the following Active Server Pages (ASP) file to a new virtual directory under the wwwroot.
' Change the domain in the code to reflect your install.
' Make sure that there are public folders in the Public Folder tree with the same names as listed in
' the code.
<%@ Language=VBScript %>
<HTML>
<HEAD>
</HEAD>
<BODY>
<%
Dim Rec
Dim strURL
Dim DomainName
Dim strLocalPath
Dim strDestination
const for the ADO CopyRecord method
const adCopyOverWrite = 1
const adCopyNonRecursive = 2
' Specify your own domain.
DomainName = "mydomain.contoso.com"
' Specify a URL to the folder or the items to copy.
' In this example, a folder and its items are copied.
strLocalPath = "PUBLIC FOLDERS/ProjectTrack"
strDestination = "PUBLIC FOLDERS/myfolder"
Set Rec = CreateObject("ADODB.Record")
' Set the strURL to the location of the folders.
strURL = "file://./backofficestorage/" & DomainName & "/" & strLocalPath
strDest = "file://./backofficestorage/" & DomainName & "/" & strDestination
' Open the record.
Rec.Open strURL
' Copy the folder from the source location to the destination folder.
' Note that if an item already exists at the destination URI,
' it will be overwritten by the copy.
Rec.CopyRecord strURL,"file://./backofficestorage/" & DomainName _
& "/" & strDestination,,,adCopyOverWrite
' Close the record.
Rec.Close
Set Rec = Nothing
Response.write "adCopyOverWrite: " & adCopyOverWrite & "<BR>"
Response.write "adCopyNonRecursive: " & adCopyNonRecursive & "<BR>"
Response.write "strURL: " & strURL & "<BR>"
Response.write "strDest: " & strDest & "<BR>"
Response.Write "<BR><BR>All Done" & "<BR>"
%>
</BODY>
</HTML>