Primero verifique si el directorio ya existe. Si existe, no se realizará ningún procesamiento, y si no existe, se creará.
Espero que sea útil que se desarrolle rápidamente.
Checkfolder.asp
<%
'******************************************************************************************************************
'Autor: zhao min [email protected]
'Nombre de la página: CreateFolder.asp
'Función de página: generar carpetas para directorios de nivel N
'Método de uso: función checkfolder () de llamada, por ejemplo: checkfolder (ruta)
'Pasaje: la ruta relativa del archivo a cargar, por ejemplo: Path = ./upload/bbb/ccc/ddd
'Desventaja: debe traer la carpeta de carga en la ruta del parámetro
'******************************************************************************************************************
Sub checkfolder (ruta)
Splitpath (camino)
Final
Sub Splitpath (camino)
Camino físico de Dim Road '
Road = server.mappath (./ cargar)
ruta actual de dim curroad '
Road = Split (Road,/,-1,1)
Curroad = Road (Ubound (Road))
carpeta dim, FSO
Establecer fso = server.createObject (scripting.filesystemObject)
Carpeta = Split (ruta,/,-1,1)
para i = 0 a Ubound (carpeta) Paso 1
if carpeta (i) = Curroad entonces
J = I
salir
final si
Próximo
i = j + 1
Si i <= Ubound (carpeta) entonces
Dim Myroad
myroad = server.mappath (./ cargar)
para i = j + 1 a Ubound (carpeta) Paso 1
CreateFolder Myroad, carpeta (i)
myroad = myroad &/& y carpeta (i)
Próximo
final si
Final
Sub CreateFolder (MyPath, FolderName)
Dim FSO, F
Establecer fso = server.createObject (scripting.filesystemObject)
Si no (fso.foldereRexists (mypath+/+foldername)) entonces
Establecer F = FSO.CreateFolder (MyPath+/+FolderName)
final si
Final
Establecer FSO = nada
%>