Mit FTP Programm auf PB FTP-Lib Verzeichnisse zugreifen.

[Joel]

Hallo,

Ich habe mit dem Code unten ganz normal Dateien auf meinen Server geschrieben und .jpg Bilder hohgeladen. Wenn ich nun mit dem FTP Server ein mittels PB erstelltes Verzeichnis öffne, dann wird Angezeigt:

Code: Alles auswählen

Befehl:	CWD Test
Antwort:	550 Test: No such file or directory
Fehler:	Verzeichnisinhalt konnte nicht empfangen werden

Code:

Code: Alles auswählen

Procedure FTP()
InitNetwork()
OpenFTP(0, "test.funpic.de", "test", "test" , 1, 21)
SetFTPDirectory(0, "Temp")
CreateFTPDirectory(0, Ordner.s)
SetFTPDirectory(0, Ordner.s)
d$ = "0"
For a = 1 To Down
d$ = Str(Val(d$)+1)
SendFTPFile(0, "C:\Dokumente und Einstellungen\Joel\Desktop\"+d$+".JPG", d$+".JPG")
Next 
CloseFTP(0)
EndProcedure

[Kiffi]

Code:

Code: Alles auswählen

Procedure FTP()
InitNetwork()
OpenFTP(0, "test.funpic.de", "test", "test" , 1, 21)
SetFTPDirectory(0, "Temp")
CreateFTPDirectory(0, Ordner.s)
SetFTPDirectory(0, Ordner.s)
d$ = "0"
For a = 1 To Down
d$ = Str(Val(d$)+1)
SendFTPFile(0, "C:\Dokumente und Einstellungen\Joel\Desktop"+d$+".JPG", d$+".JPG")
Next 
CloseFTP(0)
EndProcedure

1) OpenFTP(), SetFTPDirectory(), CreateFTPDirectory() und SendFTPFile()
liefern allesamt Rückgabewerte. Diese solltest Du auf jeden Fall
überprüfen um eine Aussage zu treffen, was geklappt hat und was nicht.

2) Welchen Wert hat 'Down'? Wenn das keine globale Variable ist, dann
hat sie den Wert 0 und dann wird auch nichts gesendet.

Grüße ... Kiffi

[Joel]

Haben alle Werte:

Ordner.s = "Test"
Down = 8
usw.

Der Debuger gibt folgendes zurück:

Code: Alles auswählen

1
8462376
1
1
1
1
1
1
1
1
1
1
1
8462376

Die vielen einsen zeigt er an, weil jedes mal eine Datei gesendet wurde.

Aber das FTP Programm kann wieder nicht darauf zugreifen.

Code: Alles auswählen

Procedure FTP() 
Debug InitNetwork() 
Debug OpenFTP(0, "test.funpic.de", "test", "test" , 1, 21) 
Debug SetFTPDirectory(0, "Temp") 
Debug CreateFTPDirectory(0, Ordner.s) 
Debug SetFTPDirectory(0, Ordner.s) 
d$ = "0" 
For a = 1 To Down 
d$ = Str(Val(d$)+1) 
Debug SendFTPFile(0, "C:\Dokumente und Einstellungen\Joel\Desktop\"+d$+".JPG", d$+".JPG") 
Next 
Debug CloseFTP(0) 
EndProcedure

[Joel]

Ach, ich habe den Fehler gefunden,

Ich ahbe den ordner im Windows Explorer geöffnet, und der hat hinter dem Ordnernamen bei öffnen: "%20" angezeigt, das heißt, soweit ich weiß, dass hinter dem Namen ein Leerzeichen steht.