Witam. (nie umiem za bardzo programowac, więc proszę o pomoc)
Uzywam Indy do wysylania pliku FTP na serwer... lecz te same pliki beda wysylane np z kilku komputerow, chcialbym napisac coś takiego aby pliki z kazdego komputera wysylaly sie w inny folder....
Jak zrobić by pliki się wysylaly do folderu, ktory automatycznie sie utworzy w przypadku jego braku o nazwie NAZWAUŻYTKOWNIKA_NAZWAKOMPUTERA
kod indy jaki mam jest taki... co tu dodac / zmienic by sie tworzyly takie foldery?
procedure TForm1.Button1Click(Sender: TObject);
begin
idFTP1.Host := 'ftp.serwer.pl';
idFTP1.Username := 'mojlogin';
idFTP1.Password := 'haslo';
IdFTP1.Port:= 21;
idFTP1.Connect();
idFTP1.Put ('c:\1.log','1.log');
idFTP1.Disconnect();
end;
Uzywam Indy do wysylania pliku FTP na serwer... lecz te same pliki beda wysylane np z kilku komputerow, chcialbym napisac coś takiego aby pliki z kazdego komputera wysylaly sie w inny folder....
Jak zrobić by pliki się wysylaly do folderu, ktory automatycznie sie utworzy w przypadku jego braku o nazwie NAZWAUŻYTKOWNIKA_NAZWAKOMPUTERA
kod indy jaki mam jest taki... co tu dodac / zmienic by sie tworzyly takie foldery?
Cytat:
procedure TForm1.Button1Click(Sender: TObject);
begin
idFTP1.Host := 'ftp.serwer.pl';
idFTP1.Username := 'mojlogin';
idFTP1.Password := 'haslo';
IdFTP1.Port:= 21;
idFTP1.Connect();
idFTP1.Put ('c:\1.log','1.log');
idFTP1.Disconnect();
end;