 |
 |
 |
| |
Amusez-vous et
gagnez de l'argent
|
|
 |
|
 |
|
|
|
| |
NEWSLETTER
Soyez tenu au courant des nouveautés ou bons plans. Les sujets concernés sont :
- la photo
- la programmation
|
|
|
|
|
|
 |
|
 |
| |
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
|
|
 |
|
 |
|
IDDN Certification
