1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Fichier / Disque
  5. Listeur de fichiers

Listeur de fichiers

0/5 (6 avis)

Vue 4 798 fois - Téléchargée 435 fois


Télécharger le projet
Commenter

Description

Ce code permet de lister tous les fichiers d'un ou plusieurs disques. Il peut etre utile pour creer par exemple une recherche de fichiers.

Source / Exemple : 


2 Form

# Form FrmFolder :

Option Explicit

Public Cancel As Boolean
Public Folder As String

'---- OK
Private Sub cmdOK_Click()
    Cancel = False
    Folder = fld
    Me.Hide
End Sub

'---- Annulation
Private Sub cmdCancel_Click()
    Cancel = True
    Me.Hide
End Sub

'---- Changement de drive
Private Sub drv_Change()
    fld = drv
End Sub

'---- Initialisation
Private Sub Form_Load()
    On Error Resume Next
    Cancel = True
    drv = Folder
    fld = Folder
End Sub

# FrmMain

Option Explicit

' Le système de fichiers
Dim fso As New FileSystemObject
' Colonne d'affichage courante
Dim nCol As Integer
' Indicateur d'interruption
Dim fStop As Boolean
' Dossier courant
Dim CurrentFolder As String

'---- Choix d'un dossier
Private Sub cmdFolder_Click()
    ' Charge la boîte
    Load frmFolder
    ' Initialise
    frmFolder.Folder = CurrentFolder
    
    ' La montre
    frmFolder.Show vbModal
    
    ' Traite le résulata
    If Not frmFolder.Cancel Then
        ' Mémorise
        CurrentFolder = frmFolder.Folder
        
        ' Lance la recherche
        fStop = False
        cmdStop.Enabled = True
        lstFichiers.Clear
        
        ExploreFolder fso.GetFolder(CurrentFolder)
        
        cmdStop.Enabled = False
    End If
    
    ' Décharge
    Unload frmFolder
End Sub

Private Sub cmdAll_Click()
    fStop = False
    cmdStop.Enabled = True
    
    ' Boucle sur les disques
    Dim d As Drive
    For Each d In fso.Drives
        If fStop Then Exit For
        If d.IsReady Then
            lstFichiers.Clear
            ' Ajoute le nom du disque
            lstFichiers.AddItem d.Path
            nCol = 2
            
            ' Explore les dossiers
            ExploreFolder d.RootFolder
        End If
    Next
    
    cmdStop.Enabled = False
End Sub

'---- Explore un folder
Private Sub ExploreFolder(fld As Folder)
    ' Interruption
    If fStop Then Exit Sub
    
    ' Ajoute le nom du folder
    lstFichiers.AddItem String(nCol, ".") & fld.Name
    nCol = nCol + 1
    
    ' Affiche les fichiers
    Dim f As File
    For Each f In fld.Files
        With lstFichiers
        .AddItem String(nCol, ".") & f.Name
        .ListIndex = .NewIndex
        End With
        ' Pour détecter la touche d'arrêt
        DoEvents
    Next
    
    ' Traite les sous-dossiers
    Dim fld1 As Folder
    For Each fld1 In fld.SubFolders
        ExploreFolder fld1
    Next
    
    ' Ajuste colonne
    nCol = nCol - 1
End Sub

'---- Arrêt
Private Sub cmdStop_Click()
    fStop = True
End Sub

Conclusion :


Ce code n'est pas de moi :-) mais vous pouvez toujours m'envoyer des remarques ou des questions.
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
wallon14
Messages postés
56
Date d'inscription
vendredi 17 octobre 2003
Statut
Membre
Dernière intervention
3 juillet 2005
13 juin 2004 à 19:06
il serait interessant de créer un fichier texte contenant le resultat de la recherche.
cs_bruno333
Messages postés
1
Date d'inscription
mercredi 16 juillet 2003
Statut
Membre
Dernière intervention
3 novembre 2003
3 nov. 2003 à 16:56
ce code provient effectivement d'un cd mais qui etait fourni avec un livre "visual basic le guide du programmeur" au edition OEM

mdr
cs_Urgo
Messages postés
780
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
16 avril 2009
 1
1 févr. 2003 à 23:32
Une remarque : fait une capturre ! ;) lol
fbrt
Messages postés
39
Date d'inscription
lundi 25 février 2002
Statut
Membre
Dernière intervention
16 avril 2005
8 mars 2002 à 12:55
Non il vient d'un livre mais d'un CD rempli d'exemples intéressants.
fbrt
Messages postés
39
Date d'inscription
lundi 25 février 2002
Statut
Membre
Dernière intervention
16 avril 2005
8 mars 2002 à 12:55
Non il vient d'un livre mais d'un CD rempli d'exemples intéressants.
Afficher les 6 commentaires
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (fbrt)