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

Résolu
Melvyn301 Messages postés 120 Date d'inscription   Statut Membre Dernière intervention   -  
Melvyn301 Messages postés 120 Date d'inscription   Statut Membre Dernière intervention   -
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. ElementW Messages postés 5690 Statut Contributeur 1 293
     
    '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
    1. Melvyn301 Messages postés 120 Date d'inscription   Statut Membre Dernière intervention   18
       
      Re,

      Je comprends un peu ce que veule dire les codes mais dans qu'elle ordre faut il les mettre ?
      0
    2. ElementW Messages postés 5690 Statut Contributeur 1 293
       
      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.
      0
    3. Melvyn301 Messages postés 120 Date d'inscription   Statut Membre Dernière intervention   18
       
      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.
      0
    4. Melvyn301 Messages postés 120 Date d'inscription   Statut Membre Dernière intervention   18
       
      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
      0
  2. Melvyn301 Messages postés 120 Date d'inscription   Statut Membre Dernière intervention   18
     
    Up ^^'
    0