'Assumes you have an Inet Control (Inet1)

Dim bFile() as Byte

'Retrieving a binary file.

' Retrieve the file.

bFile() = Inet1.OpenURL _ ("ftp://ftp.mycompany.com/upgrade/software.exe", _ icByteArray) ' Write file to disk.

Open "C:\INTERNET\software.exe" For Binary Access Write As #1

Put #1, , bFile()

Close #1

Paul Swonger. http://fast.to/psysoft/