Création de dossiers
cujo
-
cujo -
cujo -
bonjour à tous
comment créer une série de dossier sous windows xp, allant d'un chiffre à un autre
éxemple :
dossier - 1
dossier - 2
...
dossier - 125
dossier - 126
merci pour votre aide
comment créer une série de dossier sous windows xp, allant d'un chiffre à un autre
éxemple :
dossier - 1
dossier - 2
...
dossier - 125
dossier - 126
merci pour votre aide
9 réponses
-
-
en faisant des recherches, je pense qu'il possible de faire ça par le dos avec une commande FOR et ECHO
quelqu'un connait-il bien le dos svp ? -
-
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Slt,
Utiliser ce script pour la création de répertoires :
'============================================================================== ' ' Fichier Source VBScript ' '============================================================================== ' ' Déclaration des variables globales du programme Dim oLecteur 'ObjetLecteurDeDisque Dim oFS 'ObjetFileSystem Dim varDossier Dim varLecteur Dim varTmpDir ' '============================================================================== 'Sub Main()' (Attention, le label n'exite pas en VBS) ' ' Saisie de répertoire cible varDossier = InputBox("Entrez le dossier cible du lecteur à lire :", "Saisie du dossier de départ", "C:\Temp") ' Isole la lettre du lecteur varLecteur = Mid(varDossier,1,2) ' Capture le disque cible Set oFS = CreateObject("Scripting.FileSystemObject") Set oLecteur = oFS.GetDrive(varLecteur) ' Si le lecteur est disponible If (oLecteur.IsReady) Then CreerDossier() Else Wscript.Echo "Le lecteur n'est pas disponible!" End If Wscript.Echo "Fin de traitement" & vbCrLf & vbCrLf & "Bonne Journée" Wscript.Quit ' '======================================================= ' Sub CreerDossier() Dim TexteTrouve, oNewDir, Boucle For Boucle = 1 to 125 varTmpDir = varDossier & "\Dossier - " & Boucle Set oNewDir = oFS.CreateFolder(varTmpDir) Next End Sub ' '======================================================= '
Lupin -
merci beaucoup pour ta réponse mais comment je dois procéder pour utiliser ce script svp ?
merci -
met le dans un bloc note et renome le tot.exe
-
Slt,
Copier/coller dans bloc-notes, enregistrer sous
[ dossiers.vbs ]. Double-clic sur fichier.
Codé en [ Visual Basic Scripting ] ( VBS ).
Lupin -