604
社区成员
发帖
与我相关
我的任务
分享
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TStringList *t1=new TStringList();
TStringList *t2=new TStringList();
IdFTP1->Connect();
IdFTP1->List(t1,"",true); //只要ZIP的可用IdFTP1->List(t1,"*.zip",true);
IdFTP1->Disconnect();
for(int i=0;i<t1->Count;i++)
{
t2->DelimitedText=t1->Strings[i];
Memo1->Lines->Add(t2->Strings[8]); //这个就是纯文件名
}
delete t1;
delete t2;
}