Accueil > > > TOUT SUR FILESYSTEMOBJECT (PARTIE III : LES LECTEURS)
TOUT SUR FILESYSTEMOBJECT (PARTIE III : LES LECTEURS)
Information sur la source
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>
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
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Manipulations de fichiers sans filesystemobject [ par YsF ]
Salut.J'ai un petit problè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ème n'est pas là, je dois récupé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éaliser un site billingue avec des fichiers ressources mais j'ar
Resource files [ par akaii ]
Hello,voilà j'ai créé mes fichiers .resx en fonction des différentes langues en les nommants comme suit:<monFichier>.<UI&
Resources [ par akaii ]
Hello,voilà j'ai créé mes fichiers .resx en fonction des différentes langues en les nommants comme suit:<monFichier>.<UI>.resx<Global&g
|
Derniers Blogs
FAIRE APPARAITRE L'ONGLET 'DéVELOPPEUR' DANS OFFICE 2010FAIRE APPARAITRE L'ONGLET 'DéVELOPPEUR' DANS OFFICE 2010 par neodante
La nouvelle interface d'Office 2010 à amener quelques modifications par rapport à celle de 2007. Certes mineures, ces modifications ont fait disparaître la case à cocher de l'onglet 'Développeur' en première page du panneau du 'bouton Office' (dans Office...
Cliquez pour lire la suite de l'article par neodante [ASTUCE] PATCH POUR MICROSOFT FORUMS NNTP BRIDGE V1[ASTUCE] PATCH POUR MICROSOFT FORUMS NNTP BRIDGE V1 par pierre
Si vous avez téléchargé comme moi Microsoft Forums NNTP Bridge V1 avant le 11 mars 2010 (voir [Astuce] Disponibilité de Microsoft Forum NNTP Bridge Version 1.0), un problème de date localisée pour les non anglais était présent. Un patch est disponibl...
Cliquez pour lire la suite de l'article par pierre PB LORS DE L'INSTALLATION SHAREPOINT 2010.PB LORS DE L'INSTALLATION SHAREPOINT 2010. par Patrick Guimonet
Lors de l'installation de SharePoint 2010, j'ai rencontré un problème de plantage à l'étape 5 du configuration Wizard. Ca se termine sur cet écran : Et en analysant le fichier de journalisation, on remarque vers la fin des 15000 et quelques lign...
Cliquez pour lire la suite de l'article par Patrick Guimonet [WF4] AJOUTER DES CONTRAINTES à UNE ACTIVITé (2/2)[WF4] AJOUTER DES CONTRAINTES à UNE ACTIVITé (2/2) par JeremyJeanson
Après mon précédent article qui attaque les contraintes par la fasse Nord de l'Everest. passons à la seconde possibilité offerte par WF4 pour valider une activité : la metadata . Je vous en ai déjà toucher un ou deux mots. La metadata dans WF4 est un élém...
Cliquez pour lire la suite de l'article par JeremyJeanson [WF4] AJOUTER DES CONTRAINTES à UNE ACTIVITé (1/2)[WF4] AJOUTER DES CONTRAINTES à UNE ACTIVITé (1/2) par JeremyJeanson
De WF3 à WF4 pas mal de choses on été changées pour faciliter la vie des développeurs, mais certain points peuvent sembler obscures. comme les contraintes. Pour vous guider, je me lance dans une série de deux articles. Ils présenterons deux approches poss...
Cliquez pour lire la suite de l'article par JeremyJeanson
Logiciels
Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods Konvertor (4.00)KONVERTOR (4.00)Le logiciel est un gestionnaire multimedia affichant, jouant et convertissant plus de 2000 format... Cliquez pour télécharger Konvertor
|