Сначала проверьте, существует ли каталог. Если он существует, обработка не будет выполнена, и если ее не существует, она будет создана.
Я надеюсь, что вам будет полезно быстро развиваться.
Checkfolder.asp
<%
'*******************************************************************
Автор: Zhao Min [email protected]
'Название страницы: createfolder.asp
Функция страницы: генерировать папки для каталогов уровня N
'Метод использования: функция CallfodForder (), например: CheckFolder (Path)
«Проход: относительный путь к загрузке файла», например: path = ./upload/bbb/ccc/ddd
'НЕИСПРАВНОСТЬ: Вы должны поднять папку загрузки в пути параметра
'*******************************************************************
Sub Checkfolder (Path)
Splatpath (Path)
Конец суб
Sub Dlowpath (Path)
Физический путь с тусклой дорогой
Road = server.mappath (./ upload)
Путь тока Dim Curroad
Дорога = расколоть (дорога,/,-1,1)
CURRED = ROAD (UBOUND (ROAD))
Dim Polder, FSO
Установить fso = server.createObject (scripting.filesystemobject)
папка = разделить (путь,/,-1,1)
для i = 0 до Ubound (папка) Шаг 1
Если папка (i) = CUMRORD, тогда
j = i
Выход для
конец, если
Следующий
i = J + 1
Если я <= ubound (папка), тогда
Dim MyRoad
myroad = server.mappath (./ загрузить)
для i = j + 1 к Ubound (папка) Шаг 1
CreateFolder MyRoad, папка (I)
myRoad = myRoad &/& polder (i)
Следующий
конец, если
Конец суб
Sub CreateFolder (MyPath, Foldername)
Dim fso, f
Установить fso = server.createObject (scripting.filesystemobject)
Если нет (fso.folderexists (mypath+/+foldername)) тогда
Установите f = fso.createfolder (mypath+/+foldername)
конец, если
Конец суб
Установить FSO = ничего
%>