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