[ferget]

Код:

if(FindFirst(Path +"\\"+ ExtToDel->Strings[i], faAnyFile, sear) == 0)

[ddv122]

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

Код:

AnsiString Path = Edit1->Text;

Путь вида там: F://

[ferget]

Путь вида там: F:// »

путь должен быть F:\\
и тогда

Код:

if(FindFirst(Path + ExtToDel->Strings[i], faAnyFile, sear) == 0)

[ddv122]

путь должен быть F:\\ »

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

Код:

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;

Путь вида F:// в этом коде работает

путь должен быть F:\\ »

Я и так пробовал , но не чего не удаляет

[ferget]

проверил

вот код

Код:

  TSearchRec sear;
          TStringList* ExtToDel= new TStringList();
          AnsiString Path =   Edit1->Text;
          TIniFile* Ini = new TIniFile(ExtractFilePath( Application->ExeName ) +"spissok.ini");

          Ini->ReadSection("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);
}
delete ExtToDel;
 delete Ini;

все удаляет

[ddv122]

ferget, Спасибо большое!!!Все удаляет ,нужно было добавить IniFile* Ini = new TIniFile(ExtractFilePath( Application->ExeName ) +"spisok.ini");
А еще не подскажите, как сделать лог работы удаления?
к примеру в memo
21.02.2012 21:25:03 - удалено F:\autorun.inf, размер: 0 б
И ещё раз спасибо!Что бы я без вас делал.

[ddv122]

FileNoExt = Copy(sear.Name, 1, length(sear.Name) - length(Extension)); »

[C++ Error] Unit1.cpp(30): E2268 Call to undefined function 'Copy'
Не где о этой функии не чего в интернете не нашел

[ferget]

ошибочка вышла

Код:

FileNoExt = ChangeFileExt( sear.Name, " " );

[ddv122]

FileNoExt = ChangeFileExt( sear.Name, " " ); »

мы получаем полное имя файла, а нам нужно без расширения

Вот поиск папок

Код:

AnsiString Path = Edit1->Text;
 TSearchRec sear;

    TSearchRec SR;
    if (FindFirst(Path +"\*.*", faDirectory, SR) == 0) {
        do {
            if (SR.Attr == faDirectory)
                memo->Lines->Add("Ïàïêà :"+ SR.Name);
        } while (FindNext(SR) == 0);
        FindClose(SR);
    }
    }

[ferget]

мы получаем полное имя файла, а нам нужно без расширения »

так и получаем без расширения
вот проверил

Код:

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