Creer une arborescence de dossiers

Commenter

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

S'inscrire maintenant

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.