| 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.
|