Lister les dossiers des disques locaux, avec la méthode wmi + classe collection

Télécharger le projet
Commenter

Description

Cette source sert à lister tous les dossiers des disques locaux.
Selon le choix du Disque, les dossiers sont proprosés dans une liste, puis après choix, quelques infos s'affichent.
(possiblité d'en mettre plus, dites le si vous êtes intéressés)

Je vais essayer de rajouter aussi les fichiers.

Source / Exemple : 


Public Function Add(ByVal Drive As String, ByVal FolderType As String, _
                    ByVal Hidden As String, ByVal Name As String, _
                    ByVal Path As String, ByVal Readable As String, _
                    ByVal Writable As String) As clsInfoFolder
                    
    Dim NewInfos         As New clsInfoFolder
    Static Counter       As Long
    Static sDriveTemp    As String
   
    If sDriveTemp <> Drive Then
        Counter = Counter + 1
        sDriveTemp = Drive
        mcolDrive.Add Drive, CStr(Counter)
        ReDim Preserve mcolNewInfos(Counter)
    Else
        With NewInfos
           .ID = Path
           .sDrive = Drive
           .sFolderType = FolderType
           .sHidden = Hidden
           .sName = Name
           .sPath = Path
           .sReadable = Readable
           .sWritable = Writable
           mcolNewInfos(Counter).Add NewInfos
        End With
        Set Add = NewInfos
    End If
End Function
Télécharger le projet

Codes Sources

A voir également

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 (mortalino)