begin process at 2012 02 11 07:31:43
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

VBScript

 > SCANNEUR DE LECTEURS

SCANNEUR DE LECTEURS


 Information sur la source

Note :
7,25 / 10 - par 4 personnes
7,25 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :VBScript Niveau :Débutant Date de création :03/02/2004 Vu :3 072

Auteur : Marvin77

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

 Description

voila encore moi !

ce script passe en revut tous les lecteurs de votre pc en donnant des renseignements !

(je m'ennuyais encore ...)

Source

  • Dim Fso, lecteur, Dc, nom, Capacite, Disponible
  • Set Fso = CreateObject("Scripting.FileSystemObject")
  • For Each lecteur in Fso.Drives
  • If lecteur.DriveType = 3 Then
  • nom = lecteur.ShareName
  • Else
  • If lecteur.IsReady Then
  • '************ Nom de volume ********************'
  • nom = lecteur.VolumeName
  • '***** Espace disponible et capacité *********'
  • Capacite = round (lecteur.TotalSize / 1024 / 1024 /1024 , 2) & " Go"
  • if capacite<"1" then
  • capacite= round (lecteur.TotalSize / 1024 / 1024 , 2) & " Mo"
  • end if
  • Disponible = round (lecteur.AvailableSpace / 1024 / 1024 / 1024 , 2) & " Go"
  • if Disponible<"1" then
  • Disponible= round (lecteur.AvailableSpace / 1024 / 1024 , 2) & " Mo"
  • end if
  • MsgBox lecteur.DriveLetter & " - " & nom & vbCrLf & "Capacité: " & Capacite & vbCrLf & "Disponible: " & Disponible ,, "Propriété du lecteur"
  • Else
  • '******** Lecteur non-disponible *************'
  • nom = "< Non prêt >"
  • Capacite = ""
  • Disponible = ""
  • MsgBox lecteur.DriveLetter & " - " & nom ,,"Lecteur disquette ou CD-ROM vide "
  • End If
  • End If
  • next
  • msgbox "MaRvIn CoRpOrAtIoN",,"SiGnAtUrE"
Dim Fso, lecteur, Dc, nom, Capacite, Disponible

Set Fso = CreateObject("Scripting.FileSystemObject")

For Each lecteur in Fso.Drives

If lecteur.DriveType = 3 Then
   nom = lecteur.ShareName
Else
    If lecteur.IsReady Then

    '************ Nom de volume ********************'

    nom = lecteur.VolumeName

    '*****  Espace disponible et capacité  *********'

    Capacite =  round (lecteur.TotalSize / 1024 / 1024 /1024 , 2) & " Go"

    if capacite<"1" then
       capacite= round (lecteur.TotalSize / 1024 / 1024 , 2) & " Mo"
    end if

    Disponible = round (lecteur.AvailableSpace / 1024 / 1024 / 1024 , 2) & " Go"

    if Disponible<"1" then
	Disponible= round (lecteur.AvailableSpace / 1024 / 1024 , 2) & " Mo"
    end if

    MsgBox lecteur.DriveLetter & " - " & nom & vbCrLf & "Capacité: " & Capacite & vbCrLf & "Disponible: " & Disponible ,, "Propriété du lecteur"

    Else

    '********  Lecteur non-disponible  *************'

    nom = "< Non prêt >"
    Capacite = ""
    Disponible = ""

    MsgBox lecteur.DriveLetter & " - " & nom ,,"Lecteur disquette ou CD-ROM vide "

    End If
End If

next

msgbox "MaRvIn CoRpOrAtIoN",,"SiGnAtUrE"



 Sources du même auteur

DONNE LE NOMBRE DE JOURS QUE VOUS VIVEZ ET VOTRE ÂGE EXACTE
COMPTEUR DE LIGNES

 Sources de la même categorie

Source avec Zip Source avec une capture RECHERCHE & SAUVEGARDE DES FICHIERS PAR LEURS EXTENSIONS par hackoo
Source avec Zip Source avec une capture [VBS] SPLASH SCREEN EN VBSCRIPT par hackoo
Source avec Zip Source avec une capture [VBS] GOOGLE EASTER EGGS par hackoo
Source avec Zip Source avec une capture FILE2COMPARE: COMPARAISON DE DEUX FICHIERS LIGNE PAR LIGNE par hackoo
Source avec Zip Source avec une capture [VBS] COMMENT CRÉER UN DOSSIER ET LE PROTÉGER PAR MOT DE PAS... par hackoo

Commentaires et avis

Commentaire de Marvin77 le 03/02/2004 16:02:47

laissez des comments !!!

Commentaire de Tilois le 03/02/2004 17:07:40

Deja fait sur le site .. tu n'apportes rien de nouveau en plus ... si c'est juste pour le plaisir de poster des sources ... :(

Commentaire de greffierjc le 29/03/2004 10:32:15

Bonjour,

Je suis débutant en VB6, comment lance-t-on votre module, et comment l'enregistre-t-on.

Merci.

greffierjc

Commentaire de Marvin77 le 29/03/2004 19:41:29

bah tu copie tout le code dans un bloc note , tu enregistre en .vbs

ensuite tu double clic sur ton fichier voila

je c pas si c sa que tu voulais savoir    :)

Commentaire de shaiinna le 16/10/2005 18:47:36

Moi je trouve que c sympas ton truc pi ca me donne des ID car jai une apli a fer ou le EXE doit savoir automatiquement sur quel disque il est etant donné quil sera sur de lamovible ou il devra dezipé un fichier puis copier coller sur une c:\ enfin bon compliké et la je suis a cour dinspi lmol

Bref continue pr les newbies c sympas

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

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 : 4,430 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales