Copy Method Example

This example copies a file from the Rogue Cellars web folder to an Inventory folder within the same web.

Note To run this example, you must have a web called "C:\My Documents\My Webs\Rogue Cellars" (for a server running on Microsoft Windows) or "C:\WINNT\Profiles\logon alias\Personal\My Webs\Rogue Cellars" (for a server running on Windows NT).

Private Sub FileCopy()
Dim myFile As WebFile

Set myFile = ActiveWeb.RootFolder.Files("Zinfandel.htm")
myFile.Copy "C:\My Webs\Rogue Cellars\Inventory\Zinfandel.htm"
End Sub