FICHIERS ET REPERTOIRES

J' essaie de faire un programme a besoin de copier des fichiers ou des repertoires contenants d autres repertoires, pour les fichiers c'est bon mais je seche sur les repertoires, de l'aide serait bienvenue !

en cherchant pas trop loin, on pourrais simplement faire un shellexecute sur les commandes systeme COPY et MOVE

bien entendus, il existe des moyens plus adequate, il te suffit de faire une petite recherche sur le forum et dans les codes sources, choses que tu n'a pas du faire.

Comme f0xi l'a dit, sur le forum tu aurais surement trouvé la solution à ton problème. Enfin un petit bonjour est toujour plus sympa...

---

La paresse est la mère du génie...

Si tu sais copier un fichier alors tu peux combiner çà avec les fonctions recursive FindFirst, FindNext.

Je n'ai pas Delphi sous la main donc j'ai pas pu te faire la fonction, mais j'ai repris un bout de code de ma source http://www.delphifr.com/codes/NETTOYEUR-FICHIERS_32817.aspx et j'te l'ai modifier un peu au NotePad, donc dsl si c pas parfait mais avec çà tu pourra faire ton système :


procedure ElgCopieFichiers( NomDossier : string );
var 
    hFind : TSearchRec;
begin 
 
  // IncludeTrainingBackSlach()  : cherche cette fonction dans l'aide
  // delphi car je ne sais plus comment elle s'ecrit

    NomDossier := IncludeTrainingBackSlach(NomDossier);
 
    if FindFirst( NomDossier + '*.*', FaAnyFile, hFind ) = 0 then
    begin
    
        repeat
 
            if (hFind.Name <> '.') and (hFind.Name <> '..') then
            begin
 
                if ( hFind.Attr and faDirectory ) <> faDirectory then { c'est un fichier = copie }
                begin
 
   // ici tu fait ta copie
                        // Nom du fichier source etant : NomDossier + hFind.Name
               end
               else
               begin
  
                // là tu crée ton repertoire destination
                // ici à toi de géré la varaible "RepertoireDestination " qui peut etre C:

                MakeDirectory( RepertoireDestination + hFind.Name )
   
                // Et  un peu de recursivité, ce qui nous permet
                // d'aller copier ensuite les fichier qui sont dedans
               ElgCopieFichiers( IncludeTrainingBackSlach(NomDossier) + hFind.Name );
 
              end;
           end; 
  
        until FindNext(hFind) <> 0;
 
        FindClose(hFind);
        Application.ProcessMessages
 
    end;
 
end;

Donc en gros tu donne le chemin de depart, si c'est un fichier çà le copie, si c'est un dossier çà le crée dans la destination, et ensuite çà va dans le repertoire trouver par recursivité et çà recommence.

Je te conseille plutot cete methode que celle de fOxi.
Et je suis d'ailleur surpris que fOxy te donne un conseil comme celui-là, car son niveau merite mieux que d'utiliser cette methode Sale qu'est l'appel au ShellExecute !!!

PS : N'utiliser pas ShellExecute pour appeler des commandes DOS... c'est CRADEEE !!!

Voila, si ta des soucis, demande, j'essayerai de voir ce que je peux faire, mais pas avant Mardi.

Bon Week End, ++

non elguevel tu as mal compris la reponse que j'ai faite.

comme apparement notre amis est un debutant, il faut d'abord lui montrer ce qu'il ne faut pas faire ...
et aussi qu'il cherche de part lui meme sur les codes car je sais que de nombreux codes possedent  de trés interressante routines de ce types.

donc comme je n'avais pas envie d'approfondir, ma reponse fut celle-ci.

Salut,

Merci beaucoup pour ta réponse, je teste tout ça demain et je tiens au courant des résultats.

Dom

Salut,

On m a justement déconseillé de faire avec des commandes DOS et sur le forum, j'ai trouvé pleins de choses utiles pour les fichiers mais pas sur les répertoires.

Merci pour ta réponse tout de même.

Dom

Salut,

Autant pour moi pour le bonjour !!!

J'ai tout de même fouillé le forum avant de faire cette demande, et comme j'ai répondu a FOxi, je n'ai trouvé desz infos que sur les répertoires !

Merci pour ta réponse tout de même !

Dom.

Désolé foXi pour avoir douté :-D Sinon pour la copie de fichier si tu veux quelque chose de mieux, j'avais utiliser çà dans une des mes applis. C'est de l'API windows. // çà c'est pour copier ton fichier : CopyFileEx( PChar( IncludeTrailingPathDelimiter(ExtractFilePath(Source)) + hFind.Name ), PChar(IncludeTrailingPathDelimiter(Destination) + hFind.Name), @CopyCallBack, ProgressB, @Retour, 0 ); // Et çà c'est la fonction qui va avec. { Affichage progressBar } function CopyCallBack( TotalFileSize: LARGE_INTEGER; TotalBytesTransferred: LARGE_INTEGER; StreamSize: LARGE_INTEGER; StreamBytesTransferred: LARGE_INTEGER; dwStreamNumber: DWord; dwCallbackReason: DWord; hSourceFile: THandle; hDestinationFile: THandle; ProgressBar : TProgressBar ) : DWORD; stdcall; begin if dwCallbackReason = CALLBACK_STREAM_SWITCH then TProgressBar(ProgressBar).Max := TotalFileSize.QuadPart; TProgressBar(ProgressBar).Position := TotalBytesTransferred.QuadPart; Result := PROGRESS_CONTINUE; end; Cà permet de copier des fichiers et de pouvoir afficher une progressBar via une fonction CallBack. Aller Bon Cod',++