[ddv122]

{ AnsiString DirPath = Edit1->Text; 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) RemoveDir (ObjectName); (FileExists); DeleteFile (ObjectName); } delete ToDel; } »

У меня проблема в этом коде не удалят папку если в нем есть файлы, помогите исправить

[ferget]

вроде так

Код:

if (DirectoryExists)
{
      //тут можно вставить проверку пустая папка или нет
      DeleteDir(ObjectName);
      RemoveDir (ObjectName);
]

[ddv122]

ferget, [C++ Error] Unit1.cpp(152): E2268 Call to undefined function 'DeleteDir'
Ошибка, мне нужно удалять папку со всем содержимым(не зависимо пуста она или нет)

[ferget]

вот собственно DeleteDir

Код:

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;
}

[ddv122]

ferget, А как их совместить теперь??

[ferget]

вставьте функцию DeleteDir в файл перед вызовом

[ddv122]

ferget, я пробывл ошибки только одни

[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;
}

[ddv122]

ferget, спасибо), разобрался, нужно функцию было в начале программы и всё было бы ок),осталось сделать отчет по удаляемых файлов

Код:

if (DirectoryExists)
                {
                DeleteDir(ObjectName);
                RemoveDir (ObjectName);
memo->Lines->Add("Удален "+ ObjectName);
}

Но так выводит список всех файлов или 1 по списку но не как не удаляемого, как исправить как сделать отчет?

void __fastcall TForm1::WMDeviceChange(TMessage& Message)
в AnsiString disk в disk я получаю букву диска в правильном формате(F://) в автоматическом режиме при подключении флэшки

есть на форме где то 5 button в везде у них в начале указывалось так
AnsiString DirPath = Edit1->Text, FilePath;
Раньше я брал буквы дисков с Edit1
Но это не функционально, если подключаешь сразу несколько флэшек, а сейчас хочется это автоматизировать,но не загружая код, реально ли?

[ddv122]

Все доделал осталось сделать только удаление .*exe если есть одноименная скрытая папка

TSearchRec sear; AnsiString FileNoExt; AnsiString Path="E:\\Books\\Test\\ForBuilder\\temp"; if(FindFirst(Path +"\\"+ "*.txt", faAnyFile, sear) == 0) { do { FileNoExt = ChangeFileExt( sear.Name, " " ); LogMemo->Lines->Add(FileNoExt); } while(FindNext(sear) == 0); } FindClose(sear); »

Осталось сравнить их