如何得到当前目前下所有*.txt的文件名

snowshow 2003-10-17 11:37:37
RT
...全文
37 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
yjy1001 2003-10-17
  • 打赏
  • 举报
回复
我中午12:00的时候要吃饭
吃完后差不多都30了 然后再来…… 一般都迟到
同意 : ccrun(老妖)
去 : ccrun(老妖) 的网站看看……去
ccrun.com 2003-10-17
  • 打赏
  • 举报
回复
早你二分钟,嘿嘿。
Kabin 2003-10-17
  • 打赏
  • 举报
回复
又抢在我前
Kabin 2003-10-17
  • 打赏
  • 举报
回复
FileListBox控件

Mask = "*.txt";

文件列表
FileListBox1->Items->Strings[i]
ccrun.com 2003-10-17
  • 打赏
  • 举报
回复
void __fastcall TForm1::Button1Click(TObject *Sender)
{
String strPath=GetCurrentDir();

WIN32_FIND_DATA FindFileData;
if(strPath.SubString(strPath.Length(),1)!="\\")
strPath+="\\";
strPath=strPath + String("\\*.txt");

Memo1->Lines->Clear();

HANDLE hFile=FindFirstFile(strPath.c_str(),&FindFileData);

if(hFile!=INVALID_HANDLE_VALUE)
{
do
{
Memo1->Lines->Add(FindFileData.cFileName);
}while(FindNextFile(hFile,&FindFileData));
FindClose(hFile);
}
}
tigerhohoo 2003-10-17
  • 打赏
  • 举报
回复
...真快呀.
gyj_china 2003-10-17
  • 打赏
  • 举报
回复
有没搞错,我又迟到了。
编译失败 2003-10-17
  • 打赏
  • 举报
回复
上面的apppath=ExtractFilePath(Application->ExeName)
编译失败 2003-10-17
  • 打赏
  • 举报
回复
TSearchRec sr;
if (FindFirst(apppath+"*.TXT",faArchive,sr)==0)
{
Memo1->Lines->Add(sr.Name);
while (FindNext(sr)==0)
Memo1->Lines->Add(sr.Name);
FindClose(sr);
}

13,824

社区成员

发帖
与我相关
我的任务
社区描述
C++ Builder相关内容讨论区
社区管理员
  • 基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧