Sous-EFolder (Nom du dossier)
Faible FSO
Définir FSO = Server.CreateObject (Scripting.FileSystemObject)
Si Fso.folderexists(Server.MapPath(FolderName)) Alors
Définir FSO=Rien
Quitter le sous-marin
Autre
FSO.CreateFolder(Server.MapPath(FolderName))
Fin si
Définir FSO=Rien
Fin du sous-marin
'================================================== ==================
Sous-ArrayFolder (Chemin, septembre)
Dim ArrayPath,EPath,newPath
ArrayPath = split (Chemin, septembre)
nouveauChemin=
pour chaque Epath dans ArrayPath
nouveauPath=nouveauChemin&Epath&/
nouveauChemin = remplacer(nouveauChemin,//,/)
EFolder nouveauChemin
suivant
Fin du sous-marin
ArrayDossier 1/2/3,/