Sub FTP_upload(Host As String, Username As String, Password As String, _
  Uploadfiles As String, RemoteDir As String)
 
   Dim UFiles, UF As Integer, FileSize As Long, FX, FSO As Object
   Set FSO = CreateObject("Scripting.FileSystemObject")
   Me.Show
   Me.Height = 2875
 
   If Connect(Host, "21", Username, Password) Then
 
      If RemoteDir <> "" Then ChangeDir RemoteDir
      If Right(Uploadfiles, 1) <> ";" Then Uploadfiles = Uploadfiles & ";"
      UFiles = Split(Uploadfiles, ";")
      For UF = 0 To UBound(UFiles) - 1
         FileSize = GetFileSize(Right(UFiles(UF), Len(UFiles(UF)) - InStrRev( _
           UFiles(UF), "\")))
         Set FX = FSO.GetFile(UFiles(UF))
         If FileSize <> FX.Size Then
            UploadFile UFiles(UF), Right(UFiles(UF), Len(UFiles(UF)) - InStrRev( _
              UFiles(UF), "\"))
         End If
      Next UF
 
      Disconnect
   End If
 
   Me.Hide
   Set FSO = Nothing
   DoEvents
End Sub