Como detectar se existe ou não uma pasta, ela será criada automaticamente.

Compartilharei com você o código que pode ser usado normalmente ao testar o novo site de webmaster errado e suporta a criação de diretórios de vários níveis

Código 1

 Função CreateMultifolder (byval cfolder) objfso, phcreatEfolder, createfolderArray, createfolder dim i, ii, createfoldersub, phcreatEfoldersub, blinfo blinfo = falsefolder = cfolder on error retome o seguinte conjunto Termine se for à direita (createfolder, 1) = "/" então createfolder = esquerda (createfolder, len (createfolder) -1) final se createfolderArray = split (createfolder, "/") para i = 0 a ubound (createfolderray) e createfoldersub = "para ii = 0 a i 0 a i iofolders PhcreateFoldersub = server.mappath (createfoldersub) se não objfso.olderxists (phcreateFoldersub) então objfso.createfolder (phcreatefoldersub) termina se a seguir se err, então err.clear () blinfo =

Como usar:

CreateMultifolder ("/202003/ferramentas/")

Código 2, teste OK

 'Crie automaticamente o Código de Diretório MultiPole por JB51 Function Createit (Path) Dim Fsofo, Cinfo, ThePatharraydim I, II, Binfobinfo = Falsethepath = PathSet FSOFO = CreateObject ("Script.FilesyStemEngject); Esquerda (thePath, 1) = "/" thePath = Right (thePath, len (thePath) -1) final ifif (thePath, 1) = "/" thenthepath = esquerda (thepath, len (thepath) -1) end ifthepatharray = split (thepath, "/") para i = 0 a ubund (thepatharray) createfoldersub1 = createfoldersub1 & thepathArray (i) & "/" createfoldersub = server.mappath (createfoldersub1) se não fsofo.polderxists (createfoldersub) thenfsofo.creretEfolder (createFoldOsub) ErrNenderfr) thenfsofoO.CrereTeFolder (CreateFoldersub) endnExtif. ifcreateit = função binfoend

Código de teste

createit ("/202004/ferramentas/")

Se o código acima não puder ser executado, verifique se as permissões do usuário do IIS Run têm uma função de gravação. Durante o teste hoje, o IIS7.5 padrão não pode ser executado.

O seguinte código de implementação é simples e adequado para aprender

 Como detectar se existe uma pasta? Se não existir, criará automaticamente a pasta = server.mappath ("/imagess") set fso = createObject ("scripting.filesystemoBject") se fso.fileExists (server.mappath (filepath)) thenrestnse.write ("o que mais pode ser construído depois de tudo") nadafSo.cretErfSerfSerTeRSerTeRSerTer (mais, o que pode ser construído para sever (filePJ)) e se esgot (o que mais pode ser construído). = Server.createObject ("scripting.filesystemObject") se objfso.oldErexists (server.mappath (salvath)) = false thenobjfso.createFolder (server.mappath (salvAth)) final ifffolder = server.mappath ("/imagest) set) = scripts)) fso.FileExists (Server.mappath (filepath)) thenscripnse.write ("O que mais pode ser construído depois de tudo") elsefso.createfolder (pasta) final ifset fso = nada