Fonctions permettant la copie d'un répertoire

Version imprimable

Bonjour,

J'ai créé une fonction pour copier une liste de fichiers d'un répertoire, vers un autre répertoire, en écrasant les anciens fichiers du répertoire de destination.
Code:

1 2 3 4 5 6 7 8 9 10 11 void __fastcall CopierFichiers(String rep_source, String rep_dest) { SHFILEOPSTRUCT FileOpStr; ZeroMemory(&FileOpStr, sizeof(FileOpStr)); FileOpStr.hwnd = Application->Handle; FileOpStr.fFlags = FOF_NOCONFIRMATION; FileOpStr.wFunc = FO_COPY; FileOpStr.pFrom = rep_source.c_str(); FileOpStr.pTo = rep_dest.c_str(); SHFileOperation(&FileOpStr); }
Je l'utilise ainsi :

Code:

CopierFichiers("C:\\Un rep bidon\\fichiers\\*.*", "E:\\Une destination");

J'ai beau changer le répertoire d'entrée, de sortie, les anti-slashs, étoiles, etc etc... A chaque fois, il me répond "Impossible de copier fichier : impossible de lire à partir du fichier source ou de la disquette".

Le plus étonnant, c'est que l'utilisation de cette fonction dans un autre programme fonctionnait SANS AUCUN PROBLEME, et que je réussisais bien à copier un répertoire et ses sous-répertoires dans un autre répertoire. 8O

Que faire ? Auriez-vous des idées concernant ce problème ? Ou peut-etre connaissez-vous une autre fonction pour copier le contenu entier d'un répertoire dans un autre ?

Merci par avance !!

Et plus... je viens de tenter de faire la fonction différemment :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 void __fastcall CopierFichiers(String rep_source, String rep_dest) { TSearchRec Fichier; if(FindFirst(rep_source+"*.*", faAnyFile, Fichier) == 0) { do CopyFile(String(rep_source + Fichier.Name).c_str(), rep_dest.c_str(), false); while(FindNext(Fichier) == 0); FindClose(Fichier); } }
ça ne marche pas mieux, CopyFile renvoie 0 à chaque fois et ne me copie rien du tout !!! Alors que si je copie les fichiers à la main dans l'explorateur Windows... ça fonctionne sans problème...

D'où cela peut-il venir ?! :help:

Merci pour vos idées !!

24/11/2003, 20h37
jmsd

J'ai testé tes méthodes
la 1ère méthode classique tout est ok, elle fonctionne corectement je vois pas où se situe le problème ( surement sur tes fichiers )
la seconde fonctionne aussi tu as juste omis de préciser le nom du fichier dans ton CopyFile

Code:

, (rep_dest+ Fichier.Name).c_str(),

voila ...

Merci, je n'avais pas vu cette erreur dans la 2ème fonction !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
void __fastcall CopierFichiers(String rep_source, String rep_dest)
{
TSearchRec Fichier; 
 
if(FindFirst(rep_source+"*.*", faAnyFile, Fichier) == 0)
{
        do
        {
                if(String(Fichier.Name).Length()>2)
                        CopyFile(String(rep_source + Fichier.Name).c_str(), String(rep_dest + Fichier.Name).c_str(), false);
        }
        while(FindNext(Fichier) == 0);
        FindClose(Fichier); 
}
 
}

Bon, j'utiliserai celle-ci puisqu'elle fonctionne, mais je ne comprends pas malgré tout pourquoi la 1ere fonction renvoyait toujours ce message d'erreur... :?

J'ai changé 2-3 choses dans ma fonction pour qu'elle soit récursive et qu'elle copie les fichiers dans tous les sous-répetoires du répertoire donné... Pour ceux que ça intéresse :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
void __fastcall CopierFichiers(String rep_source, String rep_dest)
{
TSearchRec Fichier;
 
if(FindFirst(rep_source+"*.*", faAnyFile, Fichier) == 0)
{
   do
   {
      CopyFile(String(rep_source + Fichier.Name).c_str(), String(rep_dest + Fichier.Name).c_str(), false);
      if ((Fichier.Attr==faDirectory) && (Fichier.Name != '.')&& (Fichier.Name != ".."))
      {
          ForceDirectories(rep_dest+ Fichier.Name+"\\");
          CopierFichiers(rep_source+ Fichier.Name+"\\", rep_dest+ Fichier.Name+"\\");
      }
   }
   while(FindNext(Fichier) == 0);
   FindClose(Fichier); 
}
}

16/06/2004, 13h58
fgrandjean

Bonjour,
permettez-moi d'ajouter une légère modification:

Code:

if ((Fichier.Attr==faDirectory) && (Fichier.Name != '.') && (Fichier.Name != ".."))

devrait être

Code:

if (((Fichier.Attr & faDirectory)==faDirectory) && (Fichier.Name != '.') && (Fichier.Name != ".."))

car si un répertoire est caché, read-only ou autre, il ne serait pas copié!
17/06/2004, 08h41
yarp

La raison pour laquelle ta fonction ne marche pas est que les paramètres pFrom et pTo de SHFileOperation acceptent des strings avec comme separateur \0 et pour le dernier \0\0. Il te manque donc un \0 pour completer chaque parametre.
AnsiString c'est bien, mais Windows préfère char* :)

Donc parfois cela fonctionne parfois pas tout depends de la mémoire, voila pourquoi dans certains programmes cela fonctionne et dans d'autres pas.

Ceci dit pas de doute, pour ce genre d'opérations c'est SHFileOperation qu'il faut utiliser et surtout pas FindFirstFile et autres ersatz.