tach alle zusammen
habe folgendes problem ich möchte ein oder mehrere verzeichnis erstellen und daraufhin überprüfen ob sie existieren aber eher nur gucken das sie existrieren und dannach reinchangen und eine datei reinhochzuladen jedoch funzt das net so wie ich will...
zb
ch erstelle eine datei die später hochgeladen werden soll.
zuerst connecte ich zum ftp server und schaue nach ob der ordner ' blubb' existiert. wenn er nicht existiert lege ich ihn an. dannach change ich darein und schaue wieder ob es den ordner 'blubb2' gibt. wenn nicht anlegen und dann wieder reinchangen und dort soll dann ein die erstellte datei hochgeladen werden.
ordner erstellen , changen und hochladen ist klar jedoch nicht mit welchen funktionen ich das alles uberprüfe
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
| procedure tform1.putten_uploaden;
var
MyIdFTP: TIdFTP;
begin
myidftp := tidftp.Create;
myidftp.Host:= 'ftp.g.g.ohost.de';
myidftp.Username:='g';
myidftp.Password:='k';
myidftp.Connect;
if myidftp.Connected then
try
myidftp.MakeDir('Sebst');
except
myidftp.ChangeDir('Sebst');
try
myidftp.MakeDir('putten');
myidftp.Put('putten' + datum.Text+ '.txt');
except
myidftp.ChangeDir('putten');
myidftp.Put('C:\putten' + datum.Text+ '.txt');
end; |
Man kann bestimmt auch einfach abfragen, ob es ein Verzeichnis gibt oder nicht.