Création de dossiers

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

9 réponses

  2. cujo
    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 ?
    0
    4. Lupin
      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
      0
      1. cujo
        merci beaucoup pour ta réponse mais comment je dois procéder pour utiliser ce script svp ?

        merci
        0
        1. TGVBARJOT
          met le dans un bloc note et renome le tot.exe
          0
          1. Lupin
            Slt,

            Copier/coller dans bloc-notes, enregistrer sous

            [ dossiers.vbs ]. Double-clic sur fichier.

            Codé en [ Visual Basic Scripting ] ( VBS ).

            Lupin
            0
            1. cujo
              salut,

              un grand merci !!, ça va bien m'aider :)
              0