FAQ VBScriptConsultez toutes les FAQ

Lister les disques et l'espace disponible :

1
2
3
4
5
6
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

La méthode DriveExists exposée par la classe FileSystemObject teste l'existence d'un disque en fonction de son nom.

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

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
  

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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

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 :

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