Discussion :

[benj63]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

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 !!

[benj63]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?!

Merci pour vos idées !!

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

voila ...

[benj63]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[benj63]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fgrandjean]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

devrait être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é!

[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.