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

Résolu
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.
--
Chocapic c'est fort en chocolat !!!! Tu l'as lu en chantant hein ? :p

3 réponses

  1. Contributeur
    'lut, la commande
    set
    en batch paramètre une variable d'environnement, en VBScript c'est
    CreateObject("WScript.Shell").Environment("SYSTEM")
    qu'il faut utiliser, c'est un tableau variable/valeur:
    Set wshShell = CreateObject("WScript.Shell")
    Set wshSystemEnv = wshShell.Environment("SYSTEM")
    wshSystemEnv( "APPDATA" ) = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")+"\data"

    CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")
    correspond au
    %CD%
    .
    from human import idiocy
    del idiocy
    1. Re,

      Je comprends un peu ce que veule dire les codes mais dans qu'elle ordre faut il les mettre ?
    2. Contributeur
      En fait je t'ai donné une traduction complète de ton script, avec des détails.
      Les
      Set
      dans ce code paramètrent des variables propres au script, elles ne sont pas accessibles en dehors; à l'instar de la variable APPDATA qui sera affectée en dehors du script.
    3. Donc pour le .bat en .vbs ça donne :

      Set wshShell = CreateObject("WScript.Shell")
      Set wshSystemEnv = wshShell.Environment("SYSTEM")
      wshSystemEnv( "APPDATA" ) = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")+"\data"

      Excuse moi si je ne comprend pas mais je connais à penne le vbs.
    4. 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