Attribution lettres de lecteurs reseau attribués automatiquement en vbs
Résolu
petite_fraise
Messages postés
5
Date d'inscription
mardi 2 mai 2006
Statut
Membre
Dernière intervention
13 mai 2006
-
9 mai 2006 à 09:41
rvblog Messages postés 792 Date d'inscription vendredi 4 mars 2005 Statut Membre Dernière intervention 12 juin 2012 - 13 mai 2006 à 17:26
rvblog Messages postés 792 Date d'inscription vendredi 4 mars 2005 Statut Membre Dernière intervention 12 juin 2012 - 13 mai 2006 à 17:26
A voir également:
- Petit if 3 lettres
- Sql if ✓ - Forum SQL
- Mélangeur de lettres - Forum PHP
- End if sans bloc if ✓ - Forum Visual Basic
- Générateur de combinaison lettres - Forum C
- COMBINAISON DE LETTRES ✓ - Forum Visual Basic
3 réponses
petite_fraise
Messages postés
5
Date d'inscription
mardi 2 mai 2006
Statut
Membre
Dernière intervention
13 mai 2006
13 mai 2006 à 10:17
13 mai 2006 à 10:17
Bonjour,
Merci bien pour ton aide
En fait, j'ai trouvé une solution, c'est à dire que j'utilise mon expression "Chr(Asc(unite)+1)" que je mets à la place de "unite" dans les mappages suivants, exemple :
...
Case "Group1"
WshNetwork.MapNetworkDrive unite & ":", "\\ServerName\Partage1"
WshNetwork.MapNetworkDrive Chr(Asc(unite)+1) & ":", "\\ServerName\Partage2"
...
Tout fonctionne très bien comme ça
Encore merci pour ton intérêt et peut-être à bientôt
carpe diem
Merci bien pour ton aide
En fait, j'ai trouvé une solution, c'est à dire que j'utilise mon expression "Chr(Asc(unite)+1)" que je mets à la place de "unite" dans les mappages suivants, exemple :
...
Case "Group1"
WshNetwork.MapNetworkDrive unite & ":", "\\ServerName\Partage1"
WshNetwork.MapNetworkDrive Chr(Asc(unite)+1) & ":", "\\ServerName\Partage2"
...
Tout fonctionne très bien comme ça
Encore merci pour ton intérêt et peut-être à bientôt
carpe diem
rvblog
Messages postés
792
Date d'inscription
vendredi 4 mars 2005
Statut
Membre
Dernière intervention
12 juin 2012
7
11 mai 2006 à 12:23
11 mai 2006 à 12:23
Salut 763348 petite_fraise,
il faut faire une itération (ou plusieurs appels) qui te permette de changer la valeur de unite à chaque mappage!
Mets ta recherche de lettre valide dans une fonction, ex :
Public Function GetValideDriveUnit() As String
...
End Function
et fait un appel à l'outil d'unité valide, un appel à l'outil de mappage, et ce pour chaque mappage à réaliser, ex :
...
Case "Group1"
'obtiens une unité valide (par exemple "E")
unite = GetValideDriveUnit
'crée le mappage
WshNetwork.MapNetworkDrive unite & ":", "\\ServerName\Partage1"
'obtiens une unité valide (par exemple, forcément pas "E", nouvelle déjà utilisée))
unite = GetValideDriveUnit
'crée le mappage
WshNetwork.MapNetworkDrive unite & ":", "\\ServerName\Partage2"
...
Qu'en penses-tu?
à+
rvblogn<SUP>
</SUP><SUP>Je veux ton bien... et je l'aurais... mais jamais avant la page 4
</SUP>
il faut faire une itération (ou plusieurs appels) qui te permette de changer la valeur de unite à chaque mappage!
Mets ta recherche de lettre valide dans une fonction, ex :
Public Function GetValideDriveUnit() As String
...
End Function
et fait un appel à l'outil d'unité valide, un appel à l'outil de mappage, et ce pour chaque mappage à réaliser, ex :
...
Case "Group1"
'obtiens une unité valide (par exemple "E")
unite = GetValideDriveUnit
'crée le mappage
WshNetwork.MapNetworkDrive unite & ":", "\\ServerName\Partage1"
'obtiens une unité valide (par exemple, forcément pas "E", nouvelle déjà utilisée))
unite = GetValideDriveUnit
'crée le mappage
WshNetwork.MapNetworkDrive unite & ":", "\\ServerName\Partage2"
...
Qu'en penses-tu?
à+
rvblogn<SUP>
</SUP><SUP>Je veux ton bien... et je l'aurais... mais jamais avant la page 4
</SUP>
rvblog
Messages postés
792
Date d'inscription
vendredi 4 mars 2005
Statut
Membre
Dernière intervention
12 juin 2012
7
13 mai 2006 à 17:26
13 mai 2006 à 17:26
De rien, je t'en prie!
à+
rvblogn<SUP>
</SUP><SUP>Je veux ton bien... et je l'aurais... mais jamais avant la page 4
</SUP>
à+
rvblogn<SUP>
</SUP><SUP>Je veux ton bien... et je l'aurais... mais jamais avant la page 4
</SUP>
