Discussion :

[bianconeri]

Bonjour...

connaissez vous par hasard une fonction qui permet de copier un répertoire complet ansi que son contenu (sous-rep + fichier) vers un autre endroit ??? Du style CopyFile ou mais pour des répertoires.

Si cela n'existe pas qqun aurai une soltion pour réaliser ceci...

Merci et bonne Paques à vous (<- En retard je sais !!!)

[tazamorte]

Voici la fonction que j'utilise pour faire ceci car il n'existe aucune fonction deja prévu

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
 //-----------------------------------------------------------------------------------
  /*Permet de copier un répertoire qui n'est pas vide fonction recursive
en C renvoit un bool pour savoir si cela c bien passé*/
bool  __fastcall CopyFilesFromDir( LPSTR pszPath,LPSTR pszPathDir)
{
        WIN32_FIND_DATA strcFindData;
        HANDLE          hFind;
        char            szSearchPath[MAX_PATH];
 
        strcpy( szSearchPath, pszPath );
        strcat( szSearchPath, "\\*" );
 
        hFind = FindFirstFile( szSearchPath, &strcFindData );
 
        if( hFind == INVALID_HANDLE_VALUE )
            return(FALSE);
 
        do {
            if( strcFindData.cFileName[0] == '.' &&
              strcFindData.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY )
                continue;
 
            if( strcFindData.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY ) {
                char    szNewPath[MAX_PATH];
                char    szNewPathDir[MAX_PATH];
 
                strcpy( szNewPath, pszPath );
                strcat( szNewPath, "\\" );
                strcat( szNewPath, strcFindData.cFileName );
 
                strcpy( szNewPathDir, pszPathDir );
                strcat( szNewPathDir, "\\" );
                strcat( szNewPathDir, strcFindData.cFileName );
                mkdir (szNewPathDir);
 
                if( ! CopyFilesFromDir( szNewPath,szNewPathDir ) ) {
                    return(FALSE);
                }
            } else {
                char    szFileName[MAX_PATH];
 
                strcpy( szFileName, pszPath );
                strcat( szFileName, "\\" );
                strcat( szFileName, strcFindData.cFileName );
 
                char    szFileNamesource[MAX_PATH];
                strcpy( szFileNamesource, pszPathDir );
                strcat( szFileNamesource, "\\" );
                strcat( szFileNamesource, strcFindData.cFileName );
                if( ! CopyFile( szFileName,szFileNamesource,FALSE ) ) {
                    return(FALSE);
                }
            }
        } while( FindNextFile( hFind, &strcFindData ) );
 
        FindClose( hFind );
 
        return(TRUE);
}

[bianconeri]

EXCELLENT !!! BRAVO !!!

[tazamorte]

merci et bonne continuation et vive l'entraide

[kilian]

Bonjour,
je remercie tazamorte pour son script cependant j'ai essayé de l'utiliser mais sans succès


je ne suis pas du tout certain si je dois l'appelé de cette façon. ( argument ?! )

Code :

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

1
2
3
4
5
LPSTR asSource, asDest;
 asSource="C:\\Temp\\";
 asDest="C:\\Temp2\\";
 
CopyFilesFromDir(asSource ,asDest);

mais lorsque je souhaite lancer l'application, j'ai une erreur de Lieur

[Lieur Erreur] Unresolved external 'TForm1::CopyFilesFromDir(char *, char *)' referenced from C:\SAUVEGARDE\UNITSAVE.OBJ

Cela vient du type de mes arguments ? Je ne connais pas du tout le type LPSTR, j'avais essayé avec de l'AnsiString mais sans succès.

Avez vous une idée ? Merci beaucoup pour votre aide.

[BigMike]

Vu comment la fonction est écrite, je pense que tu n'as pas besoin de mettre le '\\' à la fin du nom de tes répertoires. Tu l'écris comme ça :

Code :

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

CopyFilesFromDir("C:\\Temp" ,"C:\\Temp2");

Je ne pense pas que ça résolve l'erreur mais c'est toujours ça...

Tu as mis ta fonction dans ta Form1, mais tu l'appelles à partir de quelle Form ?
Par exemple si tu l'appelles de la Form2, tu dois mettre :

Code :

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

Form1->CopyFilesFromDir("C:\\Temp" ,"C:\\Temp2");

A voir...