Discussion :

[keben]

Bonjour Je suis relativement néophyte en vbs mais je me demandais si il n'existerait pas ou si il serait possible de développer un script VBS qui une fois lancé recopierait un répertoire modele pré-définis (ACL comprises) à la racine d'éxécution du VBS, en demandant à l'utilisateur de rentrer le nom du répertoire racine... en gros ce que permet de faire un robocopy ou xcopy mais un peu plus user friendly pour des utilisateurs lambda! je remercie d'avance ceux qui auront un peu de temps à consacrer à ma demande

[ced600]

répertoire modele pré-définis (ACL comprises)

Peux tu expliquer ce que tu entends par là ?
Je ne suis pas adept du robocopy ni du xcopy.

Pour la gestion des répertoires tu peux t'aider de cela :
http://vb.developpez.com/faqvbs/?page=II.2.3

[keben]

en fait dans l'idéal le but serait de créer un script qui, une fois lancé par un utilisateur lambda fera les choses suivantes :
- aller chercher un dossier modèle et toutes ses arborescence pour les copier dans un nouveau dossier (au même endroit d'exécution du script) en conservant toutes les ACL & demander simplement à l'utilisateur de rentrer le nouveau nom du répertoire parent.
ex : ma structure modele est un répertoire Alpha contenant divers sous répertoires chacun avec des droits d'accès spécifiques.
au lancement du script, une fenêtre me demande d'indiquer le nouveau nom du dossier parent Alpha...je rentre par exemple Beta (la structure des dossiers enfants et ACL restent les mêmes).
Je me retrouve donc avec un dossier Beta à la racine du fichier script et dans ce dossier beta toutes l'arborescence du dossier modèle.
voilà, je sais pas si j'ai été clair... et sur la fonction xcopy, c'est une commande dos qui peut sans probleme copier l'ensemble d'un dossier, sous dossier et ACL compris ...mon seul soucis en fait...l'interrogation de l'utilisateur pour rentrer le nouveau nom du dossier parent?
merci pour votre aide

[ced600]

inputbox pour demander quelque chose à l'utilisateur.

[keben]

euh est ce que j'aurais l'air d'abuser si je te demandais éventuellement un lien vers un script qui utilise cette fonction (voir qui fasse à peu prêt ce que je souhaite mais là j'abuse carrément! )? parceque finalement je vais peut être revenir sur ce que je disais dans mon premier message...je suis pas QUE relativement neophyte.

[keben]

aller je me lance sur la piste donnée plus haut..
est ce que vous pourriez m'aider à intégrer la fonction inputbox dans ce code?

Code :

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

1
2
3
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.CopyFolder "c:\tmp","c:\tmp2",True ' True : pour copier en "écrasant"

destination si existe..

car je ne sais pas trop ou l'imbriquer pour que la demande du nouveau nom du répertoire s'imbrique dans la fonction globale en récupérant le champ saisi?

par avance merci pour votre aide

[ced600]

En fait dans la FAQ VBS j'ai trouvé quelque chose qui devrait t'intéresser plus :
http://vb.developpez.com/faqvbs/?pag...bsSelectFolder

Après pour faire de la concaténation de variable avec un string :

Code :

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

1
2
3
4
5
6
7
dim str1
dim str2
str1 = "Teste"
str2 = str1 & " de concaténation"
wscript.echo str2 & " d'une chaine de caractère et d'une variable"
wscript.echo "Mais str2 vaut toujours"
wscript.echo str2

wscript.echo c pour l'affichage comme msgbox.