Discussion :

[pcvesoul]

Bonjour.

Comment connaître la lettre dédiée à un lecteur réseau ?

Merci d'avance.

[Megaxel]

Il y a sûrement plus simple, mais tu ne peux pas récupérer le résultat d'un NET USE envoyé dans un Shell ?

[bouley]

Bonjour,

Ce code met dans la liste toutes les lettres des lecteurs réseaux trouvés
Faire référence à Microsoft Scripting Runtime

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Form_Load()
Dim fso As Scripting.FileSystemObject
Dim dc As Scripting.Drives
Dim d As Scripting.Drive
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set dc = fso.Drives
 
    For Each d In dc
        '3 lecteur reseau
        If d.DriveType = 3 Then
         liste.AddItem d.DriveLetter
        End If
    Next
End Sub

@+

[pcvesoul]

Mon but est de connaitre la place disponible sur un serveur.

Je souhaite donc installer un petit programme sur ce serveur, l'executer, et donc ainsi récupérer la place disponible par la fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

GetDiskFreeSpace Lecteur, SectorsPerCluster, BytesPerSector, NumberOfFreeClusters, TtoalNumberOfClusters

=> D'où la nécessité de connaître cette lettre.

A moins qu'il y ait une solution plus simple ?

Merci pour les réponses.

[bouley]

Pour connaitre la place disponible sur ton lecteur reseau tu as la propriété

AvailableSpace Renvoie la quantité d'espace libre disponible pour un utilisateur sur le lecteur ou le partage réseau.

donc pour reprendre le code + haut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Form_Load() 
Dim fso As Scripting.FileSystemObject 
Dim dc As Scripting.Drives 
Dim d As Scripting.Drive 
 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set dc = fso.Drives 
 
    For Each d In dc 
        '3 lecteur reseau 
        If d.DriveType = 3 Then 
         liste.AddItem d.DriveLetter & " Place dispo: " & d.AvailableSpace
        End If 
    Next 
End Sub

@+

[pcvesoul]

Merci beaucoup.

Je vais tester cela dès que mon MSN aura finit de sonner.

Bonne journée.

[ouskel'n'or]

Merci Bouley, ça marche
Je m'en souviendrai

[Megaxel]

Ok, comme je le pensais, il y avait plus simple que ma solution toute pourrie.
Joli code, Bouley.