FTP upload per VB6

[Topcam]

Hallo !

Ich bin kein Informatiker nur ein IT-SE aber habe denoch eine Frage :

Ich möchte das mein Programm eine Verbindung zum server herstellt

und eine Datei ablädt. Mehr nicht.

Wie mache ich das am besten.

habe es schon hier mit versucht :

If Config.ftpon.Value = True Then


            'On Error Resume Next

            '// Upload the file

            inetFTP.URL = Config.txtftpserver.Text

            inetFTP.UserName = Config.txtftpuser.Text

            inetFTP.Password = Config.txtftppass.Text

            inetFTP.Protocol = icFTP


            strRemote = Config.txtSource.Text & ".jpg"

            strLocal = App.Path & "\" & Config.txtSource.Text & ".jpg"

            inetFTP.Execute netFTP.URL, "PUT " & strLocal & " " & strRemote




            Do While inetFTP.StillExecuting: DoEvents: Loop

            On Error GoTo 0

            End If

        End If

    End If

aber kein upload ergebnis erreicht.

Hilfe !!!!

Topcam

[Reindeer]

Das hier ist ein fertiges Modul, um Daten per wininet.dll auf einen FTP-Server zu laden. Das hab ich schon mal verwendet, klappt recht gut.

Link: http://www.vbarchiv.net/archiv/tipp_details.php?pid=759

[Topcam]

Hallo Reindeer , danke für den Tip.

Habe ich auch schon eingebunden nur wie über gebe ich die Variable :

USER und PASSWORT an diese Stelle :

 Verbindung zum Server herstellen

Public Function Connect(ByVal sRemoteHost As String, _

  Optional ByVal [U]sUsername[/U] As String = "anonymous", _

  Optional ByVal [U]sPasswort [/U] As String = "guest") As Boolean

wenn ich den STRING lösche und dafüer = config.user.text verweise

haut das nicht hin .

Danke

Topcam

[Reindeer]

Du musst die Variablen ganz einfach an die Function übergeben:

If Connect (config.server.text, config.user.text, config.password.text)=True Then ...

In der Function selber bzw. in der Deklaration brauchst/darfst Du nichts ändern.