Creer une arborescence de dossiers

Soyez le premier à donner votre avis sur cette source.

Snippet vu 17 139 fois - Téléchargée 29 fois

Contenu du snippet

Je cherchais à créer une arborescence de dossiers mais je n'ai rien trouvé d'intéressant dans les sources (surtout pour le VBS). J'ai donc moi-même créer un script qui crée une arborescence de dossier si celle-ci n'existe pas... Je pense que çà pourra intéresser du monde.

Source / Exemple :


Dim Fso
 Set Fso = CreateObject ("Scripting.FileSystemObject")

 Dim Rep2
 Rep2 = InputBox ("Entrez le chemin complet du dossier qui contiendra tous les répertoires des opticiens (s'il n'existe pas il sera créé) : ")
 If Rep2 <> Empty Then

 Dim i, Chemin, Longueur, arrRecord
 arrRecord = Split (Rep2, "\")
 Longueur = (UBound(arrRecord) - LBound(arrRecord + 1)
 i = 1
 Chemin = arrRecord(0) & "\"
 
 While (i <> Longueur)
 Chemin = Chemin & arrRecord(i) & "\"
 
 If Not Fso.FolderExists(Chemin) Then
 Fso.CreateFolder(Chemin)
 End If
 
 i = (i+1)
 
 Wend
 
 End If

A voir également

Ajouter un commentaire

Commentaire

Saros
Messages postés
921
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
23 septembre 2010
-
While (i <> Longueur)
i = (i+1)
Wend

équivaut à

For i = 1 To Longueur-1
Next i

Euh voilà, sinon il n'y a pas grand-chose à dire..

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.