Place disponible sur lecteur

[atlantique444]

Bonjour je cherche à trouver le code qui puisse me donner sur EXCEL 2003, la place disponible sur un lecteur distant (on l'appelera F)

Car en fonction de la place disponible, je pourrai y affecter un message d'alerte.

Merci

 

[Guest]

Re : Place disponible sur lecteur

Bonjour,

Adaptation d'un exemple de la MSDN (base de connaissance Microsoft):

Function ShowFreeSpace(drvPath)
   Dim fso, d, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set d = fso.GetDrive(fso.GetDriveName(drvPath))
   s = "Drive " & UCase(drvPath) & " - "
   s = s & d.VolumeName & vbCrLf
   s = s & "Free Space: " & FormatNumber(d.FreeSpace / 1024, 0)
   s = s & " Kbytes"
   ShowFreeSpace = s
End Function
 
'Utilisation
Sub truc() 
   MsgBox ShowFreeSpace("c:\")
End Sub

Je ne sais si cela fonctionne sur les lecteurs distants. Dis le nous.

bonne journée