IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Vos téléchargements VBScript Discussion :

[À télécharger] Fonction récursive de parcours d'un répertoire


Sujet :

Vos téléchargements VBScript

  1. #1
    Expert éminent sénior


    Profil pro
    Inscrit en
    juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : juin 2003
    Messages : 14 008
    Points : 19 890
    Points
    19 890
    Par défaut [À télécharger] Fonction récursive de parcours d'un répertoire
    Bonjour, Je vous propose un nouvel élément à utiliser : Fonction récursive de parcours d'un répertoir e



    Un code VBSCript, qui pourra vous servir de base pour créer vos fonctions récursives de gestions des fichiers d'un répertoire ( et de ses sous-répertoires)



    adaptez la fonction TraiteFichier à votre traitement.



    Qu'en pensez-vous ?

  2. #2
    Futur Membre du Club
    Profil pro
    Inscrit en
    janvier 2011
    Messages
    7
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : janvier 2011
    Messages : 7
    Points : 5
    Points
    5
    Par défaut
    Bonjour,

    C'est pile-poil le programme que je voulais mais en VBA. A noter dans ton programme une petite erreur dans dim oSubFloder au lieu de Dim oSubFolder.
    Merci encore, voilà une super base de travail pour moi qui commence la programmation.

    Eric


    Voilà l'adaptation du programme en VBA:


    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
    'Declaration
    Dim stRepInital 'Nom du répertoire à parcourir
    Dim oFSO, oFld, oSubFolder
     
    '==============================================
    'Fonction récursive de parcours d'un répertoire
    '==============================================
    'http://vb.developpez.com/telecharger/detail/id/797/Fonction-recursive-de-parcours-d-un-repertoire
     
    Sub ParcoursRepT()
        Call stRecInit
        Call ParcoursRep(stRepInital)
    End Sub
     
    Sub stRecInit()
        Set oFSO = CreateObject("Scripting.FileSystemObject")
        stRepInital = ThisWorkbook.Path 'lance à partir du repertoire ou il y a le code
    End Sub
     
    Sub ParcoursRep(ByVal stRep As String)
        MsgBox "Traite : " & stRep
        If oFSO.FolderExists(stRep) Then
        Set oFld = oFSO.GetFolder(stRep)
        MsgBox "Size :" & oFld.Size
            If oFld.SubFolders.Count > 0 Then 'Teste le nombre de sous-répertoire dans stRep
                MsgBox "Name :" & oFld.Path & "oFld.Count :" & oFld.SubFolders.Count
                For Each oSubFolder In oFld.SubFolders
                    ParcoursRep oSubFolder.Path 'appel récursif de la procédure
                Next
            Else
                If oFld.Files.Count > 0 Then 'Teste le nombre de fichier dans le sous-répertoire
                    MsgBox "Non Vide fichiers : " & oFld.Files.Count
                Else
                    MsgBox "===> A detruire ===> " & oFld.Name & "SubFolders.Count :" & oFld.SubFolders.Count
                End If
            End If
        End If
    End Sub

  3. #3
    Expert éminent sénior


    Profil pro
    Inscrit en
    juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : juin 2003
    Messages : 14 008
    Points : 19 890
    Points
    19 890
    Par défaut
    Merci EricS...

    j'ai corrigé et rajouté l'option Explicit, qui m'aurait permis de déceler cette erreur ( sans conséquence sur le fonctionnement du code) plus tôt.

    Cdt.

Discussions similaires

  1. fonction récursive de parcours en profondeur
    Par wzzz75 dans le forum Langage
    Réponses: 1
    Dernier message: 25/03/2015, 17h00
  2. Fonction récursive sur le parcours d'une arborescence
    Par MINNIEandMICKEY dans le forum Général Java
    Réponses: 4
    Dernier message: 24/12/2014, 11h34
  3. Problème de fonction récursive avec un TcxDBTreeList
    Par isachat666 dans le forum Composants VCL
    Réponses: 1
    Dernier message: 05/12/2005, 14h12
  4. [DEBUTANT MFC] Parcours d'un répertoire
    Par gwendo dans le forum MFC
    Réponses: 3
    Dernier message: 15/09/2005, 18h14
  5. Fonctions permettant la copie d'un répertoire
    Par benj63 dans le forum C++Builder
    Réponses: 6
    Dernier message: 17/06/2004, 09h41

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo