mrodenas
Messages postés30Date d'inscriptionvendredi 1 février 2002StatutMembreDernière intervention17 août 2009 24 nov. 2008 à 17:03
Bonne analyse et relecture. Il y a plusieurs années que j'ai arrêté de programmer, mes réflexes sont loin. Merci de tes remarques je corrige car c'est vraiment pas propre
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 24 nov. 2008 à 16:47
quelques amélioration niveau code :
*ligne 176, tu peux remplacer END par exit for
*ligne 182, tu peux supprimer ton end, tu en en fin de sub donc l'appli va quitter seule
*le test GetDriveType, pas besoin de récupérer la chaine (type de drive) puisque tu ne l'utilises pas.
juste :
Case DRIVE_REMOVABLE, DRIVE_FIXED, DRIVE_REMOTE, [...] (sauf else)
et là seulement tu poursuis le code actuellement ligne 144
else pas traité, on arrivera directement au Next intCnt
bonne continuation
mrodenas
Messages postés30Date d'inscriptionvendredi 1 février 2002StatutMembreDernière intervention17 août 2009 24 nov. 2008 à 10:55
Oui d'accord, j'ai fait cela un peu vite il est vrai pour voir si le concept était viable. Effectivement il est assez rapide même en VB.
(celui que tu as fourni est vide): Merci j'ai du le vider sans m'en rendre compte.
Cela mérite une petite version épurée.
reste le problème des disques non-nommés: oui, on peut proposer la liste de ceux-ci mais l'Explorer' le fait déjà aussi bien l'intérêt ne serait qu'une liste épurée
J'ai croisé un cas encore plus bizarre avec l'une de mes clé USB ( ma Framakey) alors que le nom de Volume est "KEY4" l'Explorer' affiche 'PortableApps.com' mais mon programme la retrouve sous "KEY4"... à élucider
Dans le même esprit il faudrait faire un eject de toute les unités d'un même disque physique après avoir débloquer tout les 'Explorer' qui lock l'eject.
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 23 nov. 2008 à 14:59
salut,
c'est le genre de source qui ne nécessite pas de form
place juste ton code dans un module (celui que tu as fourni est vide), avec la procédure principale publique nommée "Main", et dans les options de démarrage du projet, tu la sélectionnes.
tu peux aussi dans ce cas personnaliser l'icon de l'exe en l'ajoutant en ressources.
code non testé, l'idée n'est pas bête. reste le problème des disques non-nommés.
++
24 nov. 2008 à 17:03
24 nov. 2008 à 16:47
*ligne 176, tu peux remplacer END par exit for
*ligne 182, tu peux supprimer ton end, tu en en fin de sub donc l'appli va quitter seule
*le test GetDriveType, pas besoin de récupérer la chaine (type de drive) puisque tu ne l'utilises pas.
juste :
Case DRIVE_REMOVABLE, DRIVE_FIXED, DRIVE_REMOTE, [...] (sauf else)
et là seulement tu poursuis le code actuellement ligne 144
else pas traité, on arrivera directement au Next intCnt
bonne continuation
24 nov. 2008 à 10:55
(celui que tu as fourni est vide): Merci j'ai du le vider sans m'en rendre compte.
Cela mérite une petite version épurée.
reste le problème des disques non-nommés: oui, on peut proposer la liste de ceux-ci mais l'Explorer' le fait déjà aussi bien l'intérêt ne serait qu'une liste épurée
J'ai croisé un cas encore plus bizarre avec l'une de mes clé USB ( ma Framakey) alors que le nom de Volume est "KEY4" l'Explorer' affiche 'PortableApps.com' mais mon programme la retrouve sous "KEY4"... à élucider
Dans le même esprit il faudrait faire un eject de toute les unités d'un même disque physique après avoir débloquer tout les 'Explorer' qui lock l'eject.
23 nov. 2008 à 14:59
c'est le genre de source qui ne nécessite pas de form
place juste ton code dans un module (celui que tu as fourni est vide), avec la procédure principale publique nommée "Main", et dans les options de démarrage du projet, tu la sélectionnes.
tu peux aussi dans ce cas personnaliser l'icon de l'exe en l'ajoutant en ressources.
code non testé, l'idée n'est pas bête. reste le problème des disques non-nommés.
++