Soucies en programmation
Résolu
Benjamin
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour,
Bon j'ai quelques soucies en programmation. Voici mon code :
Dim oNet
Set oNet = wscript.CreateObject("Wscript.Network" )
'Suppression du lecteur J
If "J:" = 0 Then
oNet.MapNetworkDrive "J:", "\\SERVFICG\BPLASSART$"
Else
oNet.RemoveNetworkDrive "J:"
End If
En fait je voudrais que si le lecteur J est inexistant alors il le crée
Sinon s'il existe je voudrais qu'il le supprime.
En fait, j'ai penser à le supprimer directement, mais j'ai droit a un message d'erreur comme quoi J: est inexistant, donc il faut que je le créer d'abord pour ensuite le supprimer.
Je doit avoir fais une bourde mais je voit pas ou !
Si vous pourriez m'aider ce serais cool...
Le fichier contenant ce code est en .vbs
Merci d'avance
Benjamin
Bon j'ai quelques soucies en programmation. Voici mon code :
Dim oNet
Set oNet = wscript.CreateObject("Wscript.Network" )
'Suppression du lecteur J
If "J:" = 0 Then
oNet.MapNetworkDrive "J:", "\\SERVFICG\BPLASSART$"
Else
oNet.RemoveNetworkDrive "J:"
End If
En fait je voudrais que si le lecteur J est inexistant alors il le crée
Sinon s'il existe je voudrais qu'il le supprime.
En fait, j'ai penser à le supprimer directement, mais j'ai droit a un message d'erreur comme quoi J: est inexistant, donc il faut que je le créer d'abord pour ensuite le supprimer.
Je doit avoir fais une bourde mais je voit pas ou !
Si vous pourriez m'aider ce serais cool...
Le fichier contenant ce code est en .vbs
Merci d'avance
Benjamin
A voir également:
- Soucies en programmation
- Application de programmation - Guide
- Mettre en veille un programme - Guide
- Programmer en basic sous windows 10 - Télécharger - Édition & Programmation
- Un autre programme est en cours d'installation - Forum Windows 10
- Programmation envoi sms - Guide
2 réponses
Salut !!
Lorsque tu fais "J:"=0 tu compare la chaine de caractères J: à 0. Evidement elle ne fait rien.
Tu peux utiliser EnumNetworkDrives pour récupérer les lecteurs présent et comparer si J est là
Execute ce bout de code plusieurs fois (un coup il crée J et l'autre le supprime):
Lorsque tu fais "J:"=0 tu compare la chaine de caractères J: à 0. Evidement elle ne fait rien.
Tu peux utiliser EnumNetworkDrives pour récupérer les lecteurs présent et comparer si J est là
Execute ce bout de code plusieurs fois (un coup il crée J et l'autre le supprime):
Dim Existe, LecteurOK
Dim WshNetwork, oDrives
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oDrives = WshNetwork.EnumNetworkDrives
For i = 0 to oDrives.Count - 1 Step 2
If oDrives.Item(i)="J:" Then
Existe = 1
End If
Next
If Existe = 1 Then
'Suppression d'un Lecteur
WshNetwork.RemoveNetworkDrive "J:"
Else
'Ajout d'un Lecteur
WshNetwork.MapNetworkDrive "J:","\\SERVFICG\BPLASSART"
End if
LecteurOK = 0
'Affichage
For i = 0 to oDrives.Count - 1 Step 2
LecteurOK = 1
WScript.Echo "Lecteur " & oDrives.Item(i) & " = " & oDrives.Item(i+1)
Next
If LecteurOK=0 Then
WScript.Echo "Aucun lecteur présent"
End If
regarde ici, c'est presque mon code en simplifié ^^ http://www.commentcamarche.net/forum/affich 12733581 traduction petit script?#1
