<%
'Bon ben on commence kom ds les autres parties:
Dim FSO,GD
Set FSO = CreateObject("Scripting.FileSystemObject")
'Apres(kom ds les 2 autres parties) faut dire sur koi vous voulez bosser
'On verra plus loin comment recup un nom de drive a partir d'un chemin...Mais patientez un peu!
Set GD = FSO.GetDrive("c:")
'L'espace total du disque(en octets bien entendu ;-))
GD.TotalSize
'L'espace restant sur le disque(vive les octets!)
GD.Free.Space
'ou
GD.AvailableSpace
'Le type de lecteur
GD.DriveType
'Renvoie un nombre
'1 : Lecteur de disquette
'2 : Disque Dur
'4 : CD-Rom
'Y'en a surement d'autres mais moi j'en ai pas d'autres alors...
'Si le lecteur est pret ou non
GD.IsReady
'Renvoie Vrai si il est pret et... Faux sinon!
'La lettre du lecteur
GD.DriveLetter
'Systeme de fichier
GD.FileSystem
'FAT...
'Renvoie le lecteur "Root"
GD.RootFolder
'Le nom du lecteur
GD.VolumeName
'Le nom de partage d'un lecteur résau
GD.ShareName
'Le chemin d'acces
GD.Path
'Et enfin le n° de série du lecteur
DG.SerialNumber
'J'ai failli oublier quelque chose, voici les 2 méthodes qui manquaient a ce tutorial
FSO.GetDrive([Drive]) 'Celle la on l'a vu tout au début c pour dire sur quel Drive on bosse
FSO.GetDriveName([Chemin]) 'On récupère le nom d'un lecteur grace a un chemin
'Mais faites gaffe ca s'utilise avec un objet FIleSystemObject!!
%>
<%'Voila une petite application qui regroupe tout ca et qui fait appel a la collection "drives" :%>
<HTML>
<HEAD>
<TITLE>Les drives</TITLE>
</HEAD>
<BODY>
<TABLE border=1>
<TR>
<TD>Lettre</TD>
<TD>Nom</TD>
<TD>Capacité total</TD>
<TD>Espace libre</TD>
<TD>Est-il pret?</TD>
<TD>Est-ce le "Root"?</TD>
<%
Dim FSO,GD
Set FSO = CreateObject("Scripting.FileSystemObject")
Set GD = FSO.Drives
For each Drive in GD
%>
<% If Drive.IsReady = "Vrai" then %>
<% = "<TR>" %>
<% = "<TD>" & Drive.DriveLetter & "</TD>" %>
<% = "<TD>" & Drive.VolumeName & "</TD>" %>
<% = "<TD>" & Drive.TotalSize & "</TD>" %>
<% = "<TD>" & Drive.FreeSpace & "</TD>" %>
<% = "<TD>" %>
<% If Drive.IsReady Then %><% = "Oui" %><% Else %><% = "Non" %><% End If %>
<% = "</TD>" %>
<% = "<TD>"%>
<% If Drive.DriveLetter = mid(Drive.RootFolder,1,1) then %><% = "Oui" %><% Else %><% = "Non" %><% End If %>
<% = "</TD>" %>
<% = "</TR>" %>
<% Else %>
<% = "<TR>" %>
<% = "<TD>" & Drive.DriveLetter & "</TD>" %>
<% = "<TD>-</TD>" %>
<% = "<TD>-</TD>" %>
<% = "<TD>-</TD>" %>
<% = "<TD>Non</TD>" %>
<% = "<TD>-</TD>" %>
<% = "</TR>" %>
<% End If %>
<% Next %>
</TABLE>
</BODY>
</HTML>