Datei Uploade

[ATdrag0N]

Hallo,
ich habe folgenden Code um eine bestimmte Datei auf mein Server zu laden,
ich möchte aber das ich in der Form ein textfeld habe wo ich ein Pfad zur Datei angeben kann das dieser dann hochgeladen wird mit dem Button klick.

Private Sub Command1_Click()
    Call Verbinden
    Do While Inet1.StillExecuting: DoEvents: Loop
    Inet1.Execute , "PUT c:\test.txt test.txt"
    Do While Inet1.StillExecuting: DoEvents: Loop
    Inet1.Execute , "quit"
    Call Trennen
End Sub

Public Sub Verbinden()
    With Inet1
        .Cancel
        .Protocol = icFTP
        .URL = "     "
        .UserName = "   "
        .Password = "    "
    End With
End Sub

Public Sub Trennen()
    Inet1.Execute , "quit"
    Do While Inet1.StillExecuting: DoEvents: Loop
End Sub

Ich hoffe das mir da einer weiter helfen kann wie das geht.

 

[Alex F.]

Private Sub Command1_Click()
    Call Verbinden
    Do While Inet1.StillExecuting: DoEvents: Loop
    Inet1.Execute , "PUT c:\test.txt " & Textbox1.Text & "\test.txt" 'der Pfad muss exisitieren
    Do While Inet1.StillExecuting: DoEvents: Loop
    Inet1.Execute , "quit"
    Call Trennen
End Sub

Grüsse bb

 

[ATdrag0N]

sorry, aber das geht so nicht,
da kommt keine fehlermeldung das diese Datei existiert oder so was.

Falls du mich nicht richtig verstanden hast.
in dem Textfeld möchte ich ein Pfad eingeben zur irgendeiner Datei der er dann hochladen soll die ich da angebe.

 

[Alex F.]

1. Schau dir mal das fileDialog Control an
2. musst du dann deine Eingaben variabel halten nämlich hier

inet1.execute FileandPath Filename

 

[ATdrag0N]

wie müsste denn der Code aussehen?
ich habe noch nicht soviel Erfahrung in VB

 

[Alex F.]

siehe post 4 das FileDialog Control liefert dir alles was du brauchst.

Die Eigenschaften heissen glaube ich Filename und Directory oder so


Grüsse bb

 

[ATdrag0N]

Kann mir irgendeiner denn Code geben bzw. so ändern das ich mit dem ganz oben eine Datei hochladen kann, ich habe das jetzt paar tage probiert ich bekomme das nicht hin.
Bitte das ist total wichtig.

 

[Operator_Jon]

Private Sub Command1_Click()
    Call Verbinden
    Do While Inet1.StillExecuting: DoEvents: Loop
    Inet1.Execute , "PUT c:\test.txt " & Textbox1.Text & "\test.txt" 'der Pfad muss exisitieren
    Do While Inet1.StillExecuting: DoEvents: Loop
    Inet1.Execute , "quit"
    Call Trennen
End Sub

Grüsse bb

1. Schau dir mal das fileDialog Control an
2. musst du dann deine Eingaben variabel halten nämlich hier

inet1.execute FileandPath Filename

Also viel mehr kann dir nun wirklich nicht geholfen werden, da steht alles drin was du brauchst...
Wenn du jemanden haben willst, der das ganze komplett für dich macht, dann schreib einen Thread im Job-Forum!

 

[ATdrag0N]

Private Sub Command1_Click()
    Call Verbinden
    Do While Inet1.StillExecuting: DoEvents: Loop
    Inet1.Execute , "PUT " & Text1.Text & " \& Text2.Text &"
    Do While Inet1.StillExecuting: DoEvents: Loop
    Inet1.Execute , "quit"
    Call Trennen
End Sub

So ist mein Code jetzt aber er macht nichts.
Wenn mir hier keiner helfen kann bzw. möchte dann sagt mir wo ich das oben genannte Forum finde.

 

[Alex F.]

Versuchs mal hier :
http://www.tutorials.de/forum/stellenangebote-unentgeltlich/