ftp please help

I am reading a directory of files and attempting to ftp the whole directory to my web server using the internet transfer control.
I keep getting the error
"still executing last request" on the execute statement
is there a way to hold the loop up until the previous
request has finished, or is there a way I can ftp a whole directory in batch mode or something

Dim fs, f, f1, fc, s, fol, st
Dim source As String
Dim x As Integer

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(directory)
Set fc = f.Files
fol = Text4.Text
With Inet1
.Cancel
.Protocol = icFTP
.URL = "xxx.xxx.xxx.xxx"
.UserName = "xxxx"
.Password = "xxxx"
End With
For Each f1 In fc
s = f1.Name
source = fol & "\" & s
Inet1.Execute "xxx.xxx.xxx.xxx", _
"PUT " & source & " /" & s
x = x + 1
Next
MsgBox x & " Files transfered"

You can do one of two things:

Either check the stillexecuting property of the inet control
before sending the next file

or

use the "MPUT *.*" FTP command instead of the "PUT " & filename command.

Hope that helps, I've had the same problem before.

- John

[dj4]

Try this:

For Each f1 In fc
s = f1.Name
source = fol & "\" & s
Inet1.Execute "xxx.xxx.xxx.xxx", _
"PUT " & source & " /" & s
x = x + 1
Do
DoEvents
Loop While Inet1.StillExecuting
Next

- Jani