Accueil
Accueil Le Club Delphi Kylix C C++ Java J2EE DotNET & C# Visual Basic Access Pascal Dev Web PHP ASP XML UML SQLSGBD Windows Linux Autres
logo

precedent    sommaire    suivant   


Comment lister l'ensemble des unités de disques d'un PC ?
auteurs : SilkyRoad, bbil
Lister les disques et l'espace disponible :
VBS

Set FSO = CreateObject("Scripting.FileSystemObject")
For Each Drv In FSO.Drives  
    If Drv.IsReady Then  
        MsgBox "le support " & Drv.DriveLetter & " --> " & _ Drv.drivetype & " --> " & Drv.FreeSpace & " octets"  
    End If 
Next

Comment tester l'existence d'un disque ?
auteurs : Tofalu, bbil
La méthode DriveExists exposée par la classe FileSystemObject teste l'existence d'un disque en fonction de son nom.
VBS

Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
MsgBox oFSO.DriveExists("G")

Comment obtenir des informations sur les unités de disques ?
auteurs : Tofalu, bbil
Les propriétés des disques
  • DriveLetter : Lettre utilisé par le système d'exploitation pour accéder au disque. Il s'agit de la clé de la collection Drives. Exemple : D
  • DriveType : Type du disque (CDRom,Fixed,RamDisk,Remote,Removable,UnknownType)
    • 0 : Inconnu
    • 1 : Amovible
    • 2 : Fixe
    • 3 : Réseau
    • 4 : CD-ROM
    • 5 : Disque virtuel
  • FileSystem : Type du système de fichier du disque. Comme FAT, FAT32, NTFS et autre .
  • AvailableSpace, FreeSpace : Espace disponible et espace libre en octets
  • IsReady : Booléen indiquant si l'unité de disque est disponible. Dans le cas d'un lecteur de CD-ROM, elle permettra de savoir si un disque est présent ou pas.
  • Path : Chemin de l'unité de disque. Exemple : "D :"
  • RootFolder : Retourne un objet Folder correspondant au dossier racine du disque. C'est cet objet qui donne accès à l'ensemble des autres dossiers présent sur le disque. Le path de ce dossier est alors : Drive.Path + \ , Exemple D:\"
  • SerialNumber : Numéro de série du disque. Exemple : 1154367849
  • ShareName : Retourne une chaîne de caractères correspondant au nom de partage du disque. Cette chaîne sera nulle si le disque n'est pas partagé. Exemple : Partage_Donnees
  • VolumeName : Retourne le nom du volume (et non de l'unité) dans une chaîne de caractères. Exemple : Donnees
  • TotalSize : Taille du disque en octets
Un exemple d'utilisation :
VBS

Dim oFSO,oDrv
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.DriveExists("C") Then
  Set oDrv = oFso.GetDrive("C")
  MsgBox "DriveLetter     : " & oDrv.DriveLetter & vbCrlf & _ 
         "DriveType       : " & oDrv.DriveType  & vbCrlf & _ 
         "FileSystem      : " & oDrv.FileSystem   & vbCrlf & _ 
         "AvailableSpace  : " & oDrv.AvailableSpace  & vbCrlf & _ 
         "FreeSpace       : " & oDrv.FreeSpace   & vbCrlf & _ 
         "IsReady         : " & oDrv.IsReady   & vbCrlf & _ 
         "Path            : " & oDrv.Path   & vbCrlf & _ 
         "RootFolder      : " & oDrv.RootFolder    & vbCrlf & _ 
         "SerialNumber    : " & oDrv.SerialNumber    & vbCrlf & _ 
         "ShareName       : " & oDrv.ShareName    & vbCrlf & _ 
         "VolumeName      : " & oDrv.VolumeName    & vbCrlf & _ 
         "TotalSize       : " & oDrv.TotalSize    
  End if

Comment retrouver le nom d'un disque à partir d'un chemin ?
auteur : bbil
la méthode GetDriveName,renvoie une chaîne contenant le nom correspondant au lecteur spécifié dans un chemin d'accès
Remarque: la méthode n'effectue aucune vérification (existence...) elle effectue juste une "extraction" de chaîne de caractère.
exemple d'utilisation :
VBS

Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
MsgBox oFSO.GetDriveName(C:\Program Files\Fichiers communs")
renvoi C:


precedent    sommaire    suivant   

Consultez les autres F.A.Q's


Les sources présentés sur cette pages sont libre de droits, et vous pouvez les utiliser à votre convenance. Par contre cette page de présentation de ces sources constitue une oeuvre intellectuelle protégée par les droits d'auteurs. Copyright ©2008  Developpez LLC. Tout droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à 3 ans de prison et jusqu'à 300 000 E de dommages et intérets. Cette page est déposée à la SACD.

Vos questions techniques : forum d'entraide Accueil - Publiez vos articles, tutoriels, cours et rejoignez-nous dans l'équipe de rédaction du club d'entraide des développeurs francophones. Nous contacter - Copyright 2000..2005 www.developpez.com