FTP관련 질문인데요.
예를 들어 ftp접속을 했습니다.
그런데 경로가 날짜로 되어잇어요.
경로를 이동해야하는데 잘 모르겠습니다.
\aaaa\YY\MM\AAAYYYYMMDD.txt
이걸 다운로드 받으려고 하거든요.
change를 이용해서 해야할것도 같고..너무 헷갈리네요.
도움좀 부탁드립니다.
(소스)
procedure TForm1.Button2Click(Sender: TObject);
var
Filename:String;
begin
Filename:=FormatDateTime('yyyymmdd', now);
IdFTP1.Host:='xxx.xxx.xxx.xxx';
IdFTP1.Username:='test';
IdFTP1.Password:='test';
IdFTP1.Port:=21;
try
IdFTP1.Connect(True);
except on E:Exception do
Showmessage('접속실패! 잠시 후 다시 접속하세요');
end;
if IdFTP1.Connected then begin
Showmessage('FTP에 접속 정상');
end;
try
Showmessage('파일 다운로드 시작!');
IdFTP1.Get('AAA'+Filename+'.TXT','c:\AAA\data\AAA'+Filename+'.TXT');
Showmessage('파일 다운로드 완료');
IdFTP1.Disconnect;
except
IdFTP1.Disconnect;
showmessage('다운받으려는 파일이 없습니다.');
end;
end;
...
IdFtp1.ChangeDir('\aaaa\YY\MM\');
IdFtp1.Get('AAA'+Filename+'.TXT','c:\AAA\data\AAA'+Filename+'.TXT');
...