IDDN CertificationIDDN Certification
 
  Moteur de recherche
Recherche personnalisée
 
   

 
Menu Principal

 Accueil
 Programmation
    avec Cours...
 Liens (ANNUAIRE)
 Statistiques-TOP 10
 Me contacter
 

  ObjetsBois.com est spécialisé dans les stylos en bois. Beaucoup de choix d'essences de bois. Cela peut faire un beau cadeau pour un mariage, la famille, les amis et peut-être même pour distribuer à vos clients.

 

 
Partenaires

 Les Partenaires

 
 

Lettre des lecteurs (CD-ROM, Disquettes..)  



à mettre dans les déclarations
'####################### Lecteur ######################
Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Public Const FILE_CASE_PRESERVED_NAMES = &H2
Public Const FILE_CASE_SENSITIVE_SEARCH = &H1
Public Const FILE_UNICODE_ON_DISK = &H4
Public Const FILE_VOLUME_IS_COMPRESSED = &H8000
Public Const FILE_PERSISTENT_ACLS = &H8
Public Const FILE_FILE_COMPRESSION = &H10
Public Const FS_CASE_IS_PRESERVED = FILE_CASE_PRESERVED_NAMES
Public Const FS_CASE_SENSITIVE = FILE_CASE_SENSITIVE_SEARCH
Public Const FS_UNICODE_STORED_ON_DISK = FILE_UNICODE_ON_DISK
Public Const FS_VOLUME_IS_COMPRESSED = FILE_VOLUME_IS_COMPRESSED
Public Const FS_PERSISTENT_ACLS = FILE_PERSISTENT_ACLS
Public Const FS_FILE_COMPRESSION = FILE_FILE_COMPRESSION
'lecteurs logiques
Declare Function GetLogicalDrives Lib "kernel32" () As Long
Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
'type de lecteur
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Const DRIVE_CDROM = 5
Private Const DRIVE_FIXED = 3
Private Const DRIVE_RAMDISK = 6
Private Const DRIVE_REMOTE = 4
Private Const DRIVE_REMOVABLE = 2


Fonction
Public Sub TypeLecteur(D As String)
   'D est la lettre désignant le lecteur

   'lit le type
   TypeL% = GetDriveType(D$ + ":")
   'description du type
   Select Case TypeL%
      Case 1
         Info$ = "non disponible"
      Case DRIVE_REMOVABLE
         Info$ = "Lecteur de disquette"
      Case DRIVE_FIXED
         Info$ = "Disque dur"
      Case DRIVE_REMOTE
         Info$ = "Lecteur de réseau"
      Case DRIVE_CDROM
         Info$ = "CD-ROM"
      Case DRIVE_RAMDISK
         Info$ = "Disque virtuel"
      Case Else
         Info$ = "inconnu"
   End Select
   'affichage de l'information dans la le label 1 de la feuille Form1
   Form1.label1.Caption = "Unité " + UCase(D) + " TYPE : " + Info$
End Sub
 


[ ObjetsBois : des stylos en bois, des bagues en bois et autres objets en bois de qualité ]
[ Création de bijoux en bois ou bagues en bois sur mesure ]
[ Turf-France ] -[ turf / pmu / paris ]

Copyright © 2000-2014 LCL2000.COM
Reproduction totale ou partielle interdite sur quelque
support que ce soit sans l'accord de l'auteur
Tous droits réservés.
La confidentialité de vos données sur ce site est préservée.
LCL2000.com est déclaré à la CNIL sous le n°1007192



PageRank Actuel