[ferget]

Удалять *.exe файл, если есть одноименная скрытая папка »

сначала находите имена всех exe без расширения

Код:

TSearchRec sear;
AnsiString Path; 
AnsiString  Extension;
AnsiString  FileNoExt;  

    if(FindFirst(Path + "*.exe", faAnyFile, sear) == 0)
    {
        do
        { 
            Extension = ExtractFileExt(sear.Name);
            FileNoExt = Copy(sear.Name, 1, length(sear.Name) - length(Extension));
            ....................................
        }  
        while(FindNext(sear) == 0);
    }
 
    FindClose(sear);

затем находите папки faDirectory
сравниваете и удаляете не нужные

как-то так

[ddv122]

El Scorpio, спасибо
Все разобрался

Код:

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

А возможно ли ещё сделать удаление файлов по маске?*.lnk к примеру

[ferget]

Код:

TSearchRec sear;

    if(FindFirst(Path + "*.lnk", faAnyFile, sear) == 0)
    {
        do
        { 
            DeleteFile(sear.Name);
        }  
        while(FindNext(sear) == 0);
    }
 
    FindClose(sear);

[ddv122]

ferget, файлы находит но не удаляет

[ferget]

исправьте в коде

Код:

          DeleteFile(Path+"\\"+sear.Name);

[ddv122]

ferget, спасибо большое, не подскажите
что бы

Код:

 if(FindFirst(Path + "*.lnk", faAnyFile, sear) == 0)

Расширение указываем в коде программы, а возможно как сдесь

{ AnsiString DirPath = Edit1->Text; TStringList* ToDel = new TStringList(); ToDel->LoadFromFile("Spisok.txt"); »

что бы список брался с файла Spisok.txt
и можно было бы удалять не 1 расширение *.lnk а не сколько допустим ещё *.mp3 и *.wav

[ferget]

вам стоит подумать об использовании ini-файлов

пример ini

Код:

[directory]
//тут список папок для удаления
[files]
//тут список файлов для удаления
[ext]
//тут список расширений для удаления
*.mp3
*.lnk
*.wav

тогда будет для расширений

Код:

TIniFile *Ini = new TIniFile(путь к файлу .ini");
TSearchRec sear;
TStringList* ExtToDel= new TStringList();

ini->ReadSectionValues("ext", ExtToDel);

for (int i = ExtToDel ->Count-1; i >= 0; i--)
{
             if(FindFirst(Path + ExtToDel->Strings[i], faAnyFile, sear) == 0)
    {
        do
        { 
            DeleteFile(Path+"\\"+sear.Name);
        }  
        while(FindNext(sear) == 0);
    }
 
    FindClose(sear);
}

и для остальных аналогично

[ddv122]

Не удаляет почему то ярлыки

Код:

{
 AnsiString Path = Edit1->Text;
 TIniFile *Ini = new TIniFile("spisok.ini");
TSearchRec sear;
TStringList* ExtToDel= new TStringList();

Ini->ReadSectionValues("ext", ExtToDel);

for (int i = ExtToDel ->Count-1; i >= 0; i--)
{
             if(FindFirst(Path + ExtToDel->Strings[i], faAnyFile, sear) == 0)
    {
        do
        {
              DeleteFile(Path+"\\"+sear.Name);
        }
        while(FindNext(sear) == 0);
    }

    FindClose(sear);
}
}

sposok.ini

Код:

[directory]
\RESTORE\*
[files]
autorun.inf
[ext]
*.tmp
*.lnk
*.inf

[ferget]

в общем в Ini-файл надо записывать так

Код:

*.lnk=

а считывать

Код:

Ini->ReadSection("ext", ExtToDel);

[ddv122]

ferget, все ровно не работает

Код:

{
 AnsiString Path = Edit1->Text;
 TIniFile *Ini = new TIniFile("spisok.ini");
TSearchRec sear;
TStringList* ExtToDel= new TStringList();

Ini->ReadSectionValues("ext", ExtToDel);

for (int i = ExtToDel ->Count-1; i >= 0; i--)
{
             if(FindFirst(Path + ExtToDel->Strings[i], faAnyFile, sear) == 0)
    {
        do
        {
              DeleteFile(Path+"\\"+sear.Name);
        }
        while(FindNext(sear) == 0);
    }

    FindClose(sear);
}
}

и ini

Код:

[directory]
\RESTORE\*

[files]
autorun.inf

[ext]
*.mp3=
*.lnk=
*.inf=