problème tri de fichiers par extentionRésolu

Question

Bon, ca fait quelques heures que je m'enerve sur ce code et la je craque alors je vous le confi. Voila les donn&#233;es: J'ai un dossier que je choisis dans une DirListBox, dedans il y des fichiers divers (.doc, .xls, .txt etc...), en cliquant sur un bouton je suissuppos&#233; cr&#233;er un dossier par extention diff&#233;rentes dans le dossier principale, et mettre chaque fichier dans le dossier correspondant &#224; son type (sachant que les dossiers cr&#233;er portent comme nom l'extention, par exemple: doc, xls, txt)

Voila le code que j'ai mis sous le bouton:
quand je lance il bug et me met "indice en dehors de la plage" en pointant sur ExtFile = Tabl(UBound(Tabl))

merci de m'aider

PreviousFile = ""
direct = MainForm.DirList.Path
std = Dir(direct, vbNormal)
org = direct

'r&#233;cup&#233;rer l'extention
Tabl = Split(std, ".")
ExtFile = Tabl(UBound(Tabl))
MsgBox "travail en cour", vbMsgBoxSetForeground

While std <> PreviousFile
    PreviousFile = std
        For Each ExtFile In Tabl()
          MkDir direct & ExtFile
        Next
    Call D&#233;placerFichier(org & std, org & ExtFile & "")
    std = Dir(direct, vbNormal)
Wend

MsgBox "Op&#233;rations termin&#233;s", vbInformation

cs_Galain · Accepted Answer

Salut phenX
Si j'ai bien compris tu as un r&#233;pertoire avec des fichiers.Dans ce r&#233;pertoire tu veux cr&#233;er des sous-r&#233;pertoires qui portent comme nom l'extension des fichiers du r&#233;pertoire d'origine et y d&#233;placer tous les fichiers qui ont la m&#234;me extension 
Essaie ceci : pour moi cela fonctionne
Je mets l'extension entre 2 espaces pour diff&#233;rencier les extensions frm et frm1 par exemple car instr dans ce cas ne cr&#233;erait pas le r&#233;pertoire frm1 car frm existe d&#233;j&#224;

Une feuille form1,un bouton de commande Command1,une liste de lecteurs Drive1 et une liste de r&#233;pertoire Dir1

Dim repertoire As String
Dim fich As String
Dim ext As String
Dim extension As String
Dim sousrepertoire As String


Private Sub Command1_Click()


    repertoire = Form1.Dir1.Path + ""
    extension = " "    ' 1 espace
    Do
        fich = Dir(repertoire, vbNormal)
        If fich = "" Then Exit Do
        sousrepertoire = Right$(fich, Len(fich) - InStr(fich, "."))
        ext = " " & sousrepertoire & " "     ' 1 espace au d&#233;but et &#224; la fin pour diff&#233;rencier les extensions
        If InStr(extension, ext) = 0 Then
             MkDir repertoire & sousrepertoire
             extension = extension & ext & " "     ' 1 espace
        End If
        FileCopy repertoire & fich, repertoire & sousrepertoire & "" & fich
        Kill repertoire & fich
    Loop
End Sub


Private Sub Dir1_Change()
    
    repertoire = Form1.Dir1.Path
    
End Sub


Private Sub Drive1_Change()


    Dir1.Path = Drive1.Drive

End Sub

GRENIER Alain

BasicInstinct · Answer

salut;

les tableaux commencent &#224; 0
donc
ExtFile = Tabl(UBound(Tabl)-1)

 BasicInstinct

phenX · Answer

ca ne change rien....

cs_Willi · Answer

Salut,
Comment tu as d&#233;clar&#233; Tabl ?

phenX · Answer

Dim Tabl() As String

phenX · Answer

j'ai retravailler le code:

Option Explicit
Dim direct As String
Dim std As String
Dim org As String
Dim PreviousFile As String
Dim ExtFile As Variant
Dim Tabl() As String
Dim supr As String
Private Sub CmdContinu_Click()
ReDim Tabl(UBound(Tabl) - 1)

PreviousFile = ""
direct = MainForm.DirList.Path
std = Dir(direct, vbNormal)
org = direct
'r&#233;cup&#233;rer l'extention
Tabl = Split(std, ".")
ExtFile = Tabl()

MsgBox "travail en cour", vbMsgBoxSetForeground

While std <> PreviousFile
    PreviousFile = std
        For Each ExtFile In Tabl()
          MkDir direct & ExtFile
        Next
    Call D&#233;placerFichier(org & std, org & ExtFile & "")
    std = Dir(direct, vbNormal)
Wend

MsgBox "Op&#233;rations termin&#233;s", vbInformation

mais le probl&#232;me est toujours le m&#234;me

cs_Willi · Answer

Quelques petites corrections:

Dim ExtFile As String
......
ReDim Tabl(UBound(Tabl))
......
ExtFile = Tabl(UBound(Tabl)-1)

phenX · Answer

apr&#232;s les changement, il me pointe sur EXTFILE sur For.....Each et me met qu'il lui faut un type variant

phenX · Answer

et si je met DIM EXTFILE As VARIANT , la il me remet le message d'erreur de tou a l'heure

cs_Willi · Answer

Il y a beaucoup de chose &#224; modifier. Le but final de ce code est de faire quoi ?

PCPT · Answer

salut,

d&#233;sol&#233; j'ai m&#234;me pas tout lu, trop confut tout &#231;&#224;....

donne un exemple de ce que tu re&#231;ois au click (genre "machin.txt") et ce que tu voudrais obtenir ("DOSSIER_TXT").



&#224; savoir que Split n'est pas une solution miracle (consomme beaucoup de resource). sans compter qu'il faut un erase.

donc remplacer le tout par instrrev.

++

phenX · Answer

bravo! ca marche bien 
merci

Problème tri de fichiers par extention

12 réponses

Discussions similaires