//连接 IdFTP1.Host := '192.168.1.18'; IdFTP1.Port := 21; IdFTP1.Username := 'update'; IdFTP1.Password := 'update'; IdFTP1.Connect(); //更改目录 IdFTP1.ChangeDir('test2/test222'); // 该函数返回当前目录名 var str: string; -- str := IdFTP1.RetrieveCurrentDir; //上一次目录 IdFTP1.ChangeDirUp; { 列出当前目录所有文件和子目录及其属性 procedure List(ADest: TStrings; const ASpecifier: string; const ADetails: boolean); 列出当前目录所有文件和子目录及其属性 参数: ADest: TStrings 保存文件及子目录的返回结果 const ASpecifier: string = '' 文件掩码,用于列出符合条件的文件 const ADetails: boolean = true 包含文件和子目录属性 } var st: TStringList; -- st := TStringList.Create; IdFTP1.List(st, '', true); }