Fill a Listbox with files in an HTTPS address

H

Harold

I would like to fill a listbox with the contents from a web server
(https://someurl/somesuburl/...).

I can easily to it from a windows folders but the Application.FileSearch
must be for windows only. Any clues?

Dim myfiles As Object
Dim i As Integer
Dim strHold As String


Set myfiles = Application.FileSearch
With myfiles
..LookIn = "c:\temp"
..FileName = "*.*"
If .Execute > 0 Then
MsgBox .foundfiles.Count & " file(s) found."
For i = 1 To .foundfiles.Count
strHold = strHold & ";" & .foundfiles(i)
Next i
Else
MsgBox "No files found."
End If
End With
strHold = Mid(strHold, 2)
DirListBox.RowSource = strHold
 
Top