Scan des dossiers, sous-dossiers et fichiers d'un dossier

Question

Bonjour,

Code et explications

Public Dossier As Folder, Sousdossier As Folder, Fichier as File  'Définition  des types Folder et Files à choisir dans un menu déroulant de vb6

Private Sub Form_Load ()

Scan_Dossier "c:\MonDossier" 	'Sub qui liste tous les dossiers, sous-dossiers et fichiers du dossier "c:\MonDossier"

End Sub 

Sub Scan_Dossier(ByVal Dossier As Folder)  'Scan le Dossier -> "c:\MonDossier"
   
     Dim PlusDossier as Boolean 		'Evite de lister plusieurs fois le même sous-dossier si il contient plusieurs fichiers

    For Each Fichier In Dossier.Files 
        If PlusDossier = False Then 
         Set itmx = ListDoss.ListItems.Add(, , Dossier)	'Ajoute le nom d'un dossier à une ListView 'ListDoss' qu'il faut préalablement créée

 PlusDossier = True 
        End If 
        Set itmy = ListFich.ListItems.Add(, , Fichier) 	'Ajoute le nom d'un fichier à une ListView 'ListFich' qu'il faut préalablement créée

    Next 

    PlusDossier = False 
    For Each Sousdossier In Dossier.SubFolders 
         Scan_Dossier Sousdossier 		'Scan les sous-dossiers d'un dossier
    Next 
     
    Set itmx = Nothing 
    Set itmy = Nothing 
     
    Exit Sub

NHenry · Answer

Bonjour, 

Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).

Quelle est la question ?

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---
Mon site

Utilisateur anonyme · Answer

Bonjour,

Je soupçonne une problème avec la variable PlusDossier.

_____________
Kenji

lionyz · Answer

Bonjour,

Pour définir les types Folder et File il faut dans vb6
ajouter la référence Micosoft Scripting Runtime

Scan des dossiers, sous-dossiers et fichiers d'un dossier

3 réponses

Votre réponse

Discussions similaires