Tout sur filesystemobject (partie iii : les lecteurs)

Commenter

Contenu du snippet

G un peu tardé à faire cette partie mais j'avais un peu la flemme...Et oui personne n'est parfait!
Fallait bien que je la fasse alors la voila...

Source / Exemple : 


<%
'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>

Conclusion :


Voila,voila...
@++
vbtom.

PS:Laissez des commentaires SVP j'en ai marre de faire des tutoriaux et de pas savoir si ils sont bons ou si c de la daube!
2ePS:SI g fait des boulettes dites le moi! merci.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (vbtom)