IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
logo

FAQ VBScriptConsultez toutes les FAQ

Nombre d'auteurs : 16, nombre de questions : 108, dernière mise à jour : 2 mars 2019  Ajouter une question

 


Cette FAQ VB Script est le fruit de la collaboration de l'équipe de rédaction et des membres du forum VB.

Aidez-nous à faire vivre cette FAQ en participant au forum Vos contributions VBScript.

Pour toutes questions ou tous problèmes concernant cette FAQ, vous pouvez contacter par MP ThierryAIM ou bbil.

L'équipe de rédaction de Developpez.com vous remercie pour votre participation passée et à venir.

SommaireVB ScriptFichiers : le FileSystemObjectAccès aux Disques (4)
précédent sommaire suivant
 

Lister les disques et l'espace disponible :

Code vb : Sélectionner tout
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

Mis à jour le 28 février 2007 SfJ5Rpw8 SilkyRoad

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

Code vb : Sélectionner tout
1
2
3
Dim oFSO 
Set oFSO = CreateObject("Scripting.FileSystemObject") 
MsgBox oFSO.DriveExists("G")

Mis à jour le 28 février 2007 SfJ5Rpw8 Tofalu

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 : 
 
Code vb : Sélectionner tout
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

Mis à jour le 27 février 2014 SfJ5Rpw8 Tofalu

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 :

Code vb : Sélectionner tout
1
2
3
Dim oFSO 
Set oFSO = CreateObject("Scripting.FileSystemObject") 
MsgBox oFSO.GetDriveName(C:\Program Files\Fichiers communs")

renvoie C:

Mis à jour le 28 février 2007 SfJ5Rpw8

Proposer une nouvelle réponse sur la FAQ

Ce n'est pas l'endroit pour poser des questions, allez plutôt sur le forum de la rubrique pour ça


Réponse à la question

Liens sous la question
précédent sommaire suivant
 

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2022 Developpez Developpez LLC. Tous 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'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.