Mapper un lecteur avec Case & InputBox

Mapper un lecteur avec Case & InputBox - VB/VBA/VBS - Programmation

Marsh Posté le 05-03-2009 à 23:42:10    

Je veux maper différentes lettres en utilisant Inputbox & CASE.
Ce qui est ridicule c'est qu'il n'y a pas d'erreures qui s'affichent mais il n'y a pas de drive qui s'affichent.
 
Voici des fragments de mon code.
 
if mode <> ("wscript.exe" ) Then
                         while value=false
 
                        quest=InputBox("Choix-1 Connecter des lecteurs"&Vbcrlf&_
                                "Choix-2 Deconnecter des lecteurs"&Vbcrlf&_
                                "Choix-3 Quitter le script", "Fenetre des choix" )
         
                      Select Case quest
                       
 
                        case "1"
                           value=true
                        lettre=Inputbox("Nom de la lettre:" )
                        rep=Inputbox("Entrez un nom de repertoire tel que"&Vbcrlf&_
                        "ARCHIVE "&Vbcrlf&"CLIENT "&Vbcrlf&"LOT" ,"repertoire voulue:" )
                                call Dpoint()
                                call Mapd()
                                 call ShortCut()
                              msgbox("La connection est etablie" )
                            call list()
 
 
'SUB ROUTINES---------------------------------------------------------------------------------------------------------------------------
 
 
Sub Mapd()
 
Select Case rep
 
Case "Archive"
wshnet.MapNetworkDrive lettre, "\\127.0.0.1\temps"
wshell.LogEvent 0, "Lettre " &lettre& " maintenant connectée par "&wshnet.username
 
Case "CLIENT"
wshnet.MapNetworkDrive lettre, "\\127.0.0.1\temps"
wshell.LogEvent 0, "Lettre " &lettre& " maintenant connectée par "&wshnet.username
 
 
Case "LOT"
part="LOT"
wshnet.MapNetworkDrive lettre, "\\127.0.0.1\"&part
wshell.LogEvent 0, "Lettre " &lettre& " maintenant connectée par "&wshnet.username
  end select
end sub


Message édité par Sakayapo le 07-03-2009 à 18:16:00
Reply

Marsh Posté le 05-03-2009 à 23:42:10   

Reply

Marsh Posté le 06-03-2009 à 10:16:55    

lettre=Inputbox("Nom de la lettre:" )  
rep=Inputbox("Entrez un nom de repertoire ...
 
tu ne passe pas ces valeurs a tes fonctions... est ce que ca pourrait etre la source de ton probleme ?
 
Sub Mapd()  
 
Select Case wshnet.username  
=> pourquoi wshnet.username et pas rep que tu as demandé à l'utilisateur juste avant ?


---------------
http://poemes.iceteapeche.com - http://www.simuland.net
Reply

Marsh Posté le 07-03-2009 à 18:14:39    

fluminis a écrit :

lettre=Inputbox("Nom de la lettre:" )  
rep=Inputbox("Entrez un nom de repertoire ...
 
 
 
Select Case wshnet.username  
=> pourquoi wshnet.username et pas rep que tu as demandé à l'utilisateur juste avant ?


 
 
Car c'est en faisant ainsi que le problème mentionné se produit.

Reply

Marsh Posté le 09-03-2009 à 10:18:06    

Code :
  1. Sub Mapd(rep As String)
  2. Select Case rep
  3. Case "Archive"
  4. wshnet.MapNetworkDrive lettre, "\\127.0.0.1\temps"
  5. wshell.LogEvent 0, "Lettre " &lettre& " maintenant connectée par "&wshnet.username
  6. Case "CLIENT"
  7. wshnet.MapNetworkDrive lettre, "\\127.0.0.1\temps"
  8. wshell.LogEvent 0, "Lettre " &lettre& " maintenant connectée par "&wshnet.username
  9. Case "LOT"
  10. part="LOT"
  11. wshnet.MapNetworkDrive lettre, "\\127.0.0.1\"&part
  12. wshell.LogEvent 0, "Lettre " &lettre& " maintenant connectée par "&wshnet.username
  13.   end select
  14. end sub
  15. Case Else
  16. // affiche qu'il y a un soucis
  17. end select
  18. end sub


---------------
http://poemes.iceteapeche.com - http://www.simuland.net
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed