Création de dossiers

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

  1. Slt,

    Copier/coller dans bloc-notes, enregistrer sous

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

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

    Lupin
    1. merci beaucoup pour ta réponse mais comment je dois procéder pour utiliser ce script svp ?

      merci
      1. 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
        1. 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 ?