begin process at 2010 03 13 21:09:53
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Tutoriaux

 > TOUT SUR FILESYSTEMOBJECT (PARTIE III : LES LECTEURS)

TOUT SUR FILESYSTEMOBJECT (PARTIE III : LES LECTEURS)


 Information sur la source

Note :
9 / 10 - par 4 personnes
9,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Tutoriaux Classé sous :filesystemobject, lecteurs, drives, filesystem, fichiers Niveau :Débutant Date de création :05/08/2001 Vu :9 551
Auteur : vbtom

Ecrire un message privé
Site perso
Commentaire sur cette source (6)
Ajouter un commentaire et/ou une note

 Description

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

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


 Sources du même auteur

Source .NET (Dotnet) AFFICHER LE CONTENU ENTIER D'UNE TABLE
Source .NET (Dotnet) RÉCUPÉRER LE RÉSULTAT D'UNE REQUÈTE SQL
Source .NET (Dotnet) CONNECTION À UNE BASE DE DONNÉE ACCESS
TESTER LA VALIDITÉ D'UN NUMÉRO DE CARTE DE CRÉDIT
Source avec Zip LE VBS ?? - PART III: TRAVAILLER SUR DES DONNÉES STRING (TEX...
Toutes les sources de vbtom

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) WEB SERVICE SOFTWARE FACTORY - DE L’INSTALLATION AU TEST DE ... par romagny13
Source avec Zip Source avec une capture Source .NET (Dotnet) DIAPORAMA DYNAMIQUE par yous
Source avec Zip Source avec une capture Source .NET (Dotnet) LES CONTROLES DE VALIDATION par yous
Source avec Zip SYSTÈME DE RÉSERVATION EN LIGNE par polivo
Source .NET (Dotnet) ASP.NET - WEB PROJECT INSTALLER TUTORIAL par fabrice69
Toutes les sources de la catégorie Tutoriaux

 Sources en rapport avec celle ci

LISTING DE FICHIERS ET RÉPERTOIRES (FONCTION RÉCURSIVE) par Warwick
Source avec Zip Source avec une capture Source .NET (Dotnet) .NET2 GESTIONNAIRE DE DROITS DE FICHIERS AVEC SQL SERVER EN ... par gldfdp
Source avec une capture EXPLORATEUR ASP EN UN SEUL FICHIER SANS INSTALLATION par informatika2001
LISTING ET SUPPRESSION DE FICHIER par Jackboy
TOUT SUR FILESYSTEMOBJECT (PARTIE II : LES FICHIERS) par vbtom

Commentaires et avis

Commentaire de guidal le 08/04/2002 13:48:44

Pour les types de lecteur : type=3 &lt;-&gt; lecteur réseau (si connexion à un partage)
Mais il n'est apparament pas possible de visualiser les fichiers et répertoires

Commentaire de dedzep le 05/08/2002 17:01:39

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

Commentaire de jock3r le 21/08/2002 11:27:57

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

Commentaire de vbtom le 21/08/2002 13:53:28

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 &lt;% = %&gt; et ca donne un truc immonde a regarder :)

Commentaire de skipou le 21/01/2003 10:00:07

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 !!
@+

Commentaire de angenoir999 le 08/02/2007 18:07:49

Bonjour

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

Cordialement angenoir

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Manipulations de fichiers sans filesystemobject [ par YsF ] Salut.J'ai un petit probl&#232;me voila j'ai un hebergement asp qui ne prend pas en charge l'object filesystelobject alors je voudrais savoir si il n' [ASP] fonction unicode à anscii [ par nahzhir ] Bonjour, pour mon applcation j'utilise un composant pour ziper des fichiers et ce composant n'accepte pas les fichiers dont le nom comporte des carac j arrive pas a ouvrir les fichiers que j ai uploade [ par ludwigfve ] j ai un autre petit probleme j arrive pas a ouvrir les fichiers que j ai uploade dans un rep et en suite enregistres dans ma base* (*juste le nom du f Gestion des acl(droits sur les fichiers) [ par Odonate ] Bonjour a tous,Je suis en traint de faire un projet qui, apres mes deux annees de DUT info me parait un peu difficile.En fait je dois, a partir d'une Récupérer Pages Via FTP - Hébergement Type Windows ASP [ par beachattitude ] Bonjour, Je n'y connais rein en ASP, mais le probl&#232;me n'est pas l&#224;, je dois r&#233;cup&#233;rer des fichiers sur un serveurs Windows, et il Antivirus Live [ par Jackboy ] Bonjour !Je suis dans la création d'un Intranet et pour mon file manager, j'aimerai savoir si qqun a déjà utiliser une application gratuit (activex, . pbme d'actu de fichiers html / serveur [ par shupachups ] Bonjour, j'ai des pbmes pour actualiser des fichiers.hmtl sur le serveur d'hebergement ou se trouve la page web (cree par un autre): il me dit que je Fichiers ressources : site bilingue [ par visualresine ] Bonjour,Je developpe en ASP.NET (code-behind : vb.net) sur VS 2005. J'essaie de r&#233;aliser un site billingue avec des fichiers ressources mais j'ar Resource files [ par akaii ] Hello,voil&#224; j'ai cr&#233;&#233; mes fichiers .resx en fonction des diff&#233;rentes langues en les nommants comme suit:&lt;monFichier&gt;.&lt;UI& Resources [ par akaii ] Hello,voilà j'ai créé mes fichiers .resx en fonction des différentes langues en les nommants comme suit:&lt;monFichier&gt;.&lt;UI&gt;.resx&lt;Global&g


Nos sponsors


Appels d'offres

Sondage...

Comparez les prix


Archos 5 (250 Go)
Entre 440€ et 440€

Visiter le guide achat

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,749 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)