mythic_kruger
Messages postés241Date d'inscriptionjeudi 8 janvier 2004StatutMembreDernière intervention10 novembre 2005
-
13 mai 2004 à 19:07
mourad183
Messages postés78Date d'inscriptionmardi 8 avril 2003StatutMembreDernière intervention25 janvier 2007
-
14 mai 2004 à 13:43
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
mourad183
Messages postés78Date d'inscriptionmardi 8 avril 2003StatutMembreDernière intervention25 janvier 2007 14 mai 2004 à 13:43
voila la mise à jour
merci BruNews et crenaud76 pour votre aide
>>biboch78 ta methode est bonne je la trouve mais j'ai utilisé une autre fonction : GetDriveType
bidoch78
Messages postés67Date d'inscriptionmercredi 27 février 2002StatutMembreDernière intervention 2 décembre 2005 14 mai 2004 à 10:32
Pour connaitre les lecteurs :
Private Declare Function GetLogicalDrives Lib "kernel32" () As Long
mDrivesInfo = GetLogicalDrives()
For IdDrive = 0 To 25
If (mDrivesInfo And (2 ^ IdDrive)) <> 0 Then
Call MsgBox(Chr$(65 + IdDrive) & ":")
End If
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
eDriveType = GetDriveType(mDriveLetter)
Voila, si ca peut t'aider
cs_azerty25
Messages postés1114Date d'inscriptionjeudi 19 décembre 2002StatutMembreDernière intervention 6 mai 2007 14 mai 2004 à 07:08
Pas mal, mais en effet, CD n'est pas forcémant E
BruNews
Messages postés21040Date d'inscriptionjeudi 23 janvier 2003StatutModérateurDernière intervention21 août 2019 14 mai 2004 à 00:52
Une derniere modif:
Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpA As Long, ByVal nA As Long, ByVal nX As Long, ByVal lpB As Long, ByVal lpC As Long, ByVal lpD As Long, ByVal nD As Long) As Long
ainsi tu peux supprimer le 4eme param en passant 0 comme pour les autres et tu supprimes 'Dim Nbr As Long'.
Comme deja dit, n'oublie pas l'appel:
SetErrorMode 1
sinon sur gros systemes on a une msgbox qui dit que lecteur vide, voulez vous recommencer etc... a chaque fois.
ciao...
mourad183
Messages postés78Date d'inscriptionmardi 8 avril 2003StatutMembreDernière intervention25 janvier 2007 13 mai 2004 à 19:15
salut oui je sais et je vais le modifier demain :)
mythic_kruger
Messages postés241Date d'inscriptionjeudi 8 janvier 2004StatutMembreDernière intervention10 novembre 2005 13 mai 2004 à 19:07
Pas mal l' appel d' API mais en fait il vérifie si un lecteur est présent, sur une lettre désignée. Tu fais d' un cas particulier une géneralité: le CD n'est pas obligatoirement sur E: ;) 7/10
14 mai 2004 à 13:43
merci BruNews et crenaud76 pour votre aide
>>biboch78 ta methode est bonne je la trouve mais j'ai utilisé une autre fonction : GetDriveType
14 mai 2004 à 10:32
Private Declare Function GetLogicalDrives Lib "kernel32" () As Long
mDrivesInfo = GetLogicalDrives()
For IdDrive = 0 To 25
If (mDrivesInfo And (2 ^ IdDrive)) <> 0 Then
Call MsgBox(Chr$(65 + IdDrive) & ":")
End If
Pour connaitre la nature du lecteur :
Public Enum eDriveType
Drive_Unknow = 0
Drive_Absent = 1
Drive_Removable = 2
Drive_Fixed = 3
Drive_Remote = 4
Drive_CDRom = 5
Drive_RamDIsk = 6
End Enum
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
eDriveType = GetDriveType(mDriveLetter)
Voila, si ca peut t'aider
14 mai 2004 à 07:08
14 mai 2004 à 00:52
Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpA As Long, ByVal nA As Long, ByVal nX As Long, ByVal lpB As Long, ByVal lpC As Long, ByVal lpD As Long, ByVal nD As Long) As Long
ainsi tu peux supprimer le 4eme param en passant 0 comme pour les autres et tu supprimes 'Dim Nbr As Long'.
Comme deja dit, n'oublie pas l'appel:
SetErrorMode 1
sinon sur gros systemes on a une msgbox qui dit que lecteur vide, voulez vous recommencer etc... a chaque fois.
ciao...
13 mai 2004 à 19:15
13 mai 2004 à 19:07