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 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
 
Private Sub Command1_Click()
    If UploadFile("ftp://ftp.blahblah.de/", "blah", "anonymous",  App.Path & _
      "test.txt", "test.txt") = True Then
 
    Command1.Caption = "success! :-)"
    Else
    Command1.Caption = "failed! :-("
    End If
End Sub

_______________________________________________________
Ihr da OHM macht doch WATT ihr VOLT!