La copie de code est la suivante:
'=======================================================.
'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
'Créer le répertoire racine du répertoire commence à partir du répertoire actuel
`` Appel par exemple
'' CallcreateMultifolder ("/ upload / jumbot / myphoto /")
'=======================================================.
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
Ifright (createFolder, 1) = "/" puis
CreateFolder = Left (CreateFolder, Len (CreateFolder) -1)
Endire
CreateFolderArray = Split (CreateFolder, "/")
Fori = 0Toubound (CreateFolderArray)