Je partagerai avec vous le code qui peut être utilisé normalement lors du test du mauvais site Web de nouveau webmaster, et il prend en charge la création de répertoires à plusieurs niveaux
Code 1
Fonction CreateMultifolder (byval cfolder) dim objfso, phcreatefolder, createfolderarray, createfolder dim i, ii, createfoldersub, phcreatefoldersub, blinfo blinfo = false createfolder = cfolder on error reprenle le prochain définit objfso = server.CreateObject ("scripting. Err.clear () de sortie de la fonction end fin if if reight (createFolder, 1) = "/" alors createFolder = Left (createFolder, len (createfolder) -1) end if CreateFolderArray = "CreateFolder," / ") pour i = 0 à ubound (createfolderarray) CreateFoldersub =" "pour ii = 0 à i créfoldersub = createSub = 0 CreateFolderArray (ii) & "/" Next phcreateFoldersub = server.mappath (CreateFoldersub) Si ce n'est pas objfso.folderexists (phcreatefoldersub)Comment utiliser:
CreateMultifolder ("/ 202003 / Tools /")
Code 2, testez OK
«Créer automatiquement le répertoire multipolaire» par JB51 RETERRERYFONCTION CREATEIT (PATH) DIM FSOFO, CINFO, ThePathArrayDim I, II, Binfobinfo = FalSethepath = Pathset fsofo = CreateObject (Scripting.FileSystemObject » gauche (thepath, 1) = "/" thepath = droite (thepath, len (thepath) -1) end ifif droit (thepath, 1) = "/" thenthepath = gauche (thepath, len (thepath) -1) fin ifthepathArray = Split (thepath, "/" pour i = 0 à 0 ubund (thepatharray) createfoldersub1 = createFoldersub1 & thepatharray (i) & "/" createFoldersub = server.mappath (createfoldersub1) Si pas fsofo.folderexists (createfoldersub) thenfsofo.createfolder (createfoldersub) end ifnextif err thenerr.classelsebfo = trueendeendenend final. Fonction ifcreateit = binfoend
Code de test
createIt ("/ 202004 / outils /")
Si le code ci-dessus ne peut pas être exécuté, veuillez vérifier si les autorisations de l'utilisateur IIS Run ont une fonction d'écriture. Pendant le test aujourd'hui, l'IIS7.5 par défaut ne peut pas être exécuté.
Le code d'implémentation suivant est simple et adapté à l'apprentissage
Comment détecter si un dossier existe? S'il n'existe pas, il créera automatiquement un dossier = server.mappath ("/ imagess") set fso = createObject ("scripting.fileSystemObject") si fso.fileexists (server.mappath (fileps)) thereSpnsse.write ("quoi d'autre peut être construit après tout") elsefsoSefolder (folder) finir si rien n'est celle si rien = Server.createObject ("scripting.filesystemObject") if objfso.folderexists (server.mappath (sauvepath)) = false thenobjfso.createfolder (server.mappath (sauvepath)) end ifffolder = server.mappath ("/ imagess") set fso = createObject ("scripting.FilesySystemObject") if if fso = createObject ("Scripting.FilesySystemObject") If fso.fileExists (server.mappath (filepath)) thereSpnsse.write ("quoi d'autre peut être construit après tout") elsefso.Createfolder (dossier) end ifset fso = rien