Delete Method (Web) Example

This example deletes a temporary web called TempWeb.

Note   To run this example, you must have a web called "C:\My Documents\My Webs\TempWeb" (for a server running on Microsoft Windows) or "C:\WINNT\Profiles\logon alias\Personal\My Webs\TempWeb" (for a server running on Windows NT). In either case, you may substitute an alternative web URL.

Private Sub DeleteWeb()
Dim myWeb As Web
Dim myTempWeb As Web
Dim myFolders As WebFolders
Dim myFolder As WebFolder
Dim myWebToDelete As String

Set myWeb = Webs.Open("C:\My Documents\My Webs")
Set myFolders = myWeb.RootFolder.Folders
myWebToDelete = "TempWeb"

For Each myFolder In myFolders
    If myFolder.IsWeb = True Then
        If myFolder.Name = myWebToDelete Then 
            Set myTempWeb = Webs.Open(myFolder.Name)
            myTempWeb.Delete
        End If
    End If
Next
ActiveWebWindow.Close
End Sub