LISTER LES DOSSIERS DES DISQUES LOCAUX, AVEC LA MÉTHODE WMI + CLASSE COLLECTION

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 zip

06 mars 2007 01:49:02 :

* Rajout d'un Label + MousePointer en sablier pendant le chargement. * Affiche la Form avant le chargement (pour éviter de penser qu'il y aient des bugs).