Création de dossiers

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

9 réponses

  1. 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
  2. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  3. 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
  4. cujo
     
    merci beaucoup pour ta réponse mais comment je dois procéder pour utiliser ce script svp ?

    merci
    0
  5. TGVBARJOT Messages postés 350 Date d'inscription   Statut Membre 58
     
    met le dans un bloc note et renome le tot.exe
    0
  6. Lupin
     
    Slt,

    Copier/coller dans bloc-notes, enregistrer sous

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

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

    Lupin
    0
  7. cujo
     
    salut,

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