phenX
Messages postés704Date d'inscriptionmercredi 4 mai 2005StatutMembreDernière intervention28 août 2012
-
15 mars 2006 à 11:28
PhilocheMan
Messages postés55Date d'inscriptionjeudi 28 juillet 2005StatutMembreDernière intervention23 mars 2006
-
15 mars 2006 à 12:13
voial,j'ai un problème de transfére de fichiers dans des dossiers. Le problème c'est que le programme marche les deux première fois (dans la boucle), et plante avec "erreur sur le chemain d'accé" au troisième passage.
voila le code; (sachant que toute les variables osn t déclaré plus haut)
repertoire = MainForm.DirList.Path + ""
If OptExt = True Then
Do
fich = Dir(repertoire, vbNormal)
If fich = "" Then Exit Do
repertoire = MainForm.DirList.Path + ""
extention = " " ' 1 espace
sousrepertoire = Right$(fich, Len(fich) - InStr(fich, "."))
ext = " " & sousrepertoire & " " ' 1 espace au début et à la fin pour différencier les extentions
If InStr(extention, ext) = 0 Then
MkDir repertoire & sousrepertoire
extention = extention & ext & " " ' 1 espace
End If
FileCopy repertoire & fich, repertoire & sousrepertoire & "" & fich
Kill repertoire & fich
Loop
MsgBox "Opérations terminés"
PhilocheMan
Messages postés55Date d'inscriptionjeudi 28 juillet 2005StatutMembreDernière intervention23 mars 20061 15 mars 2006 à 12:13
Salut,
Je pense que tu essayes simplement de faire un MkDir alors que le répertoire est déjà existant, parce que tu as rencontré 2 fichiers avec la même extension (en tout cas, c'est ce que je viens de tester avec ton bout de code...)
Il te faut rajouter un test sur l'existence du répertoire avant de le créer...