cs_seif
Messages postés36Date d'inscriptionvendredi 30 août 2002StatutMembreDernière intervention 8 septembre 2003
-
22 août 2003 à 01:51
cs_seif
Messages postés36Date d'inscriptionvendredi 30 août 2002StatutMembreDernière intervention 8 septembre 2003
-
30 août 2003 à 03:45
SEIF is the king ow world
http:\\membres.lycos.fr\seif86 >:) >:) >:) >:) >:) >:) >:) >:) >:) >:) >:) >:) >:) >:) >:) >:) [mailto:seif@eminem.com mailto:seif@eminem.com]
s.v.p qui peut me dire comment faire un prog qui fonctionne qu'avec le cd et dans son abcense il affice un message veuillez inséré le cd
nhervagault
Messages postés6063Date d'inscriptiondimanche 13 avril 2003StatutMembreDernière intervention15 juillet 201137 22 août 2003 à 07:08
Voici une premiere idée
Avec une adaptation de ce module
'Dans un module (BAS), tu place ceci :
Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal
nDrive As String) As Long
Public Const DRIVE_CDROM = 5
Public Const DRIVE_FIXED = 3
Public Const DRIVE_RAMDISK = 6
Public Const DRIVE_REMOTE = 4
Public Const DRIVE_REMOVABLE = 2
Public Const DRIVE_UNKNOW = 0
Public Const NO_DRIVE = 1
Public Function TypeLecteur(lect$) As String
Dim r As Long
'
r = GetDriveType(lect$)
Select Case r
Case NO_DRIVE: msg$= ""
Case DRIVE_CDROM: msg$ = "CDROM"
Case DRIVE_FIXED: msg$ = "Disque Fixe"
Case DRIVE_RAMDISK: msg$ = "RAMDISK"
Case DRIVE_REMOTE: msg$ = "Lecteur Reseau"
Case DRIVE_REMOVABLE: msg$ = "Disque Amovible" Case DRIVE_UNKNOW 0: msg$ "Lecteur de type inconnu"
End Select
TypeLecteur = msg$
End Function
>----------------------
Sur une feuille, tu place un ListBox (List1) et un bouton de commande
(command1)
Private Sub Command1_Click()
Dim Lecteur As String
Dim Item As String
'
List1.Clear
For k% = 0 To 25
Lecteur = Chr$(k% + 65) & ":"
Item = TypeLecteur(Lecteur)
If Item <> "" Then
Item = Lecteur & " -> " & Item
List1.AddItem Item
End If
Next k%
End Sub
Soution avec le file system object
Ajout de la reference microsoft runtine scripting
'//****** Copy and paste *************
'// VB6
'// use of object reference FileSystemObject
Dim Fs As FileSystemObject
'// Return valus can be :
'// D or D;E;
Function CdDriveLetter() As String
Dim DRvs As Drives
Dim CdDrive As String, D As Drive
Set Fs = New FileSystemObject
CdDrive = ""
Set DRvs = Fs.Drives
'// Loop thru the existing drives
For Each D In DRvs
If D.DriveType = CDRom Then
CdDrive = CdDrive & D.DriveLetter & ";"
End If
Next D
CdDriveLetter = CdDrive
Set Fs = Nothing
End Function
tu chercherches les lecteurs cdroms de l'ordi
avec l'appli
tu teste la presence d'un fichier special sur les lecteurs si tout les lecteurs n'ont pas ce fichier
et bien c'est que le cd est mauvais et donc pas present.
Tu peux rajouter une securité supplémentaire avec un test de lecture seule sur un fichier du cdrom.