Discussion :

[ErrorAnonyme]

Bonsoir ,

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.

[Cachlab]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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"

++

[ErrorAnonyme]

Salut 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.

[hackoofr]

Salut 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.

c'est quoi ton but exactement ?
Soyez plus explicite dans ta demande tu veux faire quoi exactement ? car, je n'ai rien compris de ta requête ?

[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

[hackoofr]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
'**********************************************************************************************

[ErrorAnonyme]

,

beaucoup !!!