Aide batch parametré

Résolu/Fermé

reseau0010 Messages postés 249 Date d'inscription mardi 18 mars 2008 Statut Membre Dernière intervention 29 décembre 2013 - 21 juil. 2009 à 14:19
reseau0010 Messages postés 249 Date d'inscription mardi 18 mars 2008 Statut Membre Dernière intervention 29 décembre 2013 - 23 juil. 2009 à 14:22

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

A voir également:

Aide batch parametré
Netflix paramètre compte - Guide
Fichier batch - Guide
Paramètre usine pc - Guide
Parametre usine chromecast - Guide
Sur son réseau social, clémentine veut limiter l’accès à ses publications. quel paramètre doit-elle modifier ? ✓ - Forum Réseau

9 réponses

Réponse 1 / 9

jjsteing Messages postés 1669 Date d'inscription vendredi 11 mai 2007 Statut Contributeur Dernière intervention 21 mai 2012 181
21 juil. 2009 à 14:44

j'ai la solution , mais en vbscript.. ca te va??

reseau0010 Messages postés 249 Date d'inscription mardi 18 mars 2008 Statut Membre Dernière intervention 29 décembre 2013 1
21 juil. 2009 à 14:58

d accord j attend ta reponse
merci bcp

Réponse 2 / 9

jjsteing Messages postés 1669 Date d'inscription vendredi 11 mai 2007 Statut Contributeur Dernière intervention 21 mai 2012 181
21 juil. 2009 à 15:19

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

reseau0010 Messages postés 249 Date d'inscription mardi 18 mars 2008 Statut Membre Dernière intervention 29 décembre 2013 1
22 juil. 2009 à 09:47

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

Réponse 3 / 9

reseau0010 Messages postés 249 Date d'inscription mardi 18 mars 2008 Statut Membre Dernière intervention 29 décembre 2013 1
22 juil. 2009 à 09:46

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

jjsteing Messages postés 1669 Date d'inscription vendredi 11 mai 2007 Statut Contributeur Dernière intervention 21 mai 2012 181
22 juil. 2009 à 14:31

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??

reseau0010 Messages postés 249 Date d'inscription mardi 18 mars 2008 Statut Membre Dernière intervention 29 décembre 2013 1 > jjsteing Messages postés 1669 Date d'inscription vendredi 11 mai 2007 Statut Contributeur Dernière intervention 21 mai 2012
22 juil. 2009 à 14:47

bnj
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

Réponse 4 / 9

jjsteing Messages postés 1669 Date d'inscription vendredi 11 mai 2007 Statut Contributeur Dernière intervention 21 mai 2012 181
22 juil. 2009 à 14:51

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

reseau0010 Messages postés 249 Date d'inscription mardi 18 mars 2008 Statut Membre Dernière intervention 29 décembre 2013 1
22 juil. 2009 à 15:04

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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 9

jjsteing Messages postés 1669 Date d'inscription vendredi 11 mai 2007 Statut Contributeur Dernière intervention 21 mai 2012 181
22 juil. 2009 à 15:06

et ben adapte toi !!! change test en :\logiciels\design\3D voyons !!

reseau0010 Messages postés 249 Date d'inscription mardi 18 mars 2008 Statut Membre Dernière intervention 29 décembre 2013 1
22 juil. 2009 à 15:28

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

Réponse 6 / 9

jjsteing Messages postés 1669 Date d'inscription vendredi 11 mai 2007 Statut Contributeur Dernière intervention 21 mai 2012 181
22 juil. 2009 à 17:51

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

reseau0010 Messages postés 249 Date d'inscription mardi 18 mars 2008 Statut Membre Dernière intervention 29 décembre 2013 1
22 juil. 2009 à 23:45

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

Réponse 7 / 9

reseau0010 Messages postés 249 Date d'inscription mardi 18 mars 2008 Statut Membre Dernière intervention 29 décembre 2013 1
22 juil. 2009 à 23:28

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

Réponse 8 / 9

reseau0010 Messages postés 249 Date d'inscription mardi 18 mars 2008 Statut Membre Dernière intervention 29 décembre 2013 1
23 juil. 2009 à 12:56

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

Réponse 9 / 9

jjsteing Messages postés 1669 Date d'inscription vendredi 11 mai 2007 Statut Contributeur Dernière intervention 21 mai 2012 181
23 juil. 2009 à 13:47

'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 ;)

reseau0010 Messages postés 249 Date d'inscription mardi 18 mars 2008 Statut Membre Dernière intervention 29 décembre 2013 1
23 juil. 2009 à 14:22

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

appel sur mobile Doro

Le paramètre s'arrête systématiquement quoi faire

echo off qu'est ce que c'est ?

Faire une attente sous dos (batch)

pas d'impression car pas d'encre couleur

Discussions similaires

Newsletters