Primeiro verifique se o diretório já existe. Se existir, nenhum processamento será feito e, se não existir, será criado.
Espero que seja útil para você se desenvolver rapidamente.
CheckFolder.asp
<%
'*************************************************
'Autor: zhao min [email protected]
'Nome da página: createfolder.asp
'Função da página: Gere pastas para diretórios de nível n
'Método de uso: Função Chamada CheckFolder (), por exemplo: CheckFolder (caminho)
'Passagem: o caminho relativo do arquivo a ser carregado, por exemplo: Path = ./upload/bb/ccc/ddd
'Desvantagem: você deve trazer a pasta de upload no caminho do parâmetro
'*************************************************
Sub -checkfolder (caminho)
Splitpath (caminho)
Final sub
Sub Splitpath (caminho)
Caminho físico da Dim Road
Estrada = server.mappath (./ upload)
Caminho atual da Dim Curroad
Estrada = divisão (estrada,/,-1,1)
Curroad = Road (Ubound (estrada))
Pasta Dim, FSO
Set fso = server.createObject (script.filesystemoBject)
pasta = split (caminho,/,-1,1)
para i = 0 para ubound (pasta) Etapa 1
se pasta (i) = curroad então
j = i
saída para
final se
Próximo
i = j + 1
Se eu <= ubound (pasta) então
Dim Myroad
myroad = server.mappath (./ upload)
para i = j + 1 a ubound (pasta) etapa 1
Createfolder myroad, pasta (i)
Myroad = Myroad &/& Pasta (i)
Próximo
final se
Final sub
Sub CreateFolder (MyPath, Foldername)
Dim fso, f
Set fso = server.createObject (script.filesystemoBject)
Caso contrário, fso.Polderexists (MyPath+/+Fastename)) então
set f = fso.createfolder (MyPath+/+Fastename)
final se
Final sub
Definir FSO = nada
%>