各位大虾，问一个初级问题。为什么删除不了文件？代码如下：(100分)

翱

翱翔雨天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-21

• #1

if(DirectoryExists(Dir))
{
filecount=GetFile(Dir,MSCFileList);
filecount=0;
for(i=0;i<MSCFileList->Count;i++)
{
if(FileExists(MSCFileList->Strings))
{
Label2->Caption=MSCFileList->Strings;
Label4->Caption=MSCFileList->Strings;
StatusBar1->SimpleText="正在处理："+MSCFileList->Strings+"...";
MSCFile->Clear();
MSCFile->LoadFromFile(MSCFileList->Strings);
state=TraceMSCData(MSCFile,OutPath,MSCFileList->Strings);
if(state==5)
{
WorkListBox->Items->Add("文件 "+ExtractFileName(MSCFileList->Strings)+" 转换完毕");
filecount++;
}
}
}
StatusBar1->SimpleText="处理完毕。共转换了"+IntToStr(MSCFileList->Count)+"个文件，"+IntToStr(filecount)+"个文件成功。";
//-----------------------删除临时文件-------------------------------
if(FindFirst(Dir+"//*.*",faAnyFile,SearchRec)==0)
{
if(DeleteFile(Dir+"//"+SearchRec.Name))
ShowMessage(10);
FindClose(SearchRec);
}
while(FindNext(SearchRec)==0)
{
DeleteFile(Dir+"//"+SearchRec.Name);
FindClose(SearchRec);
}
RemoveDir(Dir);
}
else
{
Application->MessageBox("目的路径有问题，请重新选择！","MSC DataTrace",MB_ICONWARNING);
}
//-----------------------------------------------------------------
delete MSCFile;

 

翱

翱翔雨天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-23

• #2

[][]各位帮帮忙呀，我也很困惑！

 

L

luyear

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-23

• #3

是不是文件處理後沒有關閉啊

 

H

heipi2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-23

• #4

"//*.*"改成"/*.*"试试！

 

翱

翱翔雨天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-23

• #5

不是呀，目录里面的文件已经全删除了，就目录删除不了。

 

S

siyan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-23

• #6

把findclose放在removedir前试试

 

G

gougou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-23

• #7

RemoveDir()
　　原型：extern PACKAGE bool __fastcall RemoveDir(const AnsiString Dir);
　　功能：删除目录，如果成功返回true，否则返回false
　　参数：Dir:要删除的目录名
　　例：if(DiectoryExists("ASM"))RemoveDir("ASM");

 

翱

翱翔雨天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-24

• #8

为什么这种坡问题总让我碰上，各位辛苦了，我觉得是资源没释放的问题，可我不知道，是那里占用了。