FTP a file to a directory and then remove the local file

You might find this helpful. We use the CUTEFTP client (around $60) on our servers (installed as a service running under an account that has permissions on the needed directories) and call vb scripts from scheduled tasks. This exact script is pulling files from the remote host over ftps but it could easily be modified to push files over standard FTP (assuming you purchase and install CUTEFTP). We have the same issue where files are always being added. The nice thing about this is when the task runs you get a snap shot of what is currently there and only work with those files.  

Dim MySite
  Dim Local
  Dim Remote
  Dim TextFile
   
dim f1,ts

  Dim fso
  set fso = CreateObject("Scripting.FileSystemObject")
 
'Create a connection object and assign it to the variable

  Set MySite = CreateObject("CuteFTPPro.TEConnection")
  Local = "[Local Directory Path]"
  Remote = "[Remote Directory Path]"
  TextFile = "[File Path]"
  LogFile = "[File Path]"
   
  MySite.Protocol = "FTPS"
  MySite.Host = "[Host Address]"
  MySite.Port = 21

  MySite.Login = "[Login]"
  MySite.Password = "[Password]"
  MySite.SocksInfo = ""
  MySite.ProxyInfo = ""


on error resume next


  MySite.Connect
   
  if  err.number <> 0 then

   set ts = fso.OpenTextFile (Logfile,8)
   ts.WriteBlankLines (1)
   ts.WriteLine (err.description  & Date & " " & Time )
   ts.close
   set ts = nothing
   set f1 = nothing
   on error goto 0

   wscript.quit 1
  end if

   MySite.LocalFolder = Local

   'Creating a List of Remote Files

   MySite.GetList Remote, TextFile,"%NAME"

   set textStreamObject = fso.OpenTextFile(TextFile,1)

   'Opening Text File and Reading Filenames for Download and Delete
   Do While Not textStreamObject.AtEndOfStream
       Line = textStreamObject.ReadLine
         'Now download data file
         MySite.Download Remote & "/" & Line
       if MySite.Status = "FINISHED" then

'        If (MySite.LocalExists(Local & "\" & Line)) Then
           'Delete Remote File
           MySite.RemoteRemove(Remote & "/" & Line)
       End If

   Loop

'Clear
MySite.Disconnect
Set fso = Nothing
Set textStreamObject = Nothing
On Error Goto 0