bonjour,
je cherche à faire un programme ( en delphi) qui serait capable de lire dans un fichier :
- une liste de mots clés
- un répertoire de départ
- un répertoire d´arrivée
avec ces informations, ce programme devrait pouvoir copier tous les fichiers dont le nom comporte un des mots-clés depuis le répertoire de départ ( et sous répertoires) vers le répertoire d´arrivée.

J´ai déjà effectué la première partie ( lecture dans le fichier).
La deuxieme partie ( recherche des fichiers à copier et leur copie) est plus délicate et je ne vois pas comment faire, si quelqu´un pouvait m´aider

merci d´avance

e moyen le plus simple, et le seul, sauf à tout reprogrammer, c´est d´utiliser les fonction de l´api win32 pour rechercher des fichier.

C´est pas super simple, mais si tu connait un peu le C, recherche les post de Tav sur ce même forum, où il s´en sers ce ui pourrait te donner des idée sur la manière de procéder.

merci, je vais faire une recherche de ce coté

pour ce qui est de l´api win32, j´ai trouvé très peu de doc interressante, si tu avais quelques liens a me suggérer ( l´anglais ne me dérange pas)...
merci

Les fonctions comme FindFirstFile et FindNextFile ( FindClose pour fermer le handle) pourront t´aider.

Voir :

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/fs/findfirstfile.asp
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/fs/win32_find_data_str.asp
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/fs/listing_the_files_in_a_directory.asp
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/fs/findnextfile.asp
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/fs/findclose.asp

Bonne chance,

Kali

merci beaucoup, je m´y attèle de suite ; )

merci, ca marche impecable, je vous laisse un morceau du code au cas ou cela interresserait quelqu´un :

procedure findfichiers ( chemin,nom,nvchemin : string);
var
test : WIN32_FIND_DATA;
lb : longbool;
dwError : DWORD;
hFind : integer;
begin
/ /init
hFind := INVALID_HANDLE_VALUE;
lb := true;

hFind := FindFirstFile(PChar(chemin + nom),test);

if ( hFind = INVALID_HANDLE_VALUE) then
begin
writeln ( ´Invalid file handle. Error is ´ + inttostr(GetLastError()));

end
else
begin
writeln ( ´Le premier fichier : ´ + test.cFileName);
/ /copie du fichier
CopyFile(PChar(chemin + test.cFileName),PChar(nvchemin + test.cFileName),lb);

while ( FindNextFile(hFind, test)) do
begin
writeln ( ´Le prochain fichier : ´ + test.cFileName);
/ /copie du fichier
CopyFile(PChar(chemin + test.cFileName),PChar(nvchemin + test.cFileName),lb);
end;

dwError := GetLastError();

if ( dwError < > ERROR_NO_MORE_FILES) then
begin
writeln ( ´FindNextFile error. Error is ´ + inttostr(dwError));

end
end;

/ /FindClose(hFind);

end;

Juste pour info, Delphi contient les fonctions FindFirst, FindNext, . .. Pas besoin d´utiliser une API

J´avais à une époque des sources de prog Pascal ( utilisable en Delphi) de copie de fichier(s) voir même de copie de dossier(s) avec ou sans leur contenu.
Mais j´ai peur de ne plus savoir ou ils sont, car ça fait un bail que je n´ai pas programmé en Delphi. Et vu la tonne de CD et DVD d´archivage de données que j´ai, il va me falloir plusieurs vies pour les retrouver. Enfin, je vais essayer.