먼저 디렉토리가 이미 존재하는지 확인하십시오. 그것이 존재하면 처리가 수행되지 않으며 존재하지 않으면 생성됩니다.
빠르게 발전하는 것이 유용하기를 바랍니다.
Checkfolder.asp
<%
'*********************************************************************************************************
'저자 : zhao min [email protected]
'페이지 이름 : createfolder.asp
'페이지 기능 : N 레벨 디렉토리의 폴더를 생성합니다
'사용 방법 : Call Checkfolder () 함수, 예 : Checkfolder (Path)
'통과 : 업로드 할 파일의 상대 경로 (예 : path = ./upload/bbb/ccc/ddd)
'단점 : 매개 변수 경로에 업로드 폴더를 가져와야합니다.
'*********************************************************************************************************
하위 검사자 (경로)
분할 경로 (경로)
종료 서브
하위 분할 경로 (경로)
Dim Road의 물리적 경로
Road = Server.mappath (./ 업로드)
Dim Curroad의 현재 경로
도로 = 분할 (도로,/, -1,1)
Curroad = Road (ubound (Road))
DIM 폴더, FSO
set fso = server.createobject (scripting.filesystemobject)
폴더 = split (path,/, -1,1)
i = 0에서 ubound (폴더) 1 단계
폴더 (i) = 쿠로드 인 경우
j = i
종료
끝 If
다음
i = j + 1
i <= ubound (폴더)이면
희미한 마이로드
myroad = server.mappath (./ 업로드)
i = j + 1 to ubound (폴더) 단계 1
CreateFolder Myroad, 폴더 (I)
myroad = myroad &/폴더 (i)
다음
끝 If
종료 서브
Sub CreateFolder (MyPath, FolderName)
dim fso, f
set fso = server.createobject (scripting.filesystemobject)
그렇지 않은 경우 (FSO.DODEREXISST (MyPath+/+FolderName))
f = fso.createfolder (mypath+/+folderName)
끝 If
종료 서브
FSO = 아무것도 설정하지 않습니다
%>