Équivalent d'un .bat (Batch) en .vbs (VirsualBasicScript).

Version imprimable

25/04/2014, 23h34
ErrorAnonyme

Équivalent d'un .bat (Batch) en .vbs (VirsualBasicScript).

Bonsoir :D,

je suis débutant en Vbs et je cherche depuis peu l'équivalent d'un bat en vbs.

Voici le code en question (Il est très simple à comprendre) :

@echo off
set APPDATA=%CD%\data
exit

Merci à tout ce qui pourrons m'aider. :mouarf:

Salut !
Pourrais-tu préciser ce que représente ta variable %CD%
Merci !

Edit : Je t'envoie quand même un petit code selon ce que je crois comprendre ...

Code:

1
2
3
4
5
6
7
8
9
10
Dim objFSO, objShell, path
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject( "WScript.Shell" )
 
'Répertoire courant
Path = objFSO.GetParentFolderName(wscript.ScriptFullName)
 
'Modifier la variable d'environnement
Set objProcessEnv = objShell.Environment( "VOLATILE" )
objProcessEnv( "APPDATA" ) = path & "\DATA"

26/04/2014, 18h55
ErrorAnonyme

Salut :D Merci de m'avoir répondu. Alors %CD% je croie (Ce n'est pas moi qui est crée le code ) corresponds au périphérique usb.
26/04/2014, 19h17
hackoofr

Citation:

Envoyé par ErrorAnonyme

Salut :D Merci de m'avoir répondu. Alors %CD% je croie (Ce n'est pas moi qui est crée le code ) corresponds au périphérique usb.

:salut:
c'est quoi ton but exactement ? :koi:
Soyez plus explicite dans ta demande ;) tu veux faire quoi exactement ? car, je n'ai rien compris de ta requête ?
:merci:
26/04/2014, 19h49
ErrorAnonyme

Alors en faite à la base c'est pour mettre Minecraft sur clé usb : http://www.minecraft-addict.com/aide...r-cle-usb.html
Mais le start est en bat et je voudrais l'avoir en vbs.

:O Je viens de m’apercevoir que j'ai oublier une ligne du code (Je suis vraiment désoler) :
@echo off
set APPDATA=%CD%\data
bin\Minecraft.exe
exit

:salut:
Testez ce code en tenant compte du Launcher.bat dans le même dossier de ce vbscript

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
MaCommande = "Launcher.bat"
Call Executer(MaCommande,0)
'***********************************************************************************************
 Function Executer(StrCmd,Console)
    Dim ws,MyCmd,Resultat
    Set ws = CreateObject("wscript.Shell")
'La valeur 0 pour cacher la console MS-DOS
    If Console = 0 Then
        MyCmd = "CMD /C " & StrCmd & " "
        Resultat = ws.run(MyCmd,Console,False)
        If Resultat = 0 Then
        Else
            MsgBox "Une erreur inconnue est survenue !",16,"Une erreur inconnue est survenue !"
        End If
    End If
'La valeur 1 pour montrer la console MS-DOS
    If Console = 1 Then
        MyCmd = "CMD /K " & StrCmd & " "
        Resultat = ws.run(MyCmd,Console,False)
        If Resultat = 0 Then
        Else
            MsgBox "Une erreur inconnue est survenue !",16,"Une erreur inconnue est survenue !"
        End If
    End If
    Executer = Resultat
End Function
'**********************************************************************************************

27/04/2014, 10h13
ErrorAnonyme

:salut: ,

:merci: beaucoup !!! :yaisse2: