Für jeden Teilnehmer eine neue Textdatei

[DragonSugger]

Hallo ...

Habe mir 2 Programme vorgenommen, das einte Programm speichert die Dateien lokal auf meinem Computer, und das andere soll diese einfach auf meinen Webspace hochladen.. Doch wie bekomme ich es hin, dass jede Datei einen anderen Namen bekommt, und somit nicht immer die gleiche Datei auf dem Webspace überspeichert wird?
Benutze derzeit diesen Code:

With Inet1
    .Cancel
    .Protocol = icFTP
    .URL = "ftp://server.server.de"
    .UserName = "server"
    .Password = "server"
End With
Inet1.Execute , "PUT c:\DATEI.txt datei.txt"

So, nun will ich aber, dass die Datei nicht immer als datei.jpg hochgeladen wird, sondern z.b. einen Namen bekommt, den ich auf der Form in ein Textfeld eingeben kann... dann habe ich mir gedacht ich probiere es mal so:

Dim one As String
one = Text1.Text

With Inet1
    .Cancel
    .Protocol = icFTP
    .URL = "ftp://server.server.de"
    .UserName = "server"
    .Password = "server"
End With
Inet1.Execute , "PUT c:\DATEI.txt" & one & ".txt"

Doch das funktioniert nicht... wie bekomme ich das denn hin?

Danke..

 

[DrSoong]

Mal ne Frage, ist in der Zeile

Inet1.Execute , "PUT c:\DATEI.txt" & one & ".txt"

nur ein Schreibfehl jetzt oder hast du auch im code nach PUT c:\DATEI.txt das Leerzeichen vergessen?

Wenns das nicht ist, setz den Execute-Befehl doch vorher in einer Variable zusammen (ist z.B. bei Shell-Befehlen norwendig), also

one = "PUT c:\DATEI.txt " & Text1.Text & ".txt"

With Inet1
    .Cancel
    .Protocol = icFTP
    .URL = "ftp://server.server.de"
    .UserName = "server"
    .Password = "server"
End With
Inet1.Execute , one

Vielleicht gehts dann so, ungetestet, da hier kein VB.


Der Doc!