Dim,
Here's the code.

With Inet1
.URL = "ftp://members.aol.com"
.UserName = "anonymous"
.Password = "[email protected]"
.AccessType = icDirect
.Protocol = icFTP
.RequestTimeout = 30
'goto correct dir
labStatus.Caption = "Opening FCP Directory"
.Execute , "cd anydirectory"
Do While Inet1.StillExecuting
DoEvents
Loop
.Execute , "close"
End With

This code seems to work every once and awhile. I did take
your advice and I am currently playing with the
Mabry FTP sample. Thanks for responding. All help is greatly appreciated.

[Edited by johnnewad on 08-08-2000 at 01:47 AM]