Function UploadFile(ByVal HostName As String, _
  ByVal UserName As String, _
  ByVal Password As String, _
  ByVal LocalFileName As String, _
  ByVal RemoteFileName As String) As Boolean
 
  ' Dim FTP As Inet
  ' Set FTP = New Inet
  With Inet1  ' FTP
    .Protocol = icFTP
    .RemoteHost = HostName
    .UserName = UserName
    .Password = Password
    .Execute .URL, "Put " + LocalFileName + " " + RemoteFileName
    Do While .StillExecuting
      DoEvents
    Loop
    UploadFile = (.ResponseCode = 0)
  End With
  ' Set FTP = Nothing
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de