Cómo detectar si existe una carpeta o no, se creará automáticamente.

Compartiré con usted el código que se puede usar normalmente al probar el nuevo sitio web de Webmaster incorrecto, y admite la creación de directorio de niveles múltiples

Código 1

 Función createMultifolder (byval cfolder) dim objfso, phCreateFolder, createFolderArray, CreateFolder Dim I, II, CreateFolderSub, PhCreateFolderSub, blinfo blinfo = false createFolder = Colder en el error de error en el siguiente Err.Clear () Función de salida ENTER IF if Right (CreateFolder, 1) = "/" entonces CreateFolder = Left (CreateFolder, Len (CreateFolder) -1) end si CreateFolderArray = Split (CreateFolder, "/") para i = 0 a UBound (CreateFoldenAlderArray) CreateFolderSub = "para II = 0 a I a i CreateFolderArray (ii) & "/" Next phCreateFolderSub = server.mappath (createFolderSub) Si no objfso.folderExists (phCreateFolderSub) entonces objfso.createFolder (PhCreateFolderSub) termina si lo siguiente si err.clear () otro blinfo = verdadero end if createMultiDer = blinfo

Cómo usar:

CreateMultifolder ("/202003/herramientas/")

Código 2, prueba OK

 'Crear automáticamente el directorio multipolio' Code por jb51 reterryfunction createit (ruta) dim fsofo, cinfo, thePathArrayDim I, II, binfobinfo = falsethepath = pathSet fSOfo = createObject ("scripting.filsystemObject") si err. izquierda (thepath, 1) = "/" thepath = right (thepath, len (thepath) -1) final ifif derecha (thepath, 1) = "/" Thentepath = izquierda (thepath, len (thepath) -1) Final UBUND (tHEPATHArray) CreateFolderSub1 = CreateFolderSub1 & thePathArray (i) & "/" createFolderSub = server.mappath (createFolderSub1) Si no fSOfo.folderExists (createefolderSub) thenfsofo.createFolder (createFolderSub) ifcreateit = función binfoend

Código de prueba

CreateIT ("/202004/herramientas/")

Si el código anterior no se puede ejecutar, verifique si los permisos del usuario de IIS ejecutan que tienen una función de escritura. Durante la prueba de hoy, no se puede ejecutar el IIS7.5 predeterminado.

El siguiente código de implementación es simple y adecuado para el aprendizaje

 ¿Cómo detectar si existe una carpeta? Si no existe, creará automáticamente la carpeta = servidor.mappath ("/imagess") set fso = createObject ("scripting.fileSystemObject") si fso.fileExists (server.mappath (filePath)) entonces resespnse.write ("¿Qué más se puede construir después de todo") elsefso.createfolder (poldeo) end if setset Finset Finset Finset Finset Finset Finset FIN FIN FINS objfsoset objfso = server.createObject ("scripting.filesystemObject") si objfso.foldenEterExists (server.mappath (savePath)) = false entoncesBjfso.CreateFolder (server.mappath (SavePath)) finalizar ifffolder = server.mappath ("/imagess") set fsoRO = = CreateObject ("scripting.filesystemObject") si fso.fileExists (server.mappath (filePath)) luego corre.write ("qué más se puede construir después de todo") elsefso.createFolder (carpeta) end ifset fso = nada