problème boucle pour transfère fichiersRésolu

Question

voial,j'ai un probl&#232;me de transf&#233;re de fichiers dans des dossiers. Le probl&#232;me c'est que le programme marche les deux premi&#232;re fois (dans la boucle), et plante avec "erreur sur le chemain d'acc&#233;" au troisi&#232;me passage.
voila le code; (sachant que toute les variables osn t d&#233;clar&#233; 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&#233;but et &#224; la fin pour diff&#233;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&#233;rations termin&#233;s"

merci

PhilocheMan · Accepted Answer

Salut,
Je pense que tu essayes simplement de faire un MkDir alors que le r&#233;pertoire est d&#233;j&#224; existant, parce que tu as rencontr&#233; 2 fichiers avec la m&#234;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&#233;pertoire avant de le cr&#233;er...

A+

Problème boucle pour transfère fichiers

1 réponse

Discussions similaires