恳求大家帮忙! 结构化存储,读取文件夹有时会少! ( 积分: 50 )

todaysoft · 2005-10-28

读取系统文件目录时,当是文件类型时有些文件目录里的文件夹总少显示,有些又不会. 非文件夹的不会出现这样的问题. 代码如下:
void __fastcall TImageFileList::ChangeDir(AnsiString dir)
{
TSearchRec SearchRec;
int Attr=0;
int Found ;
AnsiString ExtFileName;
AnsiString temstr;
DWORD ResultAttr;
AnsiString FoundFileName;
Clear();
OtherFileList->Clear();
temstr= dir+"//*.*";
Attr = faAnyFile;

if (FindFirst(temstr, Attr, SearchRec)== 0)
{
do
{
ExtFileName = LowerCase(ExtractFileExt(SearchRec.Name));
if( (ExtFileName==".bmp&quot

|| (ExtFileName==".jpg&quot

|| (ExtFileName==".jpeg&quot

)
Add(dir+"//"+SearchRec.Name);
else
if ( SearchRec.Attr==faDirectory ) //文件夹有时会少显示.
{
if (SearchRec.Name.Length()>1)
if (! ((SearchRec.Name[SearchRec.Name.Length()]=='.') &&
(SearchRec.Name[SearchRec.Name.Length()-1]!='.')))
OtherFileList->Add("0#"+dir+"//"+SearchRec.Name) ;
}
else
if (ExtFileName==".txt&quot

OtherFileList->Add("1#"+dir+"//"+SearchRec.Name);
else
if ((ExtFileName==".htm&quot

|| (ExtFileName==".html&quot

)
OtherFileList->Add("2#"+dir+"//"+SearchRec.Name) ;
else
if (ExtFileName==".pas&quot

OtherFileList->Add("3#"+dir+"//"+SearchRec.Name);
else
if (ExtFileName==".exe&quot

OtherFileList->Add("4#"+dir+"//"+SearchRec.Name);
else
if (ExtFileName==".dll&quot

OtherFileList->Add("5#"+dir+"//"+SearchRec.Name) ;
else
if (ExtFileName==".ssp&quot

OtherFileList->Add("6#"+dir+"//"+SearchRec.Name);
} while ( FindNext(SearchRec)== 0);
FindClose(SearchRec);
}

todaysoft · 2005-10-28