<%
'Créer un répertoire à plusieurs niveaux, vous pouvez créer un répertoire racine qui n'existe pas
'Paramètre: le nom du répertoire à créer, peut être à plusieurs niveaux
'Retour valeur logique, le vrai réussit, le faux échoue
'Créer le répertoire racine du répertoire commence à partir du répertoire actuel
'---------------------------------------------------
FunctionCrealEmultifolder (ByValCfolder)
Dimobjfso, phcreatefolder, createfolderArray, createfolder
Dimi, II, CreateFoldersub, PhcreateFoldersub, Blinfo
Blinfo = false
CreateFolder = cfolder
Onerrorresumenext
SetObjfso = server.createObject ("scripting.fileSystemObject")
Idierrhen
Err.clear ()
Sortie
Endire
CreateFolder = remplacer (CreateFolder, "", "/")
Ifleft (createFolder, 1) = "/" alors
CreateFolder = Right (CreateFolder, Len (CreateFolder) -1)
Endire
Ifright (createFolder, 1) = "/" puis
CreateFolder = Left (CreateFolder, Len (CreateFolder) -1)
Endire
CreateFolderArray = Split (CreateFolder, "/")
Fori = 0Toubound (CreateFolderArray)
CreateFoldersub = ""
Forii = 0toi
CreateFoldersub = CreateFoldersub & CreateFolderArray (II) & "/"
Suivant
PhcreateFoldersub = server.mappath (CreateFoldersub)
Ifnotobjfso.folderexists (phcreatefoldersub) puis
objfso.createfolder (phcreatefoldersub)
Endire
Suivant
Idierrhen
Err.clear ()
Autre
Blinfo = true
Endire
CreateMultifolder = Blinfo
Finition de fin
%>
'Comment utiliser: