поиск и лог

[hacknet]

привет всем... с поиском файлов разобрался, но есть проблема как узнать что поиск закончился и как можно вести лог к примеру в текстовом документе, где и какой файл был найден! если можно пример с файлом ".txt" можно с поиском по маске или как вам удобнее!) спасибо за внимание!

[p51x]

If the function fails because no more matching files can be found, the GetLastError function returns ERROR_NO_MORE_FILES.

Попытайтесь почитать документацию

[hacknet]

ребят ну кто нибудь поможет? буду сильно признателен!

и если можно еще... вот если файлы повторяются ну т.е на разных дисках с одним именем и расширением можно как то их пронумеровать?

[KAMENYKA]

Ну а вы как ищите? Если вы хотите услышать алгоритм так он прост как 3 копейки нашли файл, добавил запись в лог! если не получается что то в коде приведите пример как вы ищите тогда проще будет вам помочь!

[hacknet]

в том то и дело, что с поиском все нормально, ну обычный поиск файла по всему ПК, я не могу добавить запись т.е сохранить в файл, а уж темболее если есть повторяющиеся файлы, пронумеровать - добавить цифру... код не могу выложить так как сижу с телефона а на пк не инета(( живу далеко...ели сотовая связь работает)а уж инет на пк - как чудо света

[p51x]

Добавляйте в лог ПОЛНЫЙ путь и не будет повторяющихся.

[KAMENYKA]

Вешашь на форму невидимый Memo пишешь в него найденные файлы с путем или цифрами сам смотри как удобней, потом делаешь Memo.Lines.SaveToFile('D:\123.txt') ; и вот тебе лог, можешь разобраться со StringList но думаю мемо тебя устроит!

[hacknet]

логично)) но забыл упомянуть нужно эти файлы скопировать в папку уже пронумерованными ) и сохранить лог файл...

ну конечно мемо устроит... спасибо! ну вот сделал поиск, пути к файлам отобразились в мемо как их пронумеровать?))))) ребят скиньке код плзз

[KAMENYKA]

Если вы ищите бегая по циклу вообще не вижу проблемы!

i := 1;
Memo.Lines.Add('путь и имя файла' + inToStr(i))
inc(i)

Если нет кто вам потом мешает пробежаться по мемо и проставить нужные номера?

[hacknet]

ребят отрыл в инете поиск файлов, но почему при нажатии кнопки поиск делаеться только на диск С, дальше не идёт помогите решить проблему!?

function ScanDrive(root, filemask: string; hitlist: TStrings): Boolean; 

implementation 

function TForm1.ScanDrive(root, filemask: string; hitlist: TStrings): Boolean; 
  function ScanDirectory(var path: string): Boolean; 
  var 
    SRec: TSearchRec; 
    pathlen: Integer; 
    res: Integer; 
  begin 
    label1.Caption := path; 
    pathlen := Length(path); 
    { first pass, files } 
    res := FindFirst(path + filemask, faAnyfile, SRec); 
    if res = 0 then 
      try 
        while res = 0 do  
        begin 
          hitlist.Add(path + SRec.Name); 
          res := FindNext(SRec); 
        end; 
      finally 
        FindClose(SRec) 
      end; 
    Application.ProcessMessages; 
    Result := not (FScanAborted or Application.Terminated); 
    if not Result then Exit; 

    {second pass, directories} 
    res := FindFirst(path + '*.*', faDirectory, SRec); 
    if res = 0 then 
      try 
        while (res = 0) and Result do  
        begin 
          if ((Srec.Attr and faDirectory) = faDirectory) and 
            (Srec.Name <> '.') and 
            (Srec.Name <> '..') then  
          begin 
            path := path + SRec.Name + '\'; 
            Result := ScanDirectory(path); 
            SetLength(path, pathlen); 
          end; 
          res := FindNext(SRec); 
        end; 
      finally 
        FindClose(SRec) 
      end; 
  end; 
begin 
  FScanAborted := False; 
  Screen.Cursor := crHourglass; 
  try 
    Result := ScanDirectory(root); 
  finally 
    Screen.Cursor := crDefault 
  end; 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
var 
  ch: Char; 
  root: string; 
begin 
  root := 'C:\'; 
  for ch := 'A' to 'Z' do  
  begin 
    root[1] := ch; 
    case GetDriveType(PChar(root)) of 
      DRIVE_FIXED, DRIVE_REMOTE: 
        if not ScanDrive(root, edit1.Text, listbox1.Items) then 
          Break; 
    end; 
  end; 
end;