home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.1#0"; "COMCTL32.OCX"
- Begin VB.Form frmListDocs
- BorderStyle = 3 'Fixed Dialog
- Caption = "List Documents in Web"
- ClientHeight = 5790
- ClientLeft = 1470
- ClientTop = 2040
- ClientWidth = 6630
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- PaletteMode = 1 'UseZOrder
- ScaleHeight = 5790
- ScaleWidth = 6630
- ShowInTaskbar = 0 'False
- Begin VB.CommandButton btnRefresh
- Caption = "Refresh"
- Height = 375
- Left = 240
- TabIndex = 3
- Top = 5280
- Width = 1095
- End
- Begin ComctlLib.ListView lstDocs
- Height = 3855
- Left = 240
- TabIndex = 0
- Top = 1320
- Width = 6135
- _ExtentX = 10821
- _ExtentY = 6800
- View = 3
- Sorted = -1 'True
- MultiSelect = -1 'True
- LabelWrap = -1 'True
- HideSelection = -1 'True
- _Version = 327680
- ForeColor = -2147483640
- BackColor = -2147483643
- BorderStyle = 1
- Appearance = 1
- MouseIcon = "listdocs.frx":0000
- NumItems = 2
- BeginProperty ColumnHeader(1) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
- Key = ""
- Object.Tag = ""
- Text = "Title"
- Object.Width = 5080
- EndProperty
- BeginProperty ColumnHeader(2) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
- Key = ""
- Object.Tag = ""
- Text = "Page URL"
- Object.Width = 3087
- EndProperty
- End
- Begin VB.Label Label6
- Alignment = 2 'Center
- Caption = "vtiGetWebURL, vtiGetPageList"
- Height = 255
- Left = 240
- TabIndex = 5
- Top = 480
- Width = 6135
- WordWrap = -1 'True
- End
- Begin VB.Label Label5
- Caption = "This form uses the following FrontPage Explorer methods:"
- Height = 255
- Left = 240
- TabIndex = 4
- Top = 120
- Width = 6135
- End
- Begin VB.Line Line1
- X1 = 240
- X2 = 6360
- Y1 = 840
- Y2 = 840
- End
- Begin VB.Label lblWeb
- Height = 255
- Left = 1440
- TabIndex = 2
- Top = 1080
- Width = 4935
- End
- Begin VB.Label Label1
- Caption = "Current web:"
- Height = 255
- Left = 240
- TabIndex = 1
- Top = 1080
- Width = 1215
- End
- Attribute VB_Name = "frmListDocs"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Option Explicit
- Private Sub Command1_Click()
- End Sub
- Private Sub btnRefresh_Click()
- MousePointer = 11
- Dim pagelist As String
- Dim idx As Integer
- Dim newline As String
- Dim title As String
- Dim url As String
- Dim itmX As ListItem
- newline = Chr$(10)
- lstDocs.ListItems.Clear
- Dim webber As Object
- Set webber = CreateObject("FrontPage.Explorer")
- lblWeb = webber.vtiGetWebURL
- pagelist = webber.vtiGetPageList(0)
- While Len(pagelist) > 0
-
- idx = InStr(pagelist, newline)
- If idx > 0 Then
- title = Left$(pagelist, idx - 1)
- pagelist = Mid$(pagelist, idx + 1)
- Else
- title = pagelist
- End If
-
- idx = InStr(pagelist, newline)
- If idx > 0 Then
- url = Left$(pagelist, idx - 1)
- pagelist = Mid$(pagelist, idx + 1)
- Else
- url = pagelist
- End If
-
- Set itmX = lstDocs.ListItems.Add(, , title)
- itmX.SubItems(1) = url
-
- Wend
- Set webber = Nothing
- MousePointer = 0
- End Sub
- Private Sub Form_Load()
- btnRefresh_Click
- End Sub
- Private Sub lstDocs_ColumnClick(ByVal ColumnHeader As ColumnHeader)
- lstDocs.SortKey = ColumnHeader.Index - 1
- End Sub
-