Soyez le premier à donner votre avis sur cette source.
Vue 6 402 fois - Téléchargée 793 fois
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
6 mars 2007 à 22:42
++
6 mars 2007 à 22:41
@+
6 mars 2007 à 22:13
merci pour ton comm, je suis donc rassuré sur le bon fonctionnement de la source, car je n'ai pu le tester que sous 2 PC différent.
J'ai fait cette source pour m'habituer à utiliser WMI, en prévi d'une future source (+ intéressante, j'espère ;) )
@++
6 mars 2007 à 13:45
@+
6 mars 2007 à 05:13
La fonction liste les DD locaux, virtuels, réseaux et clés USB.
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.