TLiberty,<br>
<br>
Here is some code that I came up with after wrestling with this one for a while myself. This code is actually getting the filenames from an array, but you can change it any way you like to meet your needs. Let me know if you have any questions or problems. Hope it helps.

<br>
<br>
'=============================<br>
' CODE<br>
'=============================<br>
Private Sub GetFiles()<br>
On Error GoTo errGetFiles<br>
Dim x() As Byte, i As Integer<br>
<br>
For i = 0 To UBound(aFileNames)<br>
Inet1.URL = "<A HREF="
TARGET="_new">
& aFileNames(i)<br>
x = Inet1.OpenURL(, icByteArray)<br>
Open "C:\" & aFileNames(i) For Binary Access Write As #1<br>
Put #1, , x()<br>
Close #1<br>
Next i<br>
<br>
exitGetFiles:<br>
Exit Sub<br>
<br>
errGetFiles:<br>
Err.Raise 805, , "Error getting files from server"<br>
<br>
End Sub