nouveau dossier

Discussions gérénales sur Microsoft Windows 7, des différentes versions.
Répondre
obj34
Messages : 2
Enregistré le : mer. 27 juin 2012 18:58
Etes vous un robot ? : Non

nouveau dossier

Message par obj34 »

bonsoir à tous , pour mon travail je dois créer tous les jours de nouveaux dossier sous w7 ces dossier ont tous le meme nom incréménté d'un chiffre exemple FRCR91148
puis FRCR91147 . Est il ^possible de creer autrement que manuellement une centaine de fichiers vides d'un coup par une commande
merci de votre réponse et bonne soirée à tous
Avatar du membre
nardino
Messages : 6344
Enregistré le : dim. 11 janv. 2009 16:03
Localisation : Reims
Contact :

Re: nouveau dossier

Message par nardino »

Bonsoir
Clic sur lien
@echo off
FOR /L %%N IN (1,1,9) do mkdir "D:\Mes documents\TESTBATCH\FCRC9100%%N"
FOR /L %%N IN (10,1,99) do mkdir "D:\Mes documents\TESTBATCH\FCRC910%%N"
FOR /L %%N IN (100,1,148) do mkdir "D:\Mes documents\TESTBATCH\FCRC91%%N"
En rouge tu indiques le dossier de création. En vert le nom des dossiers à créer, ici jusqu'à 148.
Bien mettre en " " la destination
Tu copies ce qui est dans l'encadré dans un fichier texte que tu enregistres sous CreationDossier.bat
@+
Image
En cas de problème constaté sur un sujet, contactez un modérateur par MP. N'intervenez pas vous-même. Merci
spiralien
Messages : 140
Enregistré le : jeu. 30 déc. 2010 18:43
Etes vous un robot ? : Non

Re: nouveau dossier

Message par spiralien »

Même genre en VBScript :
Le script ci-dessous créera 149 dossiers nommés de FRCR91000 à FRCR91148 dans le répertoire C:\Test
Les couleurs pour représenter les différents paramètres utilisés dans le script.
Option Explicit
Dim objFSO, objRepertoire, RepertoireDestination, i, Debut,Fin, DebutNomRepertoire

RepertoireDestination = "C:\Test"
DebutNomRepertoire = "FRCR91"
Debut=0
Fin=148

' Create the File System Object
Set objFSO = CreateObject("Scripting.FileSystemObject")

for i=Debut To Fin
Set objRepertoire= objFSO.CreateFolder(RepertoireDestination &"\" & DebutNomRepertoire &right("00000" &i,3))
Next

Wscript.Quit
Cela donne ça :
Image
Image
obj34
Messages : 2
Enregistré le : mer. 27 juin 2012 18:58
Etes vous un robot ? : Non

Re: nouveau dossier

Message par obj34 »

super ça marche du tonnerre merci beaucoup à tous
Répondre