Fso 클래스 구현 코드, ASP 클래스를 배우는 친구들이 참고할 수 있습니다. 이 코드는 비교적 오래되었습니다. 다음과 같이 코드 코드를 복사합니다.
<%
'================================================ = ===============
'= 시스템 버전: 1.0 =
'= 파일 버전: 1.0 =
'= 텍스트 작성 날짜: 2005-10-31 =
'================================================ = ===============
클래스 Cls_IO
개인 파일 시스템 개체
비공개 하위 클래스_Terminate()
IsObject(FileSystemObject)이면
FileSystemObject = 없음 설정
종료 조건
서브 끝
'//FileSystemObject 객체 생성
공용 함수 Init_Object()
오류 발생 시 다음 재개
IsObject(FileSystemObject)가 아닌 경우
FileSystemObject = Server.CreateObject(Scripting.FileSystemObject) 설정
Err.Number <> 0이면
Init_Object = 거짓
Err.Clear
종료 기능
또 다른
Init_Object = 참
종료 조건
종료 조건
기능 종료
공개 하위 삭제 파일(ByVal Str)
오류 발생 시 다음 재개
FileSystemObject.DeleteFile(Server.MapPath(../UpLoadFile/&Str)) 호출
서브 끝
공용 함수 IsFolder(ByVal Str)
IsFolder = FileSystemObject.FolderExists(Str)
기능 종료
공용 함수 ShowFolder(ByVal Str)
희미한 Obj_Folder,Obj_File
Obj_Folder = FileSystemObject.GetFolder(Server.MapPath(Str)) 설정
ShowFolder = Obj_Folder.Files 설정
Obj_Folder = 없음으로 설정
기능 종료
수업 종료
%>