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
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.