//连接
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);
}