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

Code:
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