提1个问题，关于文件查找！

dycdyc123 2002-05-06 10:39:03

if（FindFirst（DirName+"*.*",
faReadOnly|faHidden|faSysFile|faVolumeID|faArchive,sr)==0)
{

{
doAddFile(ListBox1,DirName+sr.Name,ComboBox1->ItemIndex);
}while(FindNext(sr)==0);
FindClose(sr);

怎样找出只读的、隐藏的文件夹与目录，我加了faReadOnly|faHidden,但还不行
请给以解决！！

...全文

40 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

dycdyc123 2002-05-23

打赏
举报

试了又试，还是搞不定！◎

dycdyc123 2002-05-07

打赏
举报

还是不行！◎

faAnyFile不行，我怀疑是Bug！
TSearchRec sr;
if(FindFirst(path+"\\*.*" ,faAnyFile,sr)==0)
{
if(sr.Attr!=faDirectory)
{
if((ExtractFileExt(sr.Name)==FileExt1)||(ExtractFileExt(sr.Name)==FileExt2))
{
ListBox1->Items->Add(path+"\\"+sr.Name);
}
}
else if(sr.Name!="."&&sr.Name!="..")
FindFile(path+"\\"+sr.Name,FileExt1,FileExt2); //
}
while(FindNext(sr)==0)
{
if(sr.Attr!=faDirectory)
{
if((ExtractFileExt(sr.Name)==FileExt1)||(ExtractFileExt(sr.Name)==FileExt2))
{
ListBox1->Items->Add(path+"\\"+sr.Name);
}
}
else if(sr.Name!="."&&sr.Name!="..")
FindFile(path+"\\"+sr.Name,FileExt1,FileExt2);
}
FindClose(sr);

这是我的代码！

shadowstar 2002-05-06

打赏
举报

用faAnyFile

ilikeff8 2002-05-06

打赏
举报

faDirectory

redsuns2001 2002-05-06

打赏
举报

这个可以呀：例子如下：
{ WIN32_FIND_DATA f;
HANDLE h;
char buf[255];
TListItem *p;

if (RadioButton1->Checked) ListView1->ViewStyle=vsSmallIcon;
if (RadioButton2->Checked) ListView1->ViewStyle=vsIcon;
if (RadioButton3->Checked) ListView1->ViewStyle=vsList;
if (RadioButton4->Checked) ListView1->ViewStyle=vsReport;
ListView1->Items->Clear();
sprintf(buf,"%s%s", DirectoryListBox1->Directory.c_str(), "\\*.*");
h=FindFirstFile(buf, &f);
if (h != INVALID_HANDLE_VALUE) {
p=ListView1->Items->Add();
p->Caption=f.cFileName;
sprintf(buf,"%d", f.nFileSizeLow);
p->SubItems->Add(buf);
while (FindNextFile(h,&f)) {
p=ListView1->Items->Add();
p->Caption=f.cFileName;
sprintf(buf,"%d", f.nFileSizeLow);
p->SubItems->Add(buf);
}
}