|
| Autor |
Nachricht |
H4cKl1x3r_
Newbie
Anmeldedatum: 12.03.2008
Beiträge: 16
|
FTP Upload Problem
Verfasst am: 05.04.2008, 06:52 |
|
|
Hi erstmal
ich habe das Problem das wen ich was hochladen möchte auf dem FTP nichts ankommt. Hier mal der Quelltext:
| Code: |
Dim a As String
a = "C:\WINDOWS\1.txt"
With Inet1
.AccessType = icUseDefault
.Protocol = icFTP
.RemotePort = "21"
.URL = "---"
.UserName = "---"
.Password = "---"
.Execute , "PUT " & a
End With |
Ich möchte das die 1.txt vom Windows ordner Genommen wird und Hochgeladen wird. Und so das es man nicht Bewerkt.
Danke für eure Antworten |
|
| |
|
 |
c0re_
« Moderator »
Anmeldedatum: 29.11.2007
Beiträge: 425
|
Verfasst am: 05.04.2008, 09:21 |
|
|
Du musst noch angeben, wie die Datei auf dem FTP heißen soll.
| Code: | Dim a As String, b As String
a = "C:\WINDOWS\1.txt"
b = "/1.txt"
With Inet1
.AccessType = icUseDefault
.Protocol = icFTP
.RemotePort = "21"
.URL = "---"
.UserName = "---"
.Password = "---"
End With |
Nun möchte ich dir noch erklären, dass du mit Inet1.Execute nur einen String an den FTP Server sendest.
Er erwartet eine Zeichenkette, die folgendermaßen aufgebaut ist:
| Zitat: | | PUT PfadzurDateiaufderFestplatte /DateiaufdemFTP |
Diesen String setzt du dann so zusammen:
| Code: | Dim sCommand As String
sCommand = "PUT " & a & " " & b |
In deinem Fall sieht er nun so aus:
| Zitat: | | PUT C:\WINDOWS\1.txt /1.txt |
Jetzt musst du ihn nur noch an den FTP Server senden.
| Code: | | Inet1.Execute, sCommand |
c0re
 |
|
| |
|
|
H4cKl1x3r_
Newbie
Anmeldedatum: 12.03.2008
Beiträge: 16
|
Verfasst am: 05.04.2008, 09:30 |
|
|
Und was muss ich jetzt da einfügen?
| Code: | Dim a As String, b As String
a = "C:\WINDOWS\1.txt"
b = "/1.txt"
With Inet1
.AccessType = icUseDefault
.Protocol = icFTP
.RemotePort = "21"
.URL = "---"
.UserName = "---"
.Password = "---"
End With |
wenn nicht dann Schreib mal den ganzen Source zusammen.
Danke |
|
| |
|
|
c0re_
« Moderator »
Anmeldedatum: 29.11.2007
Beiträge: 425
|
Verfasst am: 05.04.2008, 09:31 |
|
|
Du wirst doch die einzelnen Schnipsel zusammenfügen können, oder nicht?
|
|
| |
|
|
H4cKl1x3r_
Newbie
Anmeldedatum: 12.03.2008
Beiträge: 16
|
Verfasst am: 05.04.2008, 09:34 |
|
|
| Naja bin noch sehr am Anfang ^^ |
|
| |
|
|
c0re_
« Moderator »
Anmeldedatum: 29.11.2007
Beiträge: 425
|
Verfasst am: 05.04.2008, 09:37 |
|
|
Na dann...
| Code: | Dim a As String, b As String
a = "C:\WINDOWS\1.txt"
b = "/1.txt"
With Inet1
.AccessType = icUseDefault
.Protocol = icFTP
.RemotePort = "21"
.URL = "---"
.UserName = "---"
.Password = "---"
End With
Dim sCommand As String
sCommand = "PUT " & a & " " & b
Inet1.Execute, sCommand |
|
|
| |
|
|
H4cKl1x3r_
Newbie
Anmeldedatum: 12.03.2008
Beiträge: 16
|
Verfasst am: 05.04.2008, 13:52 |
|
|
| Bei mir kommt aber nichts an. Weis einer RAT?? |
|
| |
|
|
c0re_
« Moderator »
Anmeldedatum: 29.11.2007
Beiträge: 425
|
Verfasst am: 05.04.2008, 13:54 |
|
|
Könnte wetten, dass du direkt hinter den Code ein End geschrieben hast.
|
|
| |
|
|
H4cKl1x3r_
Newbie
Anmeldedatum: 12.03.2008
Beiträge: 16
|
Verfasst am: 05.04.2008, 14:21 |
|
|
Lol ne das wars nicht. Bei .url = hab ich nur ftp.extra.hu hingeschreiben. Da muss aber ftp://ftp.extra.hu LOL
Danke für deine Hilfe ^^ |
|
| |
|
|
c0re_
« Moderator »
Anmeldedatum: 29.11.2007
Beiträge: 425
|
Verfasst am: 05.04.2008, 14:33 |
|
|
Na dann mach ich hier mal zu.
|
|
| |
|
|
Registrieren
Login
