Private Sub Command1_Click()
  Dim kataloog As New ADODB.Record
  kataloog.Open "HTTP://localhost/asp"
  Dim faililoetelu As ADODB.Recordset
  Set faililoetelu = kataloog.GetChildren
  While Not faililoetelu.EOF
    MsgBox faililoetelu.Fields(0).Value
    faililoetelu.MoveNext
  Wend
End Sub