observation des disques

Page d'observation des disques

programme créé par IRENEE Patrick

source :

REM programme cree par IRENEE Patrick
REM programme d'observation des disk

dim fs, d, s, dc
set fs = createobject("scripting.filesystemobject")
set dc = fs.drives
on error resume next
for each d in dc
rem set d = fe.getdrive(fs.getdrivename(drvpath))
s = "drive " & d.driveletter & ": - "
if d.drivetype = remote then
s = s & d.sharename & vbcrlf
else
s = s & d.sharename & vbcrlf
end if

s = s & "espace libre: " & formatnumber(d.freespace/1024, 0)
s = s & " ko sur " & formatnumber(d.totalsize/(1024*1024),0) & " mo" & vbcrlf
s = s & "n° serie : " & d.serialnumber & vbcrlf
s= s & "type : "
select case d.drivetype
case 0: s = s & "inconu"
case 1: s = s & "amovible"
case 2: s = s & "fixe"
case 3: s = s & "réseau"
case 4: s = s & "cd rom"
case 5: s = s & "ram disk"
end select
msgbox s
next