dans mon appli access je fais appel =E0 un lecteur r=E9seau et=20
je voudrais tester si le lecteur reseau est branch=E9 ou=20
disponible .
quel est le code que je dois employer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
fabienne.huïez
Voici un bout de code à placer dans un module. Liste tous les lecteurs réseaux.
'la référence Microsoft WMI.Scritping V1.1 Librairy doit être cochée. 'dispo sous c:winntsystem32wbemwbemdisp.TLB
Public Sub GetAllDrives() Dim objs As WbemScripting.SWbemObjectSet Dim obj As WbemScripting.SWbemObject Set objs = GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_LogicalDisk WHERE DriveType=4") For Each obj In objs 'Debug.Print obj.Name & obj.GetObjectText_ : donne tous les objets que l'on peut demander 'Debug.Print obj.Name & obj.ProviderName If obj.ProviderName = "CIABSQM" Then 'Debug.Print obj.Name LecteurReseauRepPartage = obj.Name End If Next obj End Sub
fabienne
-----Message d'origine----- bonjour
dans mon appli access je fais appel à un lecteur réseau et
je voudrais tester si le lecteur reseau est branché ou disponible . quel est le code que je dois employer .
Voici un bout de code à placer dans un module.
Liste tous les lecteurs réseaux.
'la référence Microsoft WMI.Scritping V1.1 Librairy doit
être cochée.
'dispo sous c:winntsystem32wbemwbemdisp.TLB
Public Sub GetAllDrives()
Dim objs As WbemScripting.SWbemObjectSet
Dim obj As WbemScripting.SWbemObject
Set objs = GetObject("winmgmts:").ExecQuery("SELECT *
FROM Win32_LogicalDisk WHERE DriveType=4")
For Each obj In objs
'Debug.Print obj.Name & obj.GetObjectText_ : donne
tous les objets que l'on peut demander
'Debug.Print obj.Name & obj.ProviderName
If obj.ProviderName = "\CIABSQM" Then
'Debug.Print obj.Name
LecteurReseauRepPartage = obj.Name
End If
Next obj
End Sub
fabienne
-----Message d'origine-----
bonjour
dans mon appli access je fais appel à un lecteur réseau
et
je voudrais tester si le lecteur reseau est branché ou
disponible .
quel est le code que je dois employer
.
Voici un bout de code à placer dans un module. Liste tous les lecteurs réseaux.
'la référence Microsoft WMI.Scritping V1.1 Librairy doit être cochée. 'dispo sous c:winntsystem32wbemwbemdisp.TLB
Public Sub GetAllDrives() Dim objs As WbemScripting.SWbemObjectSet Dim obj As WbemScripting.SWbemObject Set objs = GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_LogicalDisk WHERE DriveType=4") For Each obj In objs 'Debug.Print obj.Name & obj.GetObjectText_ : donne tous les objets que l'on peut demander 'Debug.Print obj.Name & obj.ProviderName If obj.ProviderName = "CIABSQM" Then 'Debug.Print obj.Name LecteurReseauRepPartage = obj.Name End If Next obj End Sub
fabienne
-----Message d'origine----- bonjour
dans mon appli access je fais appel à un lecteur réseau et
je voudrais tester si le lecteur reseau est branché ou disponible . quel est le code que je dois employer .
