Чистка флэшки

ddv122 · Конфигурация компьютера

Цитата ferget:

Код:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 AnsiString DirPath = "";
 TStringList* ToDel = new TStringList();
 ToDel->LoadFromFile("Spisok.txt");
 AnsiString ObjectName;
 for (int i = ToDel ->Count-1; i >= 0; i--)
 {
 ObjectName = DirPath+ToDel->Strings[i];
 if (DirectoryExists)
 {
 DeleteDir(ObjectName);
 RemoveDir (ObjectName);
 }else
 (FileExists);
 DeleteFile (ObjectName);
 }
 delete ToDel;
}
//---------------------------------------------------------------------------
bool DeleteDir(AnsiString DirName)
{
TSearchRec sr;
if (DirName.Length())
 {
 if (!FindFirst(DirName+"\\*.*",faAnyFile,sr))
 do
 {
 if (!(sr.Name=="." || sr.Name==".."))
 if (((sr.Attr & faDirectory) == faDirectory ) ||
 (sr.Attr == faDirectory))// найдена папка
 {
 FileSetAttr(DirName+"\\"+sr.Name, faDirectory );
 DeleteDir(DirName+"\\"+sr.Name);
 RemoveDir(DirName + "\\"+sr.Name);
 }
 else
 {
 FileSetAttr(DirName+"\\"+sr.Name, 0);
 DeleteFile(DirName+"\\"+sr.Name);
 }
 }
 while (!FindNext(sr));
 FindClose(sr);
 }
RemoveDir(DirName);
return true

»

Беда, так он очищает Всё с AnsiString DirPath = "Edit1->Text";
Т.е все папки с диска, а не со spisok.txt