Trouver une lettre de lecteur libre très simple (9 lignes)
Contenu du snippet
Ça permet de trouver une lettre de lecteur inoccupée en QUELQUES LIGNE ET SANS DRIVELISTBOX. TRÈS TRÈS SIMPLE!!!!
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
- Trouver une lettre de lecteur libre très simple (9 lignes)
- Erreur d'execution 9 ✓ - Forum VB.NET
- Formule chute libre ✓ - Forum C++ & C++ .NET
- Erreur d'execution '9' ✓ - Forum Visual Basic 6
- Erreur d'exécution '9' : l'indice n'appartient pas à la sélection ✓ - Forum Visual Basic 6
- Erreur d'exécution 9 ✓ - Forum Visual Basic 6
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.