Tout sur filesystemobject (partie iii : les lecteurs)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 12 489 fois - Téléchargée 37 fois

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

Ajouter un commentaire

Commentaires

Messages postés
19
Date d'inscription
vendredi 25 août 2006
Statut
Membre
Dernière intervention
2 octobre 2008
1
Bonjour

Peux-tu me dire comment avoir l'espace disque libre du lecteur C: d'un serveur distant svp?

Cordialement angenoir
Messages postés
34
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
30 novembre 2005

Moi je demarre donc je n'ai pas de critique "constructive a faire". Mais c'est cool de voir qu'il y a des personnes pour aider les nouveaux !!
@+
Messages postés
229
Date d'inscription
dimanche 3 juin 2001
Statut
Membre
Dernière intervention
5 octobre 2003

ben de rien mais quand je revoie ce script c affreu :) gT jeune a cette epoque et je n'utilisais pas IIS et la fonction response.write je connaisais psa donc je faisai <% = %> et ca donne un truc immonde a regarder :)
Messages postés
2
Date d'inscription
dimanche 18 août 2002
Statut
Membre
Dernière intervention
26 juin 2005

thanx vbtom !... ce tutorail est super j'utilisais difficilement les FSO ds mes progr asp, mais là c lair ds ma ptite tete =).
Merci encore une fois
Messages postés
54
Date d'inscription
vendredi 1 février 2002
Statut
Membre
Dernière intervention
8 février 2007

merci Vbtom !
je debute donc pour l'instant je groupe tous les tutoriaux puis j'essaye.
promis des que j'aurais un peu de poids dans le domaine je ferais par de mes commentaires.
pour l'instant... j'apprends
Merci pour ton travail et ceux des autres participants.
Sans un site comme celui la, et sans votre energie, ce serait dur de progresser.
PS j'ai appris vb6 grace au site frere de celui ci
Afficher les 7 commentaires

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.