Partager via

  • Article

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>