<WebMethod()> Public Function ListLists() As DataSet
' Returns a list of available lists as a dataset.
  Dim dsList As DataSet
  Dim recItem As DataRow
  Dim strDirectory As String
  Dim strPath As String

' Define the default structure for the dataset that will be returned.
  dsList = New DataSet()
  dsList.ReadXml(Server.MapPath("empty list.xml"))
  dsList.Clear()

' Build the path for the directory where the lists are stored.
  strPath = Server.MapPath("empty list.xml")
  strPath = Left(strPath, Len(strPath) - 14)
  strPath += "*.xml"

' Retrieve the directory.
  strDirectory = Microsoft.VisualBasic.Dir(strPath)
  Do While strDirectory <> ""
    If (strDirectory <> "empty list.xml") Then
      recItem = dsList.Tables(0).NewRow
      dsList.Tables(0).Rows.Add(recItem)
      recItem("Item") = strDirectory
      dsList.AcceptChanges()
    End If
    strDirectory = Microsoft.VisualBasic.Dir()
  Loop

' Return the directory listing.
  ListLists = dsList

End Function

Private Sub ListLists(ByVal NewSource As loadModes)
' Generates and loads a list of the available lists, 
' whether those lists are
' stored locally or remotely.
  Dim dsReturned As DataSet
  Dim intCounter As Int16
  Dim strDirectory As String
  Dim wsXMLList As New localhost.XMLList()

' Clear out the existing items.
  lstLists.Items.Clear()

' Load the requested list.
  Select Case NewSource

' The list is stored locally.
    Case loadModes.Local
      strDirectory = Microsoft.VisualBasic.Dir(Application.StartupPath _
      & "\*.xml")
      Do While strDirectory <> ""
        If (strDirectory <> "empty list.xml") Then
          lstLists.Items.Add(strDirectory)
        End If
        strDirectory = Microsoft.VisualBasic.Dir()
      Loop

' The list is stored remotely.
    Case loadModes.Remote
      dsReturned = wsXMLList.ListLists()
      For intCounter = 0 To (dsReturned.Tables(0).Rows.Count) - 1
        lstLists.Items.Add(dsReturned.Tables(0).Rows(intCounter)("Item"). 
        ToString())
      Next
  End Select

End Sub

Private Sub LoadList(ByVal strListName As String)
' Loads the specified list into the interface.
  Dim wsXMLList As New localhost.XMLList()

' Make sure there is a dataset to work with.
  If (Me.dsList Is Nothing) Then
    dsList = New DataSet()
  Else
    dsList.Clear()
  End If

' Retrieve the list either from a local or remote source.
  If (cmdLocation.Text = "Local") Then
    dsList.ReadXml(Application.StartupPath & "\" & strListName)
  Else
    dsList = wsXMLList.LoadList(strListName)
  End If

' Clear the list of any existing items.
  lstItems.Items.Clear()

' Load the list.
  lstItems.Items.Add(dsList.Tables(0).Rows(intCounter)("Item")

' Reset the flag used to track changes to the active list.
  bolIsDirty = False

End Sub

Private Sub SaveList(ByVal strListName As String)
' Save the selected list.
  Dim bolResult As Boolean
  Dim intCounter As Int16
  Dim recItem As DataRow
  Dim wsXMLList As New localhost.XMLList()

' Start with an empty dataset.
  If (Me.dsList Is Nothing) Then
    dsList = New DataSet()
  Else
    dsList.Clear()
  End If

' Load the contents of the list box into the dataset.
  For intCounter = 0 To lstItems.Items.Count - 1
    recItem = dsList.Tables(0).NewRow
    dsList.Tables(0).Rows.Add(recItem)
    recItem("Item") = lstItems.Items(intCounter).ToString
    dsList.AcceptChanges()
  Next

' Persist the contents of the dataset to a file as XML.
  If (cmdLocation.Text = "Local") Then
    dsList.WriteXml(Application.StartupPath & "\" & strListName)
  Else
    bolResult = wsXMLList.SaveList(strListName, dsList)
  End If

' Switch to using a list mode.
  SwitchModes(listModes.Use)

End Sub