Aide batch parametré

Résolu
reseau0010 -  
bonjour tout le monde
je veux creer un batch qui peut creer des dossiers ainsi que sous-dossier
le probleme c est il doit parametré

1 - apres execution de ce batch
il doit donner de choisir quelle c: ou d:
apres choix il doit afficher un msg de confirmation
si oui : il doit continuer
si non : il doit afficher le msg de choix du partiotion
apres confirmation "oui" il cree les dossiers ainsi les sous-dossiers deja configurés

par ex si on choisi c:
md 1
md 2
cd1
md 11
md12
cd..
cd 2
md21
md22
cd 22
md221

merci d avance les amis

9 réponses

  1.  jjsteing Contributeur
    j'ai la solution , mais en vbscript.. ca te va??
    1. reseau0010 Auteur
      d accord j attend ta reponse
      merci bcp
  2. jjsteing Contributeur
    Dim fsoopen, fsocreate, f, fexist

    ChoixDrive= inputbox ("Quel lecteur ?")

    Set fsocreate = CreateObject("scripting.filesystemobject" )
    Set fexist = CreateObject("scripting.filesystemobject" )

    i=1
    j=1
    If fexist.Folderexists(ChoixDrive & ":\test\") <> true then
    Set f = fsocreate.CreateFolder(ChoixDrive & ":\test\") 'creation du répertoire
    End If

    For i=1 to 2
    'MsgBox (ChoixDrive & ":\test\" & i)

    If fexist.Folderexists(ChoixDrive & ":\test\" & i) <> true then
    Set f = fsocreate.CreateFolder(ChoixDrive & ":\test\" & i) 'creation du répertoire
    End If

    For j=1 to 2
    If fexist.Folderexists(ChoixDrive & ":\test\" & i & "\" & i & j) <> true then
    Set f = fsocreate.CreateFolder(ChoixDrive & ":\test\" & i & "\" & i & j) 'creation du répertoire
    End If
    Next
    Next
    1. reseau0010 Auteur
      Bnj merci pour la reponse mais j ai essayé de modifier ce code pour faire mon travail ça marche pas
      mnt le trv que je veux realise c:
      j prend comme repertoire d:
      d:\logiciels\design\3D\DOC
      d:\logiciels\design\3D\EXE

      ""
      d:
      logiciels
      design
      3d
      doc
      exe

      merci encore de ton aide
  3. reseau0010 Auteur
    bnj merci pour la reponse mais j ai essayé de modifier ce code pour faire mon travail ça marche pas
    mnt le trv que je veux realise c:
    j prend comme repertoire d:
    d:\logiciels\design\3D\DOC
    d:\logiciels\design\3D\EXE

    ""
    d:
    logiciels
    design
    3d
    doc
    exe

    merci encore de ton aide
    1. jjsteing Contributeur
      Bonjour,

      Mon code marche bien, il te cré un repertoire test et te cré dedans les repertoire que tu voulias (1;1/11;1/12;2;..)

      Mais bon.. soit....

      maintenant, tu veux un repertoire doc et exe dans d:\logiciels\design\3D c'est ca??
    2. reseau0010 Auteur
      @jjsteingbnj
      ton code est super, il marche trés bien
      oui, mnt je veux un code qui cree doc et exe dans d:\logiciels\design\3D
  4. jjsteing Contributeur
    ok, t as d autres repertoire à créer ou pas??

    sinon la solution est :

    ChoixDrive= inputbox ("Quel lecteur ?")

    Set fsocreate = CreateObject("scripting.filesystemobject" )
    Set fexist = CreateObject("scripting.filesystemobject" )

    MesRep=Array("DOC","EXE")
    for i=1 to 2
    If fexist.Folderexists(ChoixDrive & ":\test\" & MesRep(i)) <> true then
    Set f = fsocreate.CreateFolder(ChoixDrive & ":\test\" & MesRep(i)) 'creation du répertoire
    End If
    next
    1. reseau0010 Auteur
      bonjour
      ce dernier code ne sexecute pas il affiche des erreurs
      mais il ne contient pas les noms de l arborescence (les dossiers design et 3d...)
      puisque il faut les creer qu apres le choix de la partition
      merci et excuse moi bcp
  6. jjsteing Contributeur
    et ben adapte toi !!! change test en :\logiciels\design\3D voyons !!
    1. reseau0010 Auteur
      j ai essayé de changer les repertoires ainsi les sous dossiers mais tjrs il m affiche des erreurs si tu m ecris le code final pour creer cette erborescence

      excuse mio bcp pour le derrangement
      cordialement
  7. jjsteing Contributeur
    est ce que :\logiciels\design\3D est deja creer ??

    sinon, rajoute au debut du prog :

    If fexist.Folderexists(ChoixDrive & ":\logiciels\") <> true then
    Set f = fsocreate.CreateFolder(ChoixDrive & ":\logiciels\") 'creation du répertoire
    End If
    If fexist.Folderexists(ChoixDrive & ":\logiciels\design\") <> true then
    Set f = fsocreate.CreateFolder(ChoixDrive & ":\logiciels\design\") 'creation du répertoire
    End If
    If fexist.Folderexists(ChoixDrive & ":\logiciels\design\3D\") <> true then
    Set f = fsocreate.CreateFolder(ChoixDrive & ":\logiciels\design\3D\") 'creation du répertoire
    End If
    1. reseau0010 Auteur
      bnj j ai arriver à faire le necessaire
      le code final est

      Dim fsoopen, fsocreate, f, fexist

      ChoixDrive= inputbox ("Quel lecteur ?")

      Set fsocreate = CreateObject("scripting.filesystemobject" )
      Set fexist = CreateObject("scripting.filesystemobject" )

      If fexist.Folderexists(ChoixDrive & ":\logiciels\") <> true then
      Set f = fsocreate.CreateFolder(ChoixDrive & ":\logiciels\") 'creation du répertoire
      End If

      If fexist.Folderexists(ChoixDrive & ":\logiciels\design\") <> true then
      Set f = fsocreate.CreateFolder(ChoixDrive & ":\logiciels\design\") 'creation du répertoire
      End If

      If fexist.Folderexists(ChoixDrive & ":\logiciels\design\3D\") <> true then
      Set f = fsocreate.CreateFolder(ChoixDrive & ":\logiciels\design\3D\") 'creation du répertoire
      End If

      If fexist.Folderexists(ChoixDrive & ":\logiciels\design\3D\doc") <> true then
      Set f = fsocreate.CreateFolder(ChoixDrive & ":\logiciels\design\3D\doc") 'creation du répertoire
      End If

      If fexist.Folderexists(ChoixDrive & ":\logiciels\design\3D\exe") <> true then
      Set f = fsocreate.CreateFolder(ChoixDrive & ":\logiciels\design\3D\exe") 'creation du répertoire
      End If

      mais j ai encore 3 simples questions
      1- quel est le role du commande ""next""
      2- comment donner un titre pour ce code qui s affiche en haut de la fenetre
      3- comment convertir ce vbs a un fichier .exe pour le securise d aucune modification
      encore une fois merci beaucoup pour ton aide
  8. reseau0010 Auteur
    bonjour
    non aucune repertoire n est cree tout le contenu (les dossiers ) sont crees apres l execution de code et exactement apres le choix du partitionn

    j ai essayé de rassemblé les deux code, ainsi de faire des changements mais vraiment j arrive pas à trouver des solution

    ChoixDrive= inputbox ("Quel lecteur ?")

    If fexist.Folderexists(ChoixDrive & ":\logiciels\") <> true then
    Set f = fsocreate.CreateFolder(ChoixDrive & ":\logiciels\") 'creation du répertoire
    End If
    If fexist.Folderexists(ChoixDrive & ":\logiciels\design\") <> true then
    Set f = fsocreate.CreateFolder(ChoixDrive & ":\logiciels\design\") 'creation du répertoire
    End If
    If fexist.Folderexists(ChoixDrive & ":\logiciels\design\3D\") <> true then
    Set f = fsocreate.CreateFolder(ChoixDrive & ":\logiciels\design\3D\") 'creation du répertoire
    End If

    Set fsocreate = CreateObject("scripting.filesystemobject" )
    Set fexist = CreateObject("scripting.filesystemobject" )

    MesRep=Array("DOC","EXE")
    for i=1 to 2
    If fexist.Folderexists(ChoixDrive & ":\test\" & MesRep(i)) <> true then
    Set f = fsocreate.CreateFolder(ChoixDrive & ":\test\" & MesRep(i)) 'creation du répertoire
    End If
    next

    "" stp si tu verifies ce code ainsi de me donner le code final qui va creer cette arborescence
    puisque vraiment j ai pas de grande chose en script ""
    merci encore de ton aide
    1. reseau0010 Auteur
      bonjour
      comment afficher un message d erreur apres que l utilisateur entre une lettre d une partition qui n existe pas
      ainsi de donner les listes des lettres des partition qui existent au niveau de poste

      merci beucoup
      1. jjsteing Contributeur
        'Lister les lecteurs:
        ListeDrv = ""
        Set Obj_FSO = CreateObject("Scripting.FileSystemObject")

        'Parcourir tous les objets lecteurs du PC.
        For Each drvValue In Obj_FSO.Drives
        'Ne pas tenir compte du lecteur A sinon il cherche quelques secondes pour trouver
        'une disquette (Ca ralentie et c'est bruyant).
        If drvValue.DriveLetter <> "A" Then
        'Regarder si le lecteur est disponible
        If drvValue.Isready Then

        ListeDrv = ListeDrv & drvValue.DriveLetter & ";"

        End If
        End If
        Next

        ' Libérer les objets
        Set Obj_FSO = Nothing

        ------------------------------------------------------------

        Tu peux mettre aussi ListeDrv en tableau et tester apres l inputbox si la lettre rentrée est dans ce tableau ;)
        1. reseau0010 Auteur
          bonjour
          il m affiche seulement un code d erreur que le chemin d acces est introuvable sans donner les lettres des partition ,
          mais j ai essayé de coller ce dernier code au debut du l aute code

          ou on peut mettre ces lignes pour obtenir des meilleurs resultats

          merci

      Discussions similaires

      Problème digital wellbeing android
      Appasamy

      15 réponses
      Paramètre s'arrête systématiquement
      RequinAimant68

      3 réponses
      Paramettre s'arrete systématiquement
      Emine

      1 réponse
      Batch installation
      Cindy

      2 réponses