A voir également:
- Création de dossiers
- Creation de site web - Guide
- Creation compte gmail - Guide
- Creation de compte google - Guide
- Media creation tool - Télécharger - Systèmes d'exploitation
- Creation compte vinted - Guide
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 ?
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 :
Lupin
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
