BAD FTP !

I want to ftp the contents of a directory to my ftp server
I get no errors in VB, I have no firewalls present, I have no problem opening a session, I get no files on my ftp server, aaagggghhhh

I can't get no satisfaction, Please help me


Dim fs, f, f1, fc, fol, st
Dim strSource As String
Dim strDest As String
Dim x As Integer
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(Text4.Text)
Set fc = f.Files
fol = Text4.Text
With Inet1
.Cancel
.Protocol = icFTP
.URL = "111.111.111.111"
.UserName = "administrator"
.Password = "******"
End With
For Each f1 In fc
strDest = f1.Name
strSource = fol & "\" & s
Inet1.Execute "111.111.111.111", _
"PUT " & strSource & " /inbound/" & strDest
x = x + 1
Next
MsgBox x & " Files transfered"



thanks
B

[dj4]

Try this way:

fol = Text4.Text
With Inet1
.Protocol = icFTP
.URL = "111.111.111.111"
.UserName = "administrator"
.Password = "******"
End With

'Goto FtpServer Folder
Inet1.Execute , "CD inbound"
Do
DoEvents
Loop While Inet1.StillExecuting

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

- Dj4