| | 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
|
|
| | 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")
|
|
| | 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
|
|
| | 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:
|
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.
|
