Trouver une lettre de lecteur libre très simple (9 lignes)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 725 fois - Téléchargée 27 fois

Contenu du snippet

Ça permet de trouver une lettre de lecteur inoccupée en QUELQUES LIGNE ET SANS DRIVELISTBOX. TRÈS TRÈS SIMPLE!!!!

Source / Exemple :


function FindLetter as string
on error resume next
dim fso
set fso=createobject("scripting.filesystemobject")
for i = asc("c") to asc("z")
if fso.getdrive(chr(i) & ":").driveletter=empty then findletter=chr(i):exit for
next
set fso=nothing
end function

Conclusion :


TRÈS SIMPLE

A voir également

Ajouter un commentaire

Commentaires

Messages postés
222
Date d'inscription
jeudi 15 janvier 2004
Statut
Membre
Dernière intervention
30 juin 2008

Ben c'est qu'avec Chr$, le $ signifie $tring (string). Donc, la fonction chr$, contrairement à chr, fait toute la job en utilisant le type string. Cela peut éventuellement aider à la performance si on doit travailler avec de chaines de caractère. Voici la liste des fonction (que je me souvient) :

command$
left$
mid$
right$
trim$
lcase$
ucase$

Par contre, dans mon cas, le gain de temps serait très très minime (des millisecondes peut-être)
Messages postés
231
Date d'inscription
lundi 23 février 2004
Statut
Membre
Dernière intervention
26 février 2010

Très bon code

Quelqu'un peut m'expliquer la différence entre chr et chr$ svp ?
Messages postés
89
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
26 mars 2006

Très bon bout de code
@++ Flo
Messages postés
222
Date d'inscription
jeudi 15 janvier 2004
Statut
Membre
Dernière intervention
30 juin 2008

Je vous rapelle que c'est un code bien simple que j'ai fait en 5 min.
Messages postés
721
Date d'inscription
dimanche 10 juin 2001
Statut
Membre
Dernière intervention
27 mars 2011
4
Pour 26 fois je pense pas que cela change grand chose la différence de CHR et CHR$. A moins que tu utilises un 486 ... ;-)
Afficher les 6 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.