Discussion :

[syrald]

Bonjour,

J'ai besoin de copier le contenu d'un dossier vers un autre, donc j'utilise CopyFolder.
Le problème c'est que certains de mes dossiers font planter mon programme au milieu (un message d'erreur après avoir Freeze pendant quelques minutes). La copie ne se fait pas entièrement, dans mon dossier destination je n'ai qu'une partie du contenu du dossier source.

J'ai vu sur internet qu'il est possible que l'erreur vienne de la longueur du chemin du dossier source ou destination, et c'est vrai que le chemin est assez grand quand on va dans les fichiers au bout de mon dossier source.
Mais je n'ai pas trouvé de solution à ce problème, j'ai donc besoin de votre aide...

Voici mon code au cas où:

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
 
Dim GestionDossier As Scripting.FileSystemObject
Dim dossier As Object
 
Set Gestion Dossier = New Scripting.FileSystemObject
 
'BasePath & EssaiPath c'est ma source
'nameBDDTemp & NomPath & EssaiPath c'est ma destination
 
If GestionDossier.FolderExists(BasePath & EssaiPath) Then
     Set dossier = GestionDossier.GetFolder(BasePath & EssaiPath)
     dossier.copy nameBDDTemp & NomPath & EssaiPath
 
     Set dossier = Nothing
End If
 
Set GestionDossier = Nothing

Merci d'avance!

[MissTi]

Bonjour Syrad,
J'en sors tout juste de ce problème. J'utilise non pas copy mais copyfolder (plus clair, à mon sens).
A tester:

Code :

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

1
2
3
4
5
6
7
Set GestionDossier = New FileSystemObject
If GestionDossier.FolderExists(RepSauvegarde) Then
        GestionDossier.CopyFolder repSource, repDestination, True
 ElseIf Not GestionDossier.FolderExists(RepSauvegarde) Then
        GestionDossier.CreateFolder RepSauvegarde
        GestionDossier.CopyFolder repSource, repDestination, True
End If

note que tu as un espace dans " ... GestionDossier = New Scripting.FileSystemObject"

[syrald]

L'espace vient juste d'une erreur de recopiage ^^

Le problème c'est qu'avant d'écrire la version de code que j'ai, j'utilisais exactement la même chose que toi. Et pourtant ça ne fonctionnais pas non plus.
Je vais quand même ré-essayer si tu me dis que ça fonctionne chez toi.

Je te remercie pour l'aide

[syrald]

Du coup j'ai réessayé ta méthode mais toujours sans succès.

Mais je me pose plusieurs questions sur pourquoi ça ne fonctionne pas:
J'ai beaucoup de dossiers imbriqués dans d'autres, et ça peut arriver que j'essaye de copier beaucoup de fichiers/dossiers. Est-ce que la quantité peut faire planter le programme? Est-ce que la longueur de la chaîne source ou destination?

Si quelqu'un a une piste, voire une autre méthode de copie de dossier je suis preneur.