FSO에는 CreateFolder라는 메소드가 있는데 이 메소드는 상위 폴더가 있어야만 새 폴더를 생성할 수 있기 때문에 자동으로 다단계 폴더를 생성하고 정적 페이지 등을 생성하는 함수를 작성했습니다. 매우 편리합니다. 사용합니다
.
'--------------------------------
' 지정된 다중 레벨 폴더를 자동으로 생성
'strPath는 절대 경로입니다.
' 인용에 대한 저작권을 유지해주세요.
' 작성자: im286_Anjer
'2005-4-3
기능 AutoCreateFolder(strPath) ' 부울로
오류 발생 시 다음 재개
Dim astrPath, ulngPath, i, strTmpPath
Dim objFSO
If InStr(strPath, "") <=0 Or InStr(strPath, ":") <= 0 Then
AutoCreateFolder = 거짓
종료 기능
종료 조건
objFSO = Server.CreateObject("Scripting.FileSystemObject") 설정
objFSO.FolderExists(strPath)인 경우
AutoCreateFolder = 참
종료 기능
종료 조건
astrPath = 분할(strPath, "")
ulngPath = UBound(astrPath)
strTmpPath = ""
i = 0인 경우 ulngPath로
strTmpPath = strTmpPath & astrPath(i) & ""
objFSO.FolderExists(strTmpPath)가 아닌 경우
'만들다
objFSO.CreateFolder(strTmpPath)
종료 조건
다음
objFSO = 없음 설정
Err = 0이면
AutoCreateFolder = 참
또 다른
AutoCreateFolder = 거짓
종료 조건
기능 종료
호출 방법:
MyPath = "C:abc"
AutoCreateFolder(MyPath)인 경우
Response.Write "폴더가 성공적으로 생성되었습니다"
또 다른
Response.Write "폴더 생성 실패"
종료 조건