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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 943 fois - Téléchargée 29 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
DeadlyPredator Messages postés 222 Date d'inscription jeudi 15 janvier 2004 Statut Membre Dernière intervention 30 juin 2008
1 juin 2004 à 03:06
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)
zcrew Messages postés 231 Date d'inscription lundi 23 février 2004 Statut Membre Dernière intervention 26 février 2010
20 févr. 2004 à 12:04
Très bon code

Quelqu'un peut m'expliquer la différence entre chr et chr$ svp ?
cs_Unreal Messages postés 89 Date d'inscription vendredi 20 décembre 2002 Statut Membre Dernière intervention 26 mars 2006
18 févr. 2004 à 21:49
Très bon bout de code
@++ Flo
DeadlyPredator Messages postés 222 Date d'inscription jeudi 15 janvier 2004 Statut Membre Dernière intervention 30 juin 2008
18 févr. 2004 à 20:25
Je vous rapelle que c'est un code bien simple que j'ai fait en 5 min.
Tilois Messages postés 721 Date d'inscription dimanche 10 juin 2001 Statut Membre Dernière intervention 27 mars 2011 7
18 févr. 2004 à 19:44
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 ... ;-)

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.